mirror of
				https://gitlab.labs.nic.cz/labs/bird.git
				synced 2024-05-11 16:54:54 +00:00 
			
		
		
		
	Filter: Expand testing of large community sets
This commit is contained in:
		| @@ -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(); | ||||||
| } | } | ||||||
|  |  | ||||||
|   | |||||||
		Reference in New Issue
	
	Block a user