|
| 1 | +use super::*; |
| 2 | + |
| 3 | +use std::convert::TryInto; |
| 4 | + |
| 5 | +use proptest::arbitrary::any; |
| 6 | +use proptest::strategy::{Just, Strategy}; |
| 7 | + |
| 8 | +#[test] |
| 9 | +fn without_base_base_errors_badarg() { |
| 10 | + with_process_arc(|arc_process| { |
| 11 | + TestRunner::new(Config::with_source_file(file!())) |
| 12 | + .run( |
| 13 | + &( |
| 14 | + strategy::term::is_integer(arc_process.clone()), |
| 15 | + strategy::term::is_not_base(arc_process.clone()), |
| 16 | + ), |
| 17 | + |(integer, base)| { |
| 18 | + prop_assert_eq!(native(&arc_process, integer, base), Err(badarg!().into())); |
| 19 | + |
| 20 | + Ok(()) |
| 21 | + }, |
| 22 | + ) |
| 23 | + .unwrap(); |
| 24 | + }); |
| 25 | +} |
| 26 | + |
| 27 | +#[test] |
| 28 | +fn with_base_base_returns_list() { |
| 29 | + with_process_arc(|arc_process| { |
| 30 | + TestRunner::new(Config::with_source_file(file!())) |
| 31 | + .run( |
| 32 | + &(any::<isize>(), strategy::base::base()), |
| 33 | + |(integer_isize, base_u8)| { |
| 34 | + let integer = arc_process.integer(integer_isize).unwrap(); |
| 35 | + let base = arc_process.integer(base_u8).unwrap(); |
| 36 | + |
| 37 | + let result = native(&arc_process, integer, base); |
| 38 | + |
| 39 | + prop_assert!(result.is_ok()); |
| 40 | + |
| 41 | + let list = result.unwrap(); |
| 42 | + |
| 43 | + prop_assert!(list.is_list()); |
| 44 | + |
| 45 | + Ok(()) |
| 46 | + }, |
| 47 | + ) |
| 48 | + .unwrap(); |
| 49 | + }); |
| 50 | +} |
| 51 | + |
| 52 | +#[test] |
| 53 | +fn with_negative_integer_returns_list_in_base_with_negative_sign_in_front_of_non_negative_list() { |
| 54 | + TestRunner::new(Config::with_source_file(file!())) |
| 55 | + .run( |
| 56 | + &((std::isize::MIN..=-1_isize), strategy::base::base()).prop_flat_map( |
| 57 | + |(negative_isize, base_u8)| { |
| 58 | + (Just(negative_isize), Just(base_u8), strategy::process()) |
| 59 | + }, |
| 60 | + ), |
| 61 | + |(negative_isize, base_u8, arc_process)| { |
| 62 | + let base = arc_process.integer(base_u8).unwrap(); |
| 63 | + |
| 64 | + let positive_isize = -1 * negative_isize; |
| 65 | + let positive_integer = arc_process.integer(positive_isize).unwrap(); |
| 66 | + let positive_list = native(&arc_process, positive_integer, base).unwrap(); |
| 67 | + let positive_string: String = positive_list.try_into().unwrap(); |
| 68 | + let expected_negative_string = format!("-{}", positive_string); |
| 69 | + let expected_negative_list = arc_process |
| 70 | + .charlist_from_str(&expected_negative_string) |
| 71 | + .unwrap(); |
| 72 | + |
| 73 | + let negative_integer = arc_process.integer(negative_isize).unwrap(); |
| 74 | + |
| 75 | + let result = native(&arc_process, negative_integer, base); |
| 76 | + |
| 77 | + prop_assert!(result.is_ok()); |
| 78 | + |
| 79 | + let list = result.unwrap(); |
| 80 | + |
| 81 | + prop_assert_eq!(list, expected_negative_list); |
| 82 | + |
| 83 | + Ok(()) |
| 84 | + }, |
| 85 | + ) |
| 86 | + .unwrap(); |
| 87 | +} |
0 commit comments