/[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 322 by dpavlin, Fri Aug 28 16:41:46 2009 UTC revision 323 by dpavlin, Fri Aug 28 18:51:43 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 => 16;  use Test::More tests => 19;
8  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
9  use English;  use English;
10    
# Line 23  cmp_ok( client::conf( $host => 'test' ), Line 23  cmp_ok( client::conf( $host => 'test' ),
23    
24  ok( ! client::conf( $host => 'non-existing' ), 'conf non-existing' );  ok( ! client::conf( $host => 'non-existing' ), 'conf non-existing' );
25    
26    ok( client::remove( $host ), "remove $host" );
27    
28  ok( my $ip = client::next_ip( $mac ), 'next_ip' );  ok( my $ip = client::next_ip( $mac ), 'next_ip' );
29  diag $ip;  diag $ip;
30    
# Line 40  diag dump $conf; Line 42  diag dump $conf;
42  ok( my @ips = client::all_ips(), 'all_ips' );  ok( my @ips = client::all_ips(), 'all_ips' );
43  diag dump @ips;  diag dump @ips;
44    
45  diag "cleanup";  ok( my $new_ip = client::change_ip( $ip, $host ), 'change_ip' );
46  ok( unlink( $_ ), "unlink $_" ) foreach ( glob("$dir/ip/$host/*"), "$dir/mac/$mac" );  ok( ! client::change_ip( $new_ip, $new_ip ), 'change_ip without change' );
47  ok( rmdir "$dir/ip/$host", 'rmdir' );  ok( my $old_ip = client::change_ip( $new_ip, $ip ), 'change_ip back' );
48    cmp_ok( $old_ip, 'eq', $ip, 'ip back' );
49    
50    ok( client::remove( $ip ), "remove $ip" );
Legend:
Removed from v.322  
changed lines
  Added in v.323
  ViewVC Help
Powered by ViewVC 1.1.26