Filter: Expand testing of large community sets

diff --git a/filter/test.conf b/filter/test.conf
index e8873fbf877fb73ab0420500ccbb38a5c6de4630..7623953ac861d03a8325f67a5e68a0bac4c70fcf 100644 (file)
--- 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();
 }