/[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 323 by dpavlin, Fri Aug 28 18:51:43 2009 UTC revision 397 by dpavlin, Tue Sep 8 17:30:31 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 => 19;  use Test::More tests => 20;
8  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
9  use English;  use English;
10    
# Line 13  use_ok 'client'; Line 13  use_ok 'client';
13  my $host = '127.0.0.1';  my $host = '127.0.0.1';
14  my $mac  = 'DE:AD:00:00:BE:EF';  my $mac  = 'DE:AD:00:00:BE:EF';
15    
16  my $dir = "$server::base_dir/conf/$server::ip";  my $dir = "$server::base_dir/conf";
17  system "sudo chown $UID $dir/ip $dir/mac";  system "sudo chown $UID $dir/ip $dir/mac";
18    
19  ok( client::conf( $host => 'test', default => 'default' ), 'conf default' );  ok( client::conf( $host => 'test', default => 'default' ), 'conf default' );
# Line 47  ok( ! client::change_ip( $new_ip, $new_i Line 47  ok( ! client::change_ip( $new_ip, $new_i
47  ok( my $old_ip = client::change_ip( $new_ip, $ip ), 'change_ip back' );  ok( my $old_ip = client::change_ip( $new_ip, $ip ), 'change_ip back' );
48  cmp_ok( $old_ip, 'eq', $ip, 'ip back' );  cmp_ok( $old_ip, 'eq', $ip, 'ip back' );
49    
50    ok( client::arp_mac_dev(), 'arp_mac_dev' );
51    
52  ok( client::remove( $ip ), "remove $ip" );  ok( client::remove( $ip ), "remove $ip" );
Legend:
Removed from v.323  
changed lines
  Added in v.397
  ViewVC Help
Powered by ViewVC 1.1.26