/[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 156 by dpavlin, Thu Aug 6 15:15:53 2009 UTC revision 168 by dpavlin, Thu Aug 6 21:31:10 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 => 7;  use Test::More tests => 8;
8  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
9    
10  use_ok 'client';  use_ok 'client';
# Line 18  cmp_ok( client::conf( $host => 'test' ), Line 18  cmp_ok( client::conf( $host => 'test' ),
18  ok( client::conf( $host => 'test' => 'value' ), 'conf set' );  ok( client::conf( $host => 'test' => 'value' ), 'conf set' );
19  cmp_ok( client::conf( $host => 'test' ), 'eq', 'value', 'value' );  cmp_ok( client::conf( $host => 'test' ), 'eq', 'value', 'value' );
20    
21    ok( my $ip = client::next_ip(), 'next_ip' );
22    diag $ip;
23    
24  diag "cleanup";  diag "cleanup";
25  ok( unlink($test_path), "unlink $test_path" );  ok( unlink($test_path), "unlink $test_path" );
26  $test_path =~ s{/[^/]+$}{};  $test_path =~ s{/[^/]+$}{};
Legend:
Removed from v.156  
changed lines
  Added in v.168
  ViewVC Help
Powered by ViewVC 1.1.26