Return to packets.exp CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / arping / extra

arping 2.21

    1: #!/usr/bin/expect -f
    2: #
    3: # Usage: packets.exp <path to arping>
    4: #
    5: # Uses dummy0 interface on linux to verify that packets are byte-perfect
    6: # when they're sent out from arping.
    7: #
    8: # Ideas:
    9: #   * Run this with a new network namespace, to eliminate stray packets.
   10: #   * Merge with testing.exp.
   11: #
   12: # Currently tested:
   13: #  -b
   14: #  -d
   15: #  -0
   16: #  -S
   17: #
   18: set bin [lindex $argv 0]
   19: set DEV "dummy0"
   20: set my_mac "52:2b:c8:01:02:03"
   21: set PACKETDUMP "packetdump.pcap"
   22: 
   23: proc dotest {name count filter cmd lines} {
   24:     upvar DEV DEV
   25:     upvar PACKETDUMP PACKETDUMP
   26:     upvar bin bin
   27:     upvar my_mac my_mac
   28: 
   29:     send_user -- "----------- $name -----------\n"
   30:     send_user -- "Command: $cmd\n"
   31:     spawn ip a a 192.0.2.100/24 dev "$DEV"
   32:     expect eof
   33: 
   34:     spawn ip l set dev "$DEV" address "$my_mac"
   35:     expect eof
   36: 
   37:     spawn ip l set up "$DEV"
   38:     expect eof
   39: 
   40:     spawn tcpdump -c $count -i "$DEV" -s1500 -w "${PACKETDUMP}" "${filter}"
   41:     set tcpdump_id $spawn_id
   42:     expect -re "tcpdump: listening on .*bytes\r"
   43: 
   44:     spawn $bin {*}[eval "concat $cmd"]
   45:     expect eof
   46: 
   47:     spawn ip l set down "$DEV"
   48:     spawn ip a d 192.0.2.100/24 dev "$DEV"
   49: 
   50:     set spawn_id $tcpdump_id
   51:     wait
   52: 
   53:     spawn -noecho tcpdump -etnXXr "${PACKETDUMP}" "${filter}"
   54:     #log_user 0
   55:     foreach l $lines {
   56:         puts "Expecting: $l"
   57:         expect "$l\r"
   58:     }
   59:     expect eof
   60:     #log_user 1
   61: }
   62: 
   63: 
   64: dotest "Simple" 1 "arp" {-c 1 -i "$DEV" 192.0.2.1} {
   65:     "52:2b:c8:01:02:03 > ff:ff:ff:ff:ff:ff, ethertype ARP (0x0806), length 42: Request who-has 192.0.2.1 tell 192.0.2.100, length 28"
   66:     "\t0x0000:  ffff ffff ffff 522b c801 0203 0806 0001  ......R+........"
   67:     "\t0x0010:  0800 0604 0001 522b c801 0203 c000 0264  ......R+.......d"
   68:     "\t0x0020:  0000 0000 0000 c000 0201                 .........."
   69: }
   70: 
   71: dotest "SrcIP 0 -0" 1 "arp" {-0 -c 1 -i "$DEV" 192.0.2.1} {
   72:     "52:2b:c8:01:02:03 > ff:ff:ff:ff:ff:ff, ethertype ARP (0x0806), length 42: Request who-has 192.0.2.1 tell 0.0.0.0, length 28"
   73:     "\t0x0000:  ffff ffff ffff 522b c801 0203 0806 0001  ......R+........"
   74:     "\t0x0010:  0800 0604 0001 522b c801 0203 0000 0000  ......R+........"
   75:     "\t0x0020:  0000 0000 0000 c000 0201                 .........."
   76: }
   77: 
   78: dotest "SrcIP bc -b" 1 "arp" {-b -c 1 -i "$DEV" 192.0.2.1} {
   79:     "52:2b:c8:01:02:03 > ff:ff:ff:ff:ff:ff, ethertype ARP (0x0806), length 42: Request who-has 192.0.2.1 tell 255.255.255.255, length 28"
   80:     "\t0x0000:  ffff ffff ffff 522b c801 0203 0806 0001  ......R+........"
   81:     "\t0x0010:  0800 0604 0001 522b c801 0203 ffff ffff  ......R+........"
   82:     "\t0x0020:  0000 0000 0000 c000 0201                 .........."
   83: }
   84: 
   85: dotest "SrcIP bc manual" 1 "arp" {-S 255.255.255.255 -c 1 -i "$DEV" 192.0.2.1} {
   86:     "52:2b:c8:01:02:03 > ff:ff:ff:ff:ff:ff, ethertype ARP (0x0806), length 42: Request who-has 192.0.2.1 tell 255.255.255.255, length 28"
   87:     "\t0x0000:  ffff ffff ffff 522b c801 0203 0806 0001  ......R+........"
   88:     "\t0x0010:  0800 0604 0001 522b c801 0203 ffff ffff  ......R+........"
   89:     "\t0x0020:  0000 0000 0000 c000 0201                 .........."
   90: }
   91: 
   92: dotest "SrcIP other manual" 1 "arp" {-S 61.62.63.64 -c 1 -i "$DEV" 192.0.2.1} {
   93:     "52:2b:c8:01:02:03 > ff:ff:ff:ff:ff:ff, ethertype ARP (0x0806), length 42: Request who-has 192.0.2.1 tell 61.62.63.64, length 28"
   94:     "\t0x0000:  ffff ffff ffff 522b c801 0203 0806 0001  ......R+........"
   95:     "\t0x0010:  0800 0604 0001 522b c801 0203 3d3e 3f40  ......R+....=>?@"
   96:     "\t0x0020:  0000 0000 0000 c000 0201                 .........."
   97: }
   98: 
   99: dotest "Finddup" 1 "arp" {-c 1 -d -i "$DEV"} {
  100:     "52:2b:c8:01:02:03 > ff:ff:ff:ff:ff:ff, ethertype ARP (0x0806), length 42: Request who-has 192.0.2.100 tell 192.0.2.100, length 28"
  101:     "\t0x0000:  ffff ffff ffff 522b c801 0203 0806 0001  ......R+........"
  102:     "\t0x0010:  0800 0604 0001 522b c801 0203 c000 0264  ......R+.......d"
  103:     "\t0x0020:  0000 0000 0000 c000 0264                 .........d"
  104: }
  105: 
  106: send_user "\n==================== ALL DONE =================\n"
  107: 
  108: # ---- Emacs Variables ----
  109: # Local Variables:
  110: # c-basic-offset: 8
  111: # tcl-basic-offset: 8
  112: # indent-tabs-mode: nil
  113: # End:
  114: #
  115: # vim: ts=8 sw=8