/[pxelator]/lib/PXElator/t/client.t
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /lib/PXElator/t/client.t

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 193 by dpavlin, Thu Aug 6 21:31:10 2009 UTC revision 194 by dpavlin, Mon Aug 10 17:30:01 2009 UTC
# Line 4  use warnings; Line 4  use warnings;
4  use strict;  use strict;
5  use autodie;  use autodie;
6    
7  use Test::More tests => 8;  use Test::More tests => 9;
8  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
9    
10  use_ok 'client';  use_ok 'client';
# Line 25  diag "cleanup"; Line 25  diag "cleanup";
25  ok( unlink($test_path), "unlink $test_path" );  ok( unlink($test_path), "unlink $test_path" );
26  $test_path =~ s{/[^/]+$}{};  $test_path =~ s{/[^/]+$}{};
27  ok( rmdir($test_path), "rmdir $test_path" );  ok( rmdir($test_path), "rmdir $test_path" );
28    
29    ok( my $ip = client::ip_from_mac( 'AC:DE:48:00:00:00' ), 'ip_from_mac' );
30    diag $ip;
Legend:
Removed from v.193  
changed lines
  Added in v.194
  ViewVC Help
Powered by ViewVC 1.1.26