| David Lamparter | 5bb7e4d | 2013-02-26 17:53:30 +0100 | [diff] [blame] | 1 | set timeout 10 |
| 2 | set testprefix "aspathtest " |
| 3 | set aborted 0 |
| 4 | set color 1 |
| 5 | |
| 6 | spawn "./aspathtest" |
| 7 | |
| 8 | # proc onetest { test_name note start } { |
| 9 | # proc headerline { line } { |
| 10 | |
| 11 | set parserno 0 |
| 12 | proc parsertest { test_name } { |
| 13 | global parserno |
| 14 | headerline "test $parserno" |
| 15 | onetest "parse $test_name" " ($parserno)" "$test_name:" |
| 16 | onetest "parse $test_name +empty_prepend" " (#$parserno)" "empty prepend $test_name:" |
| 17 | incr parserno 1 |
| 18 | } |
| 19 | set attrno 0 |
| 20 | proc attrtest { test_name } { |
| 21 | global attrno |
| 22 | headerline "aspath_attr test $attrno" |
| 23 | onetest "attr $test_name" " (#$attrno)" "$test_name" |
| 24 | incr attrno 1 |
| 25 | } |
| 26 | |
| 27 | |
| 28 | parsertest "seq1" |
| 29 | parsertest "seq2" |
| 30 | parsertest "seq3" |
| 31 | parsertest "seqset" |
| 32 | parsertest "seqset2" |
| 33 | parsertest "multi" |
| 34 | parsertest "confed" |
| 35 | parsertest "confed2" |
| 36 | parsertest "confset" |
| 37 | parsertest "confmulti" |
| 38 | parsertest "seq4" |
| 39 | parsertest "tripleseq1" |
| 40 | parsertest "someprivate" |
| 41 | parsertest "allprivate" |
| 42 | parsertest "long" |
| 43 | parsertest "seq1extra" |
| 44 | parsertest "empty" |
| 45 | parsertest "redundantset" |
| 46 | parsertest "reconcile_lead_asp" |
| 47 | parsertest "reconcile_new_asp" |
| 48 | parsertest "reconcile_confed" |
| 49 | parsertest "reconcile_start_trans" |
| 50 | parsertest "reconcile_start_trans4" |
| 51 | parsertest "reconcile_start_trans_error" |
| 52 | parsertest "redundantset2" |
| 53 | parsertest "zero-size overflow" |
| 54 | parsertest "zero-size overflow + valid segment" |
| 55 | parsertest "invalid segment type" |
| 56 | |
| 57 | for {set i 0} {$i < 10} {incr i 1} { onetest "prepend $i" "" "prepend test $i"; } |
| 58 | for {set i 0} {$i < 5} {incr i 1} { onetest "aggregate $i" "" "aggregate test $i"; } |
| 59 | for {set i 0} {$i < 5} {incr i 1} { onetest "reconcile $i" "" "reconcile test $i"; } |
| 60 | for {set i 0} {$i < 22} {incr i 1} { onetest "compare $i" "" "left cmp "; } |
| 61 | |
| 62 | onetest "empty_get" "" "empty_get_test" |
| 63 | attrtest "basic test" |
| 64 | attrtest "length too short" |
| 65 | attrtest "length too long" |
| 66 | attrtest "incorrect flag" |
| 67 | attrtest "as4_path, with as2 format data" |
| 68 | attrtest "as4, with incorrect attr length" |
| 69 | attrtest "basic 4-byte as-path" |
| 70 | attrtest "4b AS_PATH: too short" |
| 71 | attrtest "4b AS_PATH: too long" |
| 72 | attrtest "4b AS_PATH: too long2" |
| 73 | attrtest "4b AS_PATH: bad flags" |
| 74 | attrtest "4b AS4_PATH w/o AS_PATH" |
| 75 | attrtest "4b AS4_PATH: confed" |
| 76 | |