pxelator/t/dhcp.t

#!/usr/bin/perl
use warnings;
use strict;

use Test::More tests => 4;

use_ok 'IO::Socket::INET';
use Data::Dump qw(dump);

our $sock = IO::Socket::INET->new(
        Proto => 'udp',
        Broadcast => 1,
        PeerPort => 67,
        LocalPort => 68,
        PeerAddr => '255.255.255.255',
        ReuseAddr => 1,
) or die "need root priviledges to run: $!";

foreach my $hex_dump ( glob 't/dhcp/*' ) {
        ok( open(my $fh, '<', $hex_dump), "open $hex_dump" );
        local $/ = undef;
        ok( my $hex = <$fh>, 'slurp' );

        diag "hex: ",dump $hex;
        my $packet = pack 'H*', $hex;
        diag "packet: ", dump $packet;

        ok( $sock->send($packet), 'send' );

}
1	dpavlin	529	#!/usr/bin/perl
2			use warnings;
3			use strict;
4
5			use Test::More tests => 4;
6
7			use_ok 'IO::Socket::INET';
8			use Data::Dump qw(dump);
9
10			our $sock = IO::Socket::INET->new(
11			Proto => 'udp',
12			Broadcast => 1,
13			PeerPort => 67,
14			LocalPort => 68,
15			PeerAddr => '255.255.255.255',
16			ReuseAddr => 1,
17			) or die "need root priviledges to run: $!";
18
19			foreach my $hex_dump ( glob 't/dhcp/*' ) {
20			ok( open(my $fh, '<', $hex_dump), "open $hex_dump" );
21			local $/ = undef;
22			ok( my $hex = <$fh>, 'slurp' );
23
24			diag "hex: ",dump $hex;
25			my $packet = pack 'H*', $hex;
26			diag "packet: ", dump $packet;
27
28			ok( $sock->send($packet), 'send' );
29
30			}