Filter: Expand testing of large community sets

eclist el;

eclist el2;

lclist ll;

lclist ll2;

{

	print "Entering path test...";

	pm1 =  / 4 3 2 1 /;

	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();

}