tests/bgpd.tests/aspathtest.exp

   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