--- lib/PXElator/t/client.t 2009/08/10 16:36:16 193 +++ lib/PXElator/t/client.t 2009/08/10 17:30:01 194 @@ -4,7 +4,7 @@ use strict; use autodie; -use Test::More tests => 8; +use Test::More tests => 9; use Data::Dump qw/dump/; use_ok 'client'; @@ -25,3 +25,6 @@ ok( unlink($test_path), "unlink $test_path" ); $test_path =~ s{/[^/]+$}{}; ok( rmdir($test_path), "rmdir $test_path" ); + +ok( my $ip = client::ip_from_mac( 'AC:DE:48:00:00:00' ), 'ip_from_mac' ); +diag $ip;