diff --git a/tests/test_math.scad b/tests/test_math.scad index 16f4988..dcbad7d 100644 --- a/tests/test_math.scad +++ b/tests/test_math.scad @@ -1,586 +1,650 @@ -include <BOSL2/std.scad> +include <BOSL/constants.scad> +include <BOSL/math.scad> + +eps = 1e-9; // Simple Calculations module test_quant() { - assert_equal(quant(-4,3), -3); - assert_equal(quant(-3,3), -3); - assert_equal(quant(-2,3), -3); - assert_equal(quant(-1,3), 0); - assert_equal(quant(0,3), 0); - assert_equal(quant(1,3), 0); - assert_equal(quant(2,3), 3); - assert_equal(quant(3,3), 3); - assert_equal(quant(4,3), 3); - assert_equal(quant(7,3), 6); - assert_equal(quant([12,13,13.1,14,14.1,15,16],4), [12,12,12,16,16,16,16]); - assert_equal(quant([9,10,10.4,10.5,11,12],3), [9,9,9,12,12,12]); - assert_equal(quant([[9,10,10.4],[10.5,11,12]],3), [[9,9,9],[12,12,12]]); + assert(quant(-4,3) == -3); + assert(quant(-3,3) == -3); + assert(quant(-2,3) == -3); + assert(quant(-1,3) == 0); + assert(quant(0,3) == 0); + assert(quant(1,3) == 0); + assert(quant(2,3) == 3); + assert(quant(3,3) == 3); + assert(quant(4,3) == 3); + assert(quant(7,3) == 6); } test_quant(); module test_quantdn() { - assert_equal(quantdn(-4,3), -6); - assert_equal(quantdn(-3,3), -3); - assert_equal(quantdn(-2,3), -3); - assert_equal(quantdn(-1,3), -3); - assert_equal(quantdn(0,3), 0); - assert_equal(quantdn(1,3), 0); - assert_equal(quantdn(2,3), 0); - assert_equal(quantdn(3,3), 3); - assert_equal(quantdn(4,3), 3); - assert_equal(quantdn(7,3), 6); - assert_equal(quantdn([12,13,13.1,14,14.1,15,16],4), [12,12,12,12,12,12,16]); - assert_equal(quantdn([9,10,10.4,10.5,11,12],3), [9,9,9,9,9,12]); - assert_equal(quantdn([[9,10,10.4],[10.5,11,12]],3), [[9,9,9],[9,9,12]]); + assert(quantdn(-4,3) == -6); + assert(quantdn(-3,3) == -3); + assert(quantdn(-2,3) == -3); + assert(quantdn(-1,3) == -3); + assert(quantdn(0,3) == 0); + assert(quantdn(1,3) == 0); + assert(quantdn(2,3) == 0); + assert(quantdn(3,3) == 3); + assert(quantdn(4,3) == 3); + assert(quantdn(7,3) == 6); } test_quantdn(); module test_quantup() { - assert_equal(quantup(-4,3), -3); - assert_equal(quantup(-3,3), -3); - assert_equal(quantup(-2,3), 0); - assert_equal(quantup(-1,3), 0); - assert_equal(quantup(0,3), 0); - assert_equal(quantup(1,3), 3); - assert_equal(quantup(2,3), 3); - assert_equal(quantup(3,3), 3); - assert_equal(quantup(4,3), 6); - assert_equal(quantup(7,3), 9); - assert_equal(quantup([12,13,13.1,14,14.1,15,16],4), [12,16,16,16,16,16,16]); - assert_equal(quantup([9,10,10.4,10.5,11,12],3), [9,12,12,12,12,12]); - assert_equal(quantup([[9,10,10.4],[10.5,11,12]],3), [[9,12,12],[12,12,12]]); + assert(quantup(-4,3) == -3); + assert(quantup(-3,3) == -3); + assert(quantup(-2,3) == 0); + assert(quantup(-1,3) == 0); + assert(quantup(0,3) == 0); + assert(quantup(1,3) == 3); + assert(quantup(2,3) == 3); + assert(quantup(3,3) == 3); + assert(quantup(4,3) == 6); + assert(quantup(7,3) == 9); } test_quantup(); module test_constrain() { - assert_equal(constrain(-2,-1,1), -1); - assert_equal(constrain(-1.75,-1,1), -1); - assert_equal(constrain(-1,-1,1), -1); - assert_equal(constrain(-0.75,-1,1), -0.75); - assert_equal(constrain(0,-1,1), 0); - assert_equal(constrain(0.75,-1,1), 0.75); - assert_equal(constrain(1,-1,1), 1); - assert_equal(constrain(1.75,-1,1), 1); - assert_equal(constrain(2,-1,1), 1); + assert(constrain(-2,-1,1) == -1); + assert(constrain(-1.75,-1,1) == -1); + assert(constrain(-1,-1,1) == -1); + assert(constrain(-0.75,-1,1) == -0.75); + assert(constrain(0,-1,1) == 0); + assert(constrain(0.75,-1,1) == 0.75); + assert(constrain(1,-1,1) == 1); + assert(constrain(1.75,-1,1) == 1); + assert(constrain(2,-1,1) == 1); } test_constrain(); -module test_is_matrix() { - assert(is_matrix([[2,3,4],[5,6,7],[8,9,10]])); - assert(is_matrix([[2,3,4],[5,6,7],[8,9,10]],square=true)); - assert(is_matrix([[2,3,4],[5,6,7],[8,9,10]],square=false)); - assert(is_matrix([[2,3],[5,6],[8,9]],m=3,n=2)); - assert(is_matrix([[2,3,4],[5,6,7]],m=2,n=3)); - assert(!is_matrix([[2,3,4],[5,6,7]],m=2,n=3,square=true)); - assert(is_matrix([[2,3,4],[5,6,7],[8,9,10]],square=false)); - assert(!is_matrix([[2,3],[5,6],[8,9]],m=2,n=3)); - assert(!is_matrix([[2,3,4],[5,6,7]],m=3,n=2)); - assert(!is_matrix(undef)); - assert(!is_matrix(NAN)); - assert(!is_matrix(INF)); - assert(!is_matrix(-5)); - assert(!is_matrix(0)); - assert(!is_matrix(5)); - assert(!is_matrix("")); - assert(!is_matrix("foo")); - assert(!is_matrix([3,4,5])); - assert(!is_matrix([])); -} -test_is_matrix(); - - -module test_approx() { - assert_equal(approx(PI, 3.141592653589793236), true); - assert_equal(approx(PI, 3.1415926), false); - assert_equal(approx(PI, 3.1415926, eps=1e-6), true); - assert_equal(approx(-PI, -3.141592653589793236), true); - assert_equal(approx(-PI, -3.1415926), false); - assert_equal(approx(-PI, -3.1415926, eps=1e-6), true); - assert_equal(approx(1/3, 0.3333333333), true); - assert_equal(approx(-1/3, -0.3333333333), true); - assert_equal(approx(10*[cos(30),sin(30)], 10*[sqrt(3)/2, 1/2]), true); -} -test_approx(); - - -module test_min_index() { - vals = rands(-100,100,100); - minval = min(vals); - minidx = min_index(vals); - assert_equal(vals[minidx], minval); - assert_equal(min_index([3,4,5,6]), 0); - assert_equal(min_index([4,3,5,6]), 1); - assert_equal(min_index([4,5,3,6]), 2); - assert_equal(min_index([4,5,6,3]), 3); - assert_equal(min_index([6,5,4,3]), 3); - assert_equal(min_index([6,3,4,5]), 1); - assert_equal(min_index([-56,72,-874,5]), 2); -} -test_min_index(); - - -module test_max_index() { - vals = rands(-100,100,100); - maxval = max(vals); - maxidx = max_index(vals); - assert_equal(vals[maxidx], maxval); - assert_equal(max_index([3,4,5,6]), 3); - assert_equal(max_index([3,4,6,5]), 2); - assert_equal(max_index([3,6,4,5]), 1); - assert_equal(max_index([6,3,4,5]), 0); - assert_equal(max_index([5,6,4,3]), 1); - assert_equal(max_index([-56,72,-874,5]), 1); -} -test_max_index(); - - module test_posmod() { - assert_equal(posmod(-5,3), 1); - assert_equal(posmod(-4,3), 2); - assert_equal(posmod(-3,3), 0); - assert_equal(posmod(-2,3), 1); - assert_equal(posmod(-1,3), 2); - assert_equal(posmod(0,3), 0); - assert_equal(posmod(1,3), 1); - assert_equal(posmod(2,3), 2); - assert_equal(posmod(3,3), 0); + assert(posmod(-5,3) == 1); + assert(posmod(-4,3) == 2); + assert(posmod(-3,3) == 0); + assert(posmod(-2,3) == 1); + assert(posmod(-1,3) == 2); + assert(posmod(0,3) == 0); + assert(posmod(1,3) == 1); + assert(posmod(2,3) == 2); + assert(posmod(3,3) == 0); } test_posmod(); -module test_modang() { - assert_equal(modang(-700), 20); - assert_equal(modang(-270), 90); - assert_equal(modang(-120), -120); - assert_equal(modang(120), 120); - assert_equal(modang(270), -90); - assert_equal(modang(700), -20); -} -test_modang(); - - module test_modrange() { - assert_equal(modrange(-5,5,3), [1,2]); - assert_equal(modrange(-1,4,3), [2,0,1]); - assert_equal(modrange(1,8,10,step=2), [1,3,5,7]); - assert_equal(modrange(5,12,10,step=2), [5,7,9,1]); + assert(modrange(-5,5,3) == [1,2]); + assert(modrange(-1,4,3) == [2,0,1]); + assert(modrange(1,8,10,step=2) == [1,3,5,7]); + assert(modrange(5,12,10,step=2) == [5,7,9,1]); } test_modrange(); -module test_sqr() { - assert_equal(sqr(-3), 9); - assert_equal(sqr(0), 0); - assert_equal(sqr(1), 1); - assert_equal(sqr(2), 4); - assert_equal(sqr(2.5), 6.25); - assert_equal(sqr(3), 9); - assert_equal(sqr(16), 256); -} -test_sqr(); - - -module test_log2() { - assert_equal(log2(0.125), -3); - assert_equal(log2(16), 4); - assert_equal(log2(256), 8); -} -test_log2(); - - -module test_rand_int() { - nums = rand_int(-100,100,1000,seed=2134); - assert_equal(len(nums), 1000); - for (num = nums) { - assert(num>=-100); - assert(num<=100); - assert_equal(num, floor(num)); - } -} -test_rand_int(); - - -module test_gaussian_rands() { - nums1 = gaussian_rands(0,10,1000,seed=2132); - nums2 = gaussian_rands(0,10,1000,seed=2130); - nums3 = gaussian_rands(0,10,1000,seed=2132); - assert_equal(len(nums1), 1000); - assert_equal(len(nums2), 1000); - assert_equal(len(nums3), 1000); - assert_equal(nums1, nums3); - assert(nums1!=nums2); -} -test_gaussian_rands(); - - -module test_log_rands() { - nums1 = log_rands(0,100,10,1000,seed=2189); - nums2 = log_rands(0,100,10,1000,seed=2310); - nums3 = log_rands(0,100,10,1000,seed=2189); - assert_equal(len(nums1), 1000); - assert_equal(len(nums2), 1000); - assert_equal(len(nums3), 1000); - assert_equal(nums1, nums3); - assert(nums1!=nums2); -} -test_log_rands(); - - module test_segs() { - assert_equal(segs(50,$fn=8), 8); - assert_equal(segs(50,$fa=2,$fs=2), 158); + assert(segs(50,$fn=8) == 8); + assert(segs(50,$fa=2,$fs=2) == 158); } test_segs(); module test_lerp() { - assert_equal(lerp(-20,20,0), -20); - assert_equal(lerp(-20,20,0.25), -10); - assert_equal(lerp(-20,20,0.5), 0); - assert_equal(lerp(-20,20,0.75), 10); - assert_equal(lerp(-20,20,1), 20); - assert_equal(lerp(-20,20,[0,0.25,0.5,0.75,1]), [-20,-10,0,10,20]); - assert_equal(lerp(-20,20,[0:0.25:1]), [-20,-10,0,10,20]); - assert_equal(lerp([10,10],[30,-10],0.5), [20,0]); + assert(lerp(-20,20,0) == -20); + assert(lerp(-20,20,0.25) == -10); + assert(lerp(-20,20,0.5) == 0); + assert(lerp(-20,20,0.75) == 10); + assert(lerp(-20,20,1) == 20); + assert(lerp([10,10],[30,-10],0.5) == [20,0]); } test_lerp(); module test_hypot() { - assert_approx(hypot(20,30), norm([20,30])); + assert(hypot(20,30) == norm([20,30])); } test_hypot(); module test_sinh() { - assert_approx(sinh(-2), -3.6268604078); - assert_approx(sinh(-1), -1.1752011936); - assert_approx(sinh(0), 0); - assert_approx(sinh(1), 1.1752011936); - assert_approx(sinh(2), 3.6268604078); + assert(abs(sinh(-2)+3.6268604078) < eps); + assert(abs(sinh(-1)+1.1752011936) < eps); + assert(abs(sinh(0)) < eps); + assert(abs(sinh(1)-1.1752011936) < eps); + assert(abs(sinh(2)-3.6268604078) < eps); } test_sinh(); module test_cosh() { - assert_approx(cosh(-2), 3.7621956911); - assert_approx(cosh(-1), 1.5430806348); - assert_approx(cosh(0), 1); - assert_approx(cosh(1), 1.5430806348); - assert_approx(cosh(2), 3.7621956911); + assert(abs(cosh(-2)-3.7621956911) < eps); + assert(abs(cosh(-1)-1.5430806348) < eps); + assert(abs(cosh(0)-1) < eps); + assert(abs(cosh(1)-1.5430806348) < eps); + assert(abs(cosh(2)-3.7621956911) < eps); } test_cosh(); module test_tanh() { - assert_approx(tanh(-2), -0.9640275801); - assert_approx(tanh(-1), -0.761594156); - assert_approx(tanh(0), 0); - assert_approx(tanh(1), 0.761594156); - assert_approx(tanh(2), 0.9640275801); + assert(abs(tanh(-2)+0.9640275801) < eps); + assert(abs(tanh(-1)+0.761594156) < eps); + assert(abs(tanh(0)) < eps); + assert(abs(tanh(1)-0.761594156) < eps); + assert(abs(tanh(2)-0.9640275801) < eps); } test_tanh(); module test_asinh() { - assert_approx(asinh(sinh(-2)), -2); - assert_approx(asinh(sinh(-1)), -1); - assert_approx(asinh(sinh(0)), 0); - assert_approx(asinh(sinh(1)), 1); - assert_approx(asinh(sinh(2)), 2); + assert(abs(asinh(sinh(-2))+2) < eps); + assert(abs(asinh(sinh(-1))+1) < eps); + assert(abs(asinh(sinh(0))) < eps); + assert(abs(asinh(sinh(1))-1) < eps); + assert(abs(asinh(sinh(2))-2) < eps); } test_asinh(); module test_acosh() { - assert_approx(acosh(cosh(-2)), 2); - assert_approx(acosh(cosh(-1)), 1); - assert_approx(acosh(cosh(0)), 0); - assert_approx(acosh(cosh(1)), 1); - assert_approx(acosh(cosh(2)), 2); + assert(abs(acosh(cosh(-2))-2) < eps); + assert(abs(acosh(cosh(-1))-1) < eps); + assert(abs(acosh(cosh(0))) < eps); + assert(abs(acosh(cosh(1))-1) < eps); + assert(abs(acosh(cosh(2))-2) < eps); } test_acosh(); module test_atanh() { - assert_approx(atanh(tanh(-2)), -2); - assert_approx(atanh(tanh(-1)), -1); - assert_approx(atanh(tanh(0)), 0); - assert_approx(atanh(tanh(1)), 1); - assert_approx(atanh(tanh(2)), 2); + assert(abs(atanh(tanh(-2))+2) < eps); + assert(abs(atanh(tanh(-1))+1) < eps); + assert(abs(atanh(tanh(0))) < eps); + assert(abs(atanh(tanh(1))-1) < eps); + assert(abs(atanh(tanh(2))-2) < eps); } test_atanh(); module test_sum() { - assert_equal(sum([]), 0); - assert_equal(sum([],dflt=undef), undef); - assert_equal(sum([1,2,3]), 6); - assert_equal(sum([-2,-1,0,1,2]), 0); - assert_equal(sum([[1,2,3], [3,4,5], [5,6,7]]), [9,12,15]); + assert(sum([1,2,3]) == 6); + assert(sum([-2,-1,0,1,2]) == 0); + assert(sum([[1,2,3], [3,4,5], [5,6,7]]) == [9,12,15]); } test_sum(); -module test_cumsum() { - assert_equal(cumsum([]), []); - assert_equal(cumsum([1,1,1]), [1,2,3]); - assert_equal(cumsum([2,2,2]), [2,4,6]); - assert_equal(cumsum([1,2,3]), [1,3,6]); - assert_equal(cumsum([-2,-1,0,1,2]), [-2,-3,-3,-2,0]); - assert_equal(cumsum([[1,2,3], [3,4,5], [5,6,7]]), [[1,2,3],[4,6,8],[9,12,15]]); -} -test_cumsum(); - - module test_sum_of_squares() { - assert_equal(sum_of_squares([1,2,3]), 14); - assert_equal(sum_of_squares([1,2,4]), 21); - assert_equal(sum_of_squares([-3,-2,-1]), 14); + assert(sum_of_squares([1,2,3]) == 14); + assert(sum_of_squares([1,2,4]) == 21); + assert(sum_of_squares([-3,-2,-1]) == 14); } test_sum_of_squares(); module test_sum_of_sines() { - assert_equal(sum_of_sines(0, [[3,4,0],[2,2,0]]), 0); - assert_equal(sum_of_sines(45, [[3,4,0],[2,2,0]]), 2); - assert_equal(sum_of_sines(90, [[3,4,0],[2,2,0]]), 0); - assert_equal(sum_of_sines(135, [[3,4,0],[2,2,0]]), -2); - assert_equal(sum_of_sines(180, [[3,4,0],[2,2,0]]), 0); + assert(sum_of_sines(0, [[3,4,0],[2,2,0]]) == 0); + assert(sum_of_sines(45, [[3,4,0],[2,2,0]]) == 2); + assert(sum_of_sines(90, [[3,4,0],[2,2,0]]) == 0); + assert(sum_of_sines(135, [[3,4,0],[2,2,0]]) == -2); + assert(sum_of_sines(180, [[3,4,0],[2,2,0]]) == 0); } test_sum_of_sines(); -module test_deltas() { - assert_equal(deltas([2,5,9,17]), [3,4,8]); - assert_equal(deltas([[1,2,3], [3,6,8], [4,8,11]]), [[2,4,5], [1,2,3]]); -} -test_deltas(); - - -module test_product() { - assert_equal(product([2,3,4]), 24); - assert_equal(product([[1,2,3], [3,4,5], [5,6,7]]), [15, 48, 105]); - m1 = [[2,3,4],[4,5,6],[6,7,8]]; - m2 = [[4,1,2],[3,7,2],[8,7,4]]; - m3 = [[3,7,8],[9,2,4],[5,8,3]]; - assert_equal(product([m1,m2,m3]), m1*m2*m3); -} -test_product(); - - module test_mean() { - assert_equal(mean([2,3,4]), 3); - assert_equal(mean([[1,2,3], [3,4,5], [5,6,7]]), [3,4,5]); + assert(mean([2,3,4]) == 3); + assert(mean([[1,2,3], [3,4,5], [5,6,7]]) == [3,4,5]); } test_mean(); -module test_median() { - assert_equal(median([2,3,7]), 4.5); - assert_equal(median([[1,2,3], [3,4,5], [8,9,10]]), [4.5,5.5,6.5]); -} -test_median(); - - -module test_matrix_inverse() { - assert_approx(matrix_inverse(rot([20,30,40])), [[0.663413948169,0.556670399226,-0.5,0],[-0.47302145844,0.829769465589,0.296198132726,0],[0.579769465589,0.0400087565481,0.813797681349,0],[0,0,0,1]]); -} -test_matrix_inverse(); - - -module test_det2() { - assert_equal(det2([[6,-2], [1,8]]), 50); - assert_equal(det2([[4,7], [3,2]]), -13); - assert_equal(det2([[4,3], [3,4]]), 7); -} -test_det2(); - - -module test_det3() { - M = [ [6,4,-2], [1,-2,8], [1,5,7] ]; - assert_equal(det3(M), -334); -} -test_det3(); - - -module test_determinant() { - M = [ [6,4,-2,9], [1,-2,8,3], [1,5,7,6], [4,2,5,1] ]; - assert_equal(determinant(M), 2267); -} -test_determinant(); - - // Logic module test_compare_vals() { - assert(compare_vals(-10,0) < 0); - assert(compare_vals(10,0) > 0); - assert(compare_vals(10,10) == 0); + assert(compare_vals(-10,0) == -1); + assert(compare_vals(10,0) == 1); + assert(compare_vals(10,10) == 0); - assert(compare_vals("abc","abcd") < 0); - assert(compare_vals("abcd","abc") > 0); - assert(compare_vals("abcd","abcd") == 0); + assert(compare_vals("abc","abcd") == -1); + assert(compare_vals("abcd","abc") == 1); + assert(compare_vals("abcd","abcd") == 0); - assert(compare_vals(false,false) == 0); - assert(compare_vals(true,false) > 0); - assert(compare_vals(false,true) < 0); - assert(compare_vals(true,true) == 0); + assert(compare_vals(false,false) == 0); + assert(compare_vals(true,false) == 1); + assert(compare_vals(false,true) == -1); + assert(compare_vals(true,true) == 0); - assert(compare_vals([2,3,4], [2,3,4,5]) < 0); - assert(compare_vals([2,3,4,5], [2,3,4,5]) == 0); - assert(compare_vals([2,3,4,5], [2,3,4]) > 0); - assert(compare_vals([2,3,4,5], [2,3,5,5]) < 0); - assert(compare_vals([[2,3,4,5]], [[2,3,5,5]]) < 0); + assert(compare_vals([2,3,4], [2,3,4,5]) == -1); + assert(compare_vals([2,3,4,5], [2,3,4,5]) == 0); + assert(compare_vals([2,3,4,5], [2,3,4]) == 1); + assert(compare_vals([2,3,4,5], [2,3,5,5]) == -1); + assert(compare_vals([[2,3,4,5]], [[2,3,5,5]]) == -1); - assert(compare_vals([[2,3,4],[3,4,5]], [[2,3,4], [3,4,5]]) == 0); - assert(compare_vals([[2,3,4],[3,4,5]], [[2,3,4,5], [3,4,5]]) < 0); - assert(compare_vals([[2,3,4],[3,4,5]], [[2,3,4], [3,4,5,6]]) < 0); - assert(compare_vals([[2,3,4,5],[3,4,5]], [[2,3,4], [3,4,5]]) > 0); - assert(compare_vals([[2,3,4],[3,4,5,6]], [[2,3,4], [3,4,5]]) > 0); - assert(compare_vals([[2,3,4],[3,5,5]], [[2,3,4], [3,4,5]]) > 0); - assert(compare_vals([[2,3,4],[3,4,5]], [[2,3,4], [3,5,5]]) < 0); - - assert(compare_vals(undef, undef) == 0); - assert(compare_vals(undef, true) < 0); - assert(compare_vals(undef, 0) < 0); - assert(compare_vals(undef, "foo") < 0); - assert(compare_vals(undef, [2,3,4]) < 0); - assert(compare_vals(undef, [0:3]) < 0); - - assert(compare_vals(true, undef) > 0); - assert(compare_vals(true, true) == 0); - assert(compare_vals(true, 0) < 0); - assert(compare_vals(true, "foo") < 0); - assert(compare_vals(true, [2,3,4]) < 0); - assert(compare_vals(true, [0:3]) < 0); - - assert(compare_vals(0, undef) > 0); - assert(compare_vals(0, true) > 0); - assert(compare_vals(0, 0) == 0); - assert(compare_vals(0, "foo") < 0); - assert(compare_vals(0, [2,3,4]) < 0); - assert(compare_vals(0, [0:3]) < 0); - - assert(compare_vals(1, undef) > 0); - assert(compare_vals(1, true) > 0); - assert(compare_vals(1, 1) == 0); - assert(compare_vals(1, "foo") < 0); - assert(compare_vals(1, [2,3,4]) < 0); - assert(compare_vals(1, [0:3]) < 0); - - assert(compare_vals("foo", undef) > 0); - assert(compare_vals("foo", true) > 0); - assert(compare_vals("foo", 1) > 0); - assert(compare_vals("foo", "foo") == 0); - assert(compare_vals("foo", [2,3,4]) < 0); - assert(compare_vals("foo", [0:3]) < 0); - - assert(compare_vals([2,3,4], undef) > 0); - assert(compare_vals([2,3,4], true) > 0); - assert(compare_vals([2,3,4], 1) > 0); - assert(compare_vals([2,3,4], "foo") > 0); - assert(compare_vals([2,3,4], [2,3,4]) == 0); - assert(compare_vals([2,3,4], [0:3]) < 0); - - assert(compare_vals([0:3], undef) > 0); - assert(compare_vals([0:3], true) > 0); - assert(compare_vals([0:3], 1) > 0); - assert(compare_vals([0:3], "foo") > 0); - assert(compare_vals([0:3], [2,3,4]) > 0); - assert(compare_vals([0:3], [0:3]) == 0); + assert(compare_vals([[2,3,4],[3,4,5]], [[2,3,4], [3,4,5]]) == 0); + assert(compare_vals([[2,3,4],[3,4,5]], [[2,3,4,5], [3,4,5]]) == -1); + assert(compare_vals([[2,3,4],[3,4,5]], [[2,3,4], [3,4,5,6]]) == -1); + assert(compare_vals([[2,3,4,5],[3,4,5]], [[2,3,4], [3,4,5]]) == 1); + assert(compare_vals([[2,3,4],[3,4,5,6]], [[2,3,4], [3,4,5]]) == 1); + assert(compare_vals([[2,3,4],[3,5,5]], [[2,3,4], [3,4,5]]) == 1); + assert(compare_vals([[2,3,4],[3,4,5]], [[2,3,4], [3,5,5]]) == -1); } test_compare_vals(); module test_compare_lists() { - assert(compare_lists([2,3,4], [2,3,4,5]) < 0); - assert(compare_lists([2,3,4,5], [2,3,4,5]) == 0); - assert(compare_lists([2,3,4,5], [2,3,4]) > 0); - assert(compare_lists([2,3,4,5], [2,3,5,5]) < 0); + assert(compare_lists([2,3,4], [2,3,4,5]) == -1); + assert(compare_lists([2,3,4,5], [2,3,4,5]) == 0); + assert(compare_lists([2,3,4,5], [2,3,4]) == 1); + assert(compare_lists([2,3,4,5], [2,3,5,5]) == -1); - assert(compare_lists([[2,3,4],[3,4,5]], [[2,3,4], [3,4,5]]) == 0); - assert(compare_lists([[2,3,4],[3,4,5]], [[2,3,4,5], [3,4,5]]) < 0); - assert(compare_lists([[2,3,4],[3,4,5]], [[2,3,4], [3,4,5,6]]) < 0); - assert(compare_lists([[2,3,4,5],[3,4,5]], [[2,3,4], [3,4,5]]) > 0); - assert(compare_lists([[2,3,4],[3,4,5,6]], [[2,3,4], [3,4,5]]) > 0); - assert(compare_lists([[2,3,4],[3,5,5]], [[2,3,4], [3,4,5]]) > 0); - assert(compare_lists([[2,3,4],[3,4,5]], [[2,3,4], [3,5,5]]) < 0); + assert(compare_lists([[2,3,4],[3,4,5]], [[2,3,4], [3,4,5]]) == 0); + assert(compare_lists([[2,3,4],[3,4,5]], [[2,3,4,5], [3,4,5]]) == -1); + assert(compare_lists([[2,3,4],[3,4,5]], [[2,3,4], [3,4,5,6]]) == -1); + assert(compare_lists([[2,3,4,5],[3,4,5]], [[2,3,4], [3,4,5]]) == 1); + assert(compare_lists([[2,3,4],[3,4,5,6]], [[2,3,4], [3,4,5]]) == 1); + assert(compare_lists([[2,3,4],[3,5,5]], [[2,3,4], [3,4,5]]) == 1); + assert(compare_lists([[2,3,4],[3,4,5]], [[2,3,4], [3,5,5]]) == -1); - assert(compare_lists("cat", "bat") > 0); - assert(compare_lists(["cat"], ["bat"]) > 0); + assert(compare_lists("cat", "bat") == 1); + assert(compare_lists(["cat"], ["bat"]) == 1); } test_compare_lists(); module test_any() { - assert_equal(any([0,false,undef]), false); - assert_equal(any([1,false,undef]), true); - assert_equal(any([1,5,true]), true); - assert_equal(any([[0,0], [0,0]]), false); - assert_equal(any([[0,0], [1,0]]), true); + assert(any([0,false,undef]) == false); + assert(any([1,false,undef]) == true); + assert(any([1,5,true]) == true); + assert(any([[0,0], [0,0]]) == false); + assert(any([[0,0], [1,0]]) == true); } test_any(); module test_all() { - assert_equal(all([0,false,undef]), false); - assert_equal(all([1,false,undef]), false); - assert_equal(all([1,5,true]), true); - assert_equal(all([[0,0], [0,0]]), false); - assert_equal(all([[0,0], [1,0]]), false); - assert_equal(all([[1,1], [1,1]]), true); + assert(all([0,false,undef]) == false); + assert(all([1,false,undef]) == false); + assert(all([1,5,true]) == true); + assert(all([[0,0], [0,0]]) == false); + assert(all([[0,0], [1,0]]) == false); + assert(all([[1,1], [1,1]]) == true); } test_all(); module test_count_true() { - assert_equal(count_true([0,false,undef]), 0); - assert_equal(count_true([1,false,undef]), 1); - assert_equal(count_true([1,5,false]), 2); - assert_equal(count_true([1,5,true]), 3); - assert_equal(count_true([[0,0], [0,0]]), 0); - assert_equal(count_true([[0,0], [1,0]]), 1); - assert_equal(count_true([[1,1], [1,1]]), 4); - assert_equal(count_true([[1,1], [1,1]], nmax=3), 3); + assert(count_true([0,false,undef]) == 0); + assert(count_true([1,false,undef]) == 1); + assert(count_true([1,5,false]) == 2); + assert(count_true([1,5,true]) == 3); + assert(count_true([[0,0], [0,0]]) == 0); + assert(count_true([[0,0], [1,0]]) == 1); + assert(count_true([[1,1], [1,1]]) == 4); + assert(count_true([[1,1], [1,1]], nmax=3) == 3); } test_count_true(); -module test_factorial() { - assert_equal(factorial(1), 1); - assert_equal(factorial(2), 2); - assert_equal(factorial(3), 6); - assert_equal(factorial(4), 24); - assert_equal(factorial(5), 120); - assert_equal(factorial(6), 720); - assert_equal(factorial(7), 5040); - assert_equal(factorial(8), 40320); + +// List/Array Ops + +module test_cdr() { + assert(cdr([]) == []); + assert(cdr([88]) == []); + assert(cdr([1,2,3]) == [2,3]); + assert(cdr(["a","b","c"]) == ["b","c"]); } -test_factorial(); +test_cdr(); -module test_gcd() { - assert_equal(gcd(15,25), 5); - assert_equal(gcd(15,27), 3); - assert_equal(gcd(270,405), 135); +module test_replist() { + assert(replist(1, 4) == [1,1,1,1]); + assert(replist(8, [2,3]) == [[8,8,8], [8,8,8]]); + assert(replist(0, [2,2,3]) == [[[0,0,0],[0,0,0]], [[0,0,0],[0,0,0]]]); + assert(replist([1,2,3],3) == [[1,2,3], [1,2,3], [1,2,3]]); } -test_gcd(); +test_replist(); -module test_lcm() { - assert_equal(lcm(15,25), 75); - assert_equal(lcm(15,27), 135); - assert_equal(lcm(270,405), 810); +module test_in_list() { + assert(in_list("bar", ["foo", "bar", "baz"])); + assert(!in_list("bee", ["foo", "bar", "baz"])); + assert(in_list("bar", [[2,"foo"], [4,"bar"], [3,"baz"]], idx=1)); } -test_lcm(); +test_in_list(); +module test_slice() { + assert(slice([3,4,5,6,7,8,9], 3, 5) == [6,7]); + assert(slice([3,4,5,6,7,8,9], 2, -1) == [5,6,7,8,9]); + assert(slice([3,4,5,6,7,8,9], 1, 1) == []); + assert(slice([3,4,5,6,7,8,9], 6, -1) == [9]); + assert(slice([3,4,5,6,7,8,9], 2, -2) == [5,6,7,8]); +} +test_slice(); -// vim: expandtab tabstop=4 shiftwidth=4 softtabstop=4 nowrap + +module test_select() { + l = [3,4,5,6,7,8,9]; + assert(select(l, 5, 6) == [8,9]); + assert(select(l, 5, 8) == [8,9,3,4]); + assert(select(l, 5, 2) == [8,9,3,4,5]); + assert(select(l, -3, -1) == [7,8,9]); + assert(select(l, 3, 3) == [6]); + assert(select(l, 4) == 7); + assert(select(l, -2) == 8); + assert(select(l, [1:3]) == [4,5,6]); + assert(select(l, [1,3]) == [4,6]); +} +test_select(); + + +module test_reverse() { + assert(reverse([3,4,5,6]) == [6,5,4,3]); +} +test_reverse(); + + +module test_array_subindex() { + v = [[1,2,3,4],[5,6,7,8],[9,10,11,12],[13,14,15,16]]; + assert(array_subindex(v,2) == [3, 7, 11, 15]); + assert(array_subindex(v,[2,1]) == [[3, 2], [7, 6], [11, 10], [15, 14]]); + assert(array_subindex(v,[1:3]) == [[2, 3, 4], [6, 7, 8], [10, 11, 12], [14, 15, 16]]); +} +test_array_subindex(); + + +module test_list_range() { + assert(list_range(4) == [0,1,2,3]); + assert(list_range(n=4, step=2) == [0,2,4,6]); + assert(list_range(n=4, s=3, step=3) == [3,6,9,12]); + assert(list_range(n=4, s=3, e=9, step=3) == [3,6,9]); + assert(list_range(e=3) == [0,1,2,3]); + assert(list_range(e=6, step=2) == [0,2,4,6]); + assert(list_range(s=3, e=5) == [3,4,5]); + assert(list_range(s=3, e=8, step=2) == [3,5,7]); + assert(list_range(s=4, e=8, step=2) == [4,6,8]); + assert(list_range(n=4, s=[3,4], step=[2,3]) == [[3,4], [5,7], [7,10], [9,13]]); +} +test_list_range(); + + +module test_array_shortest() { + assert(array_shortest(["foobar", "bazquxx", "abcd"]) == 4); +} +test_array_shortest(); + + +module test_array_longest() { + assert(array_longest(["foobar", "bazquxx", "abcd"]) == 7); +} +test_array_longest(); + + +module test_array_pad() { + assert(array_pad([4,5,6], 5, 8) == [4,5,6,8,8]); + assert(array_pad([4,5,6,7,8], 5, 8) == [4,5,6,7,8]); + assert(array_pad([4,5,6,7,8,9], 5, 8) == [4,5,6,7,8,9]); +} +test_array_pad(); + + +module test_array_trim() { + assert(array_trim([4,5,6], 5) == [4,5,6]); + assert(array_trim([4,5,6,7,8], 5) == [4,5,6,7,8]); + assert(array_trim([3,4,5,6,7,8,9], 5) == [3,4,5,6,7]); +} +test_array_trim(); + + +module test_array_fit() { + assert(array_fit([4,5,6], 5, 8) == [4,5,6,8,8]); + assert(array_fit([4,5,6,7,8], 5, 8) == [4,5,6,7,8]); + assert(array_fit([3,4,5,6,7,8,9], 5, 8) == [3,4,5,6,7]); +} +test_array_fit(); + + +module test_enumerate() { + assert(enumerate(["a","b","c"]) == [[0,"a"], [1,"b"], [2,"c"]]); + assert(enumerate([[88,"a"],[76,"b"],[21,"c"]], idx=1) == [[0,"a"], [1,"b"], [2,"c"]]); + assert(enumerate([["cat","a",12],["dog","b",10],["log","c",14]], idx=[1:2]) == [[0,"a",12], [1,"b",10], [2,"c",14]]); +} +test_enumerate(); + + +module test_array_zip() { + v1 = [1,2,3,4]; + v2 = [5,6,7]; + v3 = [8,9,10,11]; + assert(array_zip(v1,v3) == [[1,8],[2,9],[3,10],[4,11]]); + assert(array_zip([v1,v3]) == [[1,8],[2,9],[3,10],[4,11]]); + assert(array_zip([v1,v2],fit="short") == [[1,5],[2,6],[3,7]]); + assert(array_zip([v1,v2],fit="long") == [[1,5],[2,6],[3,7],[4,undef]]); + assert(array_zip([v1,v2],fit="long", fill=0) == [[1,5],[2,6],[3,7],[4,0]]); + assert(array_zip([v1,v2,v3],fit="long") == [[1,5,8],[2,6,9],[3,7,10],[4,undef,11]]); +} +test_array_zip(); + + +module test_array_group() { + v = [1,2,3,4,5,6]; + assert(array_group(v,2) == [[1,2], [3,4], [5,6]]); + assert(array_group(v,3) == [[1,2,3], [4,5,6]]); + assert(array_group(v,4,0) == [[1,2,3,4], [5,6,0,0]]); +} +test_array_group(); + + +module test_flatten() { + assert(flatten([[1,2,3], [4,5,[6,7,8]]]) == [1,2,3,4,5,[6,7,8]]); +} +test_flatten(); + + +module test_sort() { + assert(sort([7,3,9,4,3,1,8]) == [1,3,3,4,7,8,9]); + assert(sort(["cat", "oat", "sat", "bat", "vat", "rat", "pat", "mat", "fat", "hat", "eat"]) == ["bat", "cat", "eat", "fat", "hat", "mat", "oat", "pat", "rat", "sat", "vat"]); + assert(sort(enumerate([[2,3,4],[1,2,3],[2,4,3]]),idx=1)==[[1,[1,2,3]], [0,[2,3,4]], [2,[2,4,3]]]); +} +test_sort(); + + +module test_sortidx() { + lst1 = ["d","b","e","c"]; + assert(sortidx(lst1) == [1,3,0,2]); + lst2 = [ + ["foo", 88, [0,0,1], false], + ["bar", 90, [0,1,0], true], + ["baz", 89, [1,0,0], false], + ["qux", 23, [1,1,1], true] + ]; + assert(sortidx(lst2, idx=1) == [3,0,2,1]); + assert(sortidx(lst2, idx=0) == [1,2,0,3]); + assert(sortidx(lst2, idx=[1,3]) == [3,0,2,1]); + lst3 = [[-4, 0, 0], [0, 0, -4], [0, -4, 0], [-4, 0, 0], [0, -4, 0], [0, 0, 4], [0, 0, -4], [0, 4, 0], [4, 0, 0], [0, 0, 4], [0, 4, 0], [4, 0, 0]]; + assert(sortidx(lst3)==[0,3,2,4,1,6,5,9,7,10,8,11]); +} +test_sortidx(); + + +module test_unique() { + assert(unique([]) == []); + assert(unique([8]) == [8]); + assert(unique([7,3,9,4,3,1,8]) == [1,3,4,7,8,9]); +} +test_unique(); + + +module test_array_dim() { + assert(array_dim([[[1,2,3],[4,5,6]],[[7,8,9],[10,11,12]]]) == [2,2,3]); + assert(array_dim([[[1,2,3],[4,5,6]],[[7,8,9],[10,11,12]]], 0) == 2); + assert(array_dim([[[1,2,3],[4,5,6]],[[7,8,9],[10,11,12]]], 2) == 3); + assert(array_dim([[[1,2,3],[4,5,6]],[[7,8,9]]]) == [2,undef,3]); +} +test_array_dim(); + + +module test_vmul() { + assert(vmul([3,4,5], [8,7,6]) == [24,28,30]); + assert(vmul([1,2,3], [4,5,6]) == [4,10,18]); +} +test_vmul(); + + +module test_vdiv() { + assert(vdiv([24,28,30], [8,7,6]) == [3, 4, 5]); +} +test_vdiv(); + + +module test_vabs() { + assert(vabs([2,4,8]) == [2,4,8]); + assert(vabs([-2,-4,-8]) == [2,4,8]); + assert(vabs([-2,4,8]) == [2,4,8]); + assert(vabs([2,-4,8]) == [2,4,8]); + assert(vabs([2,4,-8]) == [2,4,8]); +} +test_vabs(); + + +module test_normalize() { + assert(normalize([10,0,0]) == [1,0,0]); + assert(normalize([0,10,0]) == [0,1,0]); + assert(normalize([0,0,10]) == [0,0,1]); + assert(abs(norm(normalize([10,10,10]))-1) < eps); + assert(abs(norm(normalize([-10,-10,-10]))-1) < eps); + assert(abs(norm(normalize([-10,0,0]))-1) < eps); + assert(abs(norm(normalize([0,-10,0]))-1) < eps); + assert(abs(norm(normalize([0,0,-10]))-1) < eps); +} +test_normalize(); + + +module test_vector_angle() { + vecs = [[10,0,0], [-10,0,0], [0,10,0], [0,-10,0], [0,0,10], [0,0,-10]]; + for (a=vecs, b=vecs) { + if(a==b) { + assert(vector_angle(a,b)==0); + } else if(a==-b) { + assert(vector_angle(a,b)==180); + } else { + assert(vector_angle(a,b)==90); + } + } + assert(abs(vector_angle([10,10,0],[10,0,0])-45) < eps); +} +test_vector_angle(); + + +module test_vector_axis() { + assert(norm(vector_axis([10,0,0],[10,10,0]) - [0,0,1]) < eps); + assert(norm(vector_axis([10,0,0],[0,10,0]) - [0,0,1]) < eps); + assert(norm(vector_axis([0,10,0],[10,0,0]) - [0,0,-1]) < eps); + assert(norm(vector_axis([0,0,10],[10,0,0]) - [0,1,0]) < eps); + assert(norm(vector_axis([10,0,0],[0,0,10]) - [0,-1,0]) < eps); + assert(norm(vector_axis([10,0,10],[0,-10,0]) - [sin(45),0,-sin(45)]) < eps); +} +test_vector_axis(); + + +module test_point2d() { + assert(point2d([1,2,3])==[1,2]); + assert(point2d([2,3])==[2,3]); + assert(point2d([1])==[1,0]); +} +test_point2d(); + + +module test_path2d() { + assert(path2d([[1], [1,2], [1,2,3], [1,2,3,4], [1,2,3,4,5]])==[[1,0],[1,2],[1,2],[1,2],[1,2]]); +} +test_path2d(); + + +module test_point3d() { + assert(point3d([1,2,3,4,5])==[1,2,3]); + assert(point3d([1,2,3,4])==[1,2,3]); + assert(point3d([1,2,3])==[1,2,3]); + assert(point3d([2,3])==[2,3,0]); + assert(point3d([1])==[1,0,0]); +} +test_point3d(); + + +module test_path3d() { + assert(path3d([[1], [1,2], [1,2,3], [1,2,3,4], [1,2,3,4,5]])==[[1,0,0],[1,2,0],[1,2,3],[1,2,3],[1,2,3]]); +} +test_path3d(); + + +module test_translate_points() { + pts = [[0,0,1], [0,1,0], [1,0,0], [0,0,-1], [0,-1,0], [-1,0,0]]; + assert(translate_points(pts, v=[1,2,3]) == [[1,2,4], [1,3,3], [2,2,3], [1,2,2], [1,1,3], [0,2,3]]); + assert(translate_points(pts, v=[-1,-2,-3]) == [[-1,-2,-2], [-1,-1,-3], [0,-2,-3], [-1,-2,-4], [-1,-3,-3], [-2,-2,-3]]); +} +test_translate_points(); + + +module test_scale_points() { + pts = [[0,0,1], [0,1,0], [1,0,0], [0,0,-1], [0,-1,0], [-1,0,0]]; + assert(scale_points(pts, v=[2,3,4]) == [[0,0,4], [0,3,0], [2,0,0], [0,0,-4], [0,-3,0], [-2,0,0]]); + assert(scale_points(pts, v=[-2,-3,-4]) == [[0,0,-4], [0,-3,0], [-2,0,0], [0,0,4], [0,3,0], [2,0,0]]); + assert(scale_points(pts, v=[1,1,1]) == [[0,0,1], [0,1,0], [1,0,0], [0,0,-1], [0,-1,0], [-1,0,0]]); + assert(scale_points(pts, v=[-1,-1,-1]) == [[0,0,-1], [0,-1,0], [-1,0,0], [0,0,1], [0,1,0], [1,0,0]]); +} +test_scale_points(); + + +module test_rotate_points2d() { + pts = [[0,1], [1,0], [0,-1], [-1,0]]; + s = sin(45); + assert(rotate_points2d(pts,45) == [[-s,s],[s,s],[s,-s],[-s,-s]]); + assert(rotate_points2d(pts,90) == [[-1,0],[0,1],[1,0],[0,-1]]); + assert(rotate_points2d(pts,90,cp=[1,0]) == [[0,-1],[1,0],[2,-1],[1,-2]]); +} +test_rotate_points2d(); + + +module test_rotate_points3d() { + pts = [[0,0,1], [0,1,0], [1,0,0], [0,0,-1], [0,-1,0], [-1,0,0]]; + assert(rotate_points3d(pts, [90,0,0]) == [[0,-1,0], [0,0,1], [1,0,0], [0,1,0], [0,0,-1], [-1,0,0]]); + assert(rotate_points3d(pts, [0,90,0]) == [[1,0,0], [0,1,0], [0,0,-1], [-1,0,0], [0,-1,0], [0,0,1]]); + assert(rotate_points3d(pts, [0,0,90]) == [[0,0,1], [-1,0,0], [0,1,0], [0,0,-1], [1,0,0], [0,-1,0]]); + assert(rotate_points3d(pts, [0,0,90],cp=[2,0,0]) == [[2,-2,1], [1,-2,0], [2,-1,0], [2,-2,-1], [3,-2,0], [2,-3,0]]); + assert(rotate_points3d(pts, 90, axis=V_UP) == [[0,0,1], [-1,0,0], [0,1,0], [0,0,-1], [1,0,0], [0,-1,0]]); + assert(rotate_points3d(pts, 90, axis=V_DOWN) == [[0,0,1], [1,0,0], [0,-1,0], [0,0,-1], [-1,0,0], [0,1,0]]); + assert(rotate_points3d(pts, 90, axis=V_RIGHT) == [[0,-1,0], [0,0,1], [1,0,0], [0,1,0], [0,0,-1], [-1,0,0]]); + assert(rotate_points3d(pts, from=V_UP, to=V_BACK) == [[0,1,0], [0,0,-1], [1,0,0], [0,-1,0], [0,0,1], [-1,0,0]]); + assert(rotate_points3d(pts, 90, from=V_UP, to=V_BACK), [[0,1,0], [-1,0,0], [0,0,-1], [0,-1,0], [1,0,0], [0,0,1]]); + assert(rotate_points3d(pts, from=V_UP, to=V_UP*2) == [[0,0,1], [0,1,0], [1,0,0], [0,0,-1], [0,-1,0], [-1,0,0]]); + assert(rotate_points3d(pts, from=V_UP, to=V_DOWN*2) == [[0,0,-1], [0,1,0], [-1,0,0], [0,0,1], [0,-1,0], [1,0,0]]); +} +test_rotate_points3d(); + + +module test_simplify_path() +{ + path = [[-20,10],[-10,0],[-5,0],[0,0],[5,0],[10,0], [10,10]]; + assert(simplify_path(path) == [[-20,10],[-10,0],[10,0], [10,10]]); +} +test_simplify_path(); + + +module test_simplify_path_indexed() +{ + points = [[-20,10],[-10,0],[-5,0],[0,0],[5,0],[10,0], [10,10]]; + path = list_range(len(points)); + assert(simplify_path_indexed(points, path) == [0,1,5,6]); +} +test_simplify_path_indexed(); + + +// vim: noexpandtab tabstop=4 shiftwidth=4 softtabstop=4 nowrap