--- lib/PXElator/t/client.t 2009/08/28 18:51:43 323 +++ lib/PXElator/t/client.t 2009/09/08 17:30:31 397 @@ -4,7 +4,7 @@ use strict; use autodie; -use Test::More tests => 19; +use Test::More tests => 20; use Data::Dump qw/dump/; use English; @@ -13,7 +13,7 @@ my $host = '127.0.0.1'; my $mac = 'DE:AD:00:00:BE:EF'; -my $dir = "$server::base_dir/conf/$server::ip"; +my $dir = "$server::base_dir/conf"; system "sudo chown $UID $dir/ip $dir/mac"; ok( client::conf( $host => 'test', default => 'default' ), 'conf default' ); @@ -47,4 +47,6 @@ ok( my $old_ip = client::change_ip( $new_ip, $ip ), 'change_ip back' ); cmp_ok( $old_ip, 'eq', $ip, 'ip back' ); +ok( client::arp_mac_dev(), 'arp_mac_dev' ); + ok( client::remove( $ip ), "remove $ip" );