-define xyzzy = 120+10;
-
-function startup ()
-int i;
-{
- print "Bird filter language: selftesting...";
- i = 4;
- i = 1230 + i;
- print "Testing arithmetics: 1234 = " i;
- if i = 4 then { print "*** FAIL: if 0"; quitbird; } else print "test 1 passed";
- if 1234 = i then print "test 2 passed"; else { print "*** FAIL: if 1 else"; }
- if 1 <= 1 then print "test 3 passed"; else { print "*** FAIL: test 3"; }
- if 1234 < 1234 then { print "*** FAIL: test 4"; quitbird; } else print "test 4 passed";
-
- print "Testing IP addresses: 1.2.3.4 = " 1.2.3.4;
- print "Testing sets of ints = " [ 1, 2, 3 ];
- print "Testing sets of ints = " [ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20 ];
- print "Testing sets of IPs = " [ 1.2.3.4, 2.3.4.5, 3.4.5.6 ];
- print "Sets: true = " 1 ~ [ 1, 2, 3 ];
- print " false = " 1 ~ [ 2, 3, 4 ];
- print "a..b: true = " 5 ~ [ 4 .. 7 ];
- print " false = " 5 ~ [ 2, 3, 4, 7..11 ];
- print "IPsets: true = " 1.2.3.4 ~ [ 1.2.3.3..1.2.3.5 ];
- print " false = " 1.2.3.4 ~ [ 1.2.3.3, 1.2.3.5 ];
-
- print "done";
-# quitbird;
- print "*** FAIL: this is unreachable";
-}
-
-filter testf
-int j;
-{
- print "Heya, filtering route to " rta.net.ip " prefixlen " rta.net.len;
- print "This route was from " rta.from;
- accept;
-}
-
-protocol rip MyRIP_test {
- preference xyzzy;
- debug all;
- port 1520;
- period 5;
- garbagetime 30;
- interface "*";
- export filter testf;
-}