Return to aspathtest.exp CVS log | Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / quagga / tests / bgpd.tests |
1.1 ! misho 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: