Added regressions for group_data() and all_integer()

This commit is contained in:
Garth Minette 2021-06-30 19:57:03 -07:00
parent 86fc7dc143
commit 23f4de897a
2 changed files with 29 additions and 0 deletions

View file

@ -589,6 +589,15 @@ module test_array_group() {
test_array_group();
module test_group_data() {
assert_equal(group_data([1,2,0], ["A","B","C"]), [["C"],["A"],["B"]]);
assert_equal(group_data([1,3,0], ["A","B","C"]), [["C"],["A"],[],["B"]]);
assert_equal(group_data([5,3,1], ["A","B","C"]), [[],["C"],[],["B"],[],["A"]]);
assert_equal(group_data([1,3,1], ["A","B","C"]), [[],["A","C"],[],["B"]]);
}
test_group_data();
module test_flatten() {
assert(flatten([[1,2,3], [4,5,[6,7,8]]]) == [1,2,3,4,5,[6,7,8]]);
assert(flatten([]) == []);

View file

@ -227,6 +227,26 @@ module test_all_nonnegative() {
test_all_nonnegative();
module test_all_integer() {
assert(!all_integer(undef));
assert(!all_integer(true));
assert(!all_integer(false));
assert(!all_integer(4.3));
assert(!all_integer("foo"));
assert(!all_integer([]));
assert(!all_integer([3,4.1,5,7]));
assert(!all_integer([[1,2,3],[4,5,6],[7,8]]));
assert(all_integer(-4));
assert(all_integer(0));
assert(all_integer(5));
assert(all_integer([-3]));
assert(all_integer([0]));
assert(all_integer([3]));
assert(all_integer([2,-4,0,5,7,9876543210]));
}
test_all_integer();
module test_approx() {
assert_equal(approx(PI, 3.141592653589793236), true);
assert_equal(approx(PI, 3.1415926), false);