mirror of
https://gitlab.nic.cz/labs/bird.git
synced 2024-11-19 17:48:43 +00:00
Filter: Expand testing of large community sets
This commit is contained in:
parent
2e7fb11a6e
commit
5fd7dacadc
@ -95,6 +95,7 @@ clist l2;
|
|||||||
eclist el;
|
eclist el;
|
||||||
eclist el2;
|
eclist el2;
|
||||||
lclist ll;
|
lclist ll;
|
||||||
|
lclist ll2;
|
||||||
{
|
{
|
||||||
print "Entering path test...";
|
print "Entering path test...";
|
||||||
pm1 = / 4 3 2 1 /;
|
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 "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, *)]);
|
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();
|
# test_roa();
|
||||||
}
|
}
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user