diff --git a/filter/test.conf b/filter/test.conf index e8873fbf..7623953a 100644 --- a/filter/test.conf +++ b/filter/test.conf @@ -95,6 +95,7 @@ clist l2; eclist el; eclist el2; lclist ll; +lclist ll2; { print "Entering path test..."; pm1 = / 4 3 2 1 /; @@ -220,6 +221,22 @@ lclist ll; print "Should be false: ", mktrip(100) ~ ll, " ", ll ~ [(5,10,15), (10,21,30)], " ", ll ~ [(10,21..25,*)], " ", ll ~ [(11, *, *)]; print "LC filtered: ", filter(ll, [(5..15, *, *), (100000, 500..500000, *)]); + ll = --- empty ---; + ll = add(ll, (10, 10, 10)); + ll = add(ll, (20, 20, 20)); + ll = add(ll, (30, 30, 30)); + + ll2 = --- empty ---; + ll2 = add(ll2, (20, 20, 20)); + ll2 = add(ll2, (30, 30, 30)); + ll2 = add(ll2, (40, 40, 40)); + + print "lclist A (10,20,30): ", ll; + print "lclist B (30,40,50): ", ll2; + print "lclist A union B: ", add(ll, ll2); + print "lclist A isect B: ", filter(ll, ll2); + print "lclist A \ B: ", delete(ll, ll2); + # test_roa(); }