--- lib/PXElator/t/client.t 2009/08/27 14:30:55 305 +++ lib/PXElator/t/client.t 2009/08/28 16:41:46 322 @@ -4,14 +4,14 @@ use strict; use autodie; -use Test::More tests => 15; +use Test::More tests => 16; use Data::Dump qw/dump/; use English; use_ok 'client'; my $host = '127.0.0.1'; -my $mac = 'dead00beef'; +my $mac = 'DE:AD:00:00:BE:EF'; my $dir = "$server::base_dir/conf/$server::ip"; system "sudo chown $UID $dir/ip $dir/mac"; @@ -37,6 +37,9 @@ ok( my $conf = client::all_conf( $ip ), 'all_conf' ); diag dump $conf; +ok( my @ips = client::all_ips(), 'all_ips' ); +diag dump @ips; + diag "cleanup"; ok( unlink( $_ ), "unlink $_" ) foreach ( glob("$dir/ip/$host/*"), "$dir/mac/$mac" ); ok( rmdir "$dir/ip/$host", 'rmdir' );