add path.scad tests, shift tests to correct files

path_extrude2d bugfix

tests/test_comparisons.scad

@@ -280,3 +280,114 @@ module test_approx() {
     assert_equal(approx([1,[1,undef]], [1+1e-12,[1,undef]]), true);
 }
 test_approx();
+
+
+
+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_compare_vals() {
+    assert(compare_vals(-10,0) < 0);
+    assert(compare_vals(10,0) > 0);
+    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(false,false) == 0);
+    assert(compare_vals(true,false) > 0);
+    assert(compare_vals(false,true) < 0);
+    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],[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);
+}
+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],[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("cat", "bat") > 0);
+    assert(compare_lists(["cat"], ["bat"]) > 0);
+}
+test_compare_lists();
+