/[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 305 by dpavlin, Thu Aug 27 14:30:55 2009 UTC revision 322 by dpavlin, Fri Aug 28 16:41:46 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 => 15;  use Test::More tests => 16;
8  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
9  use English;  use English;
10    
11  use_ok 'client';  use_ok 'client';
12    
13  my $host = '127.0.0.1';  my $host = '127.0.0.1';
14  my $mac  = 'dead00beef';  my $mac  = 'DE:AD:00:00:BE:EF';
15    
16  my $dir = "$server::base_dir/conf/$server::ip";  my $dir = "$server::base_dir/conf/$server::ip";
17  system "sudo chown $UID $dir/ip $dir/mac";  system "sudo chown $UID $dir/ip $dir/mac";
# Line 37  cmp_ok( $mac_from_ip, 'eq', $mac ); Line 37  cmp_ok( $mac_from_ip, 'eq', $mac );
37  ok( my $conf = client::all_conf( $ip ), 'all_conf' );  ok( my $conf = client::all_conf( $ip ), 'all_conf' );
38  diag dump $conf;  diag dump $conf;
39    
40    ok( my @ips = client::all_ips(), 'all_ips' );
41    diag dump @ips;
42    
43  diag "cleanup";  diag "cleanup";
44  ok( unlink( $_ ), "unlink $_" ) foreach ( glob("$dir/ip/$host/*"), "$dir/mac/$mac" );  ok( unlink( $_ ), "unlink $_" ) foreach ( glob("$dir/ip/$host/*"), "$dir/mac/$mac" );
45  ok( rmdir "$dir/ip/$host", 'rmdir' );  ok( rmdir "$dir/ip/$host", 'rmdir' );
Legend:
Removed from v.305  
changed lines
  Added in v.322
  ViewVC Help
Powered by ViewVC 1.1.26