Return to packets.exp CVS log

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

Annotation of embedaddon/arping/extra/packets.exp, revision 1.1

1.1     ! misho       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