/[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 442 by dpavlin, Tue Sep 8 17:30:31 2009 UTC revision 443 by dpavlin, Tue Sep 29 19:28:24 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 => 20;  use Test::More tests => 22;
8  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
9  use English;  use English;
10    
# Line 21  cmp_ok( client::conf( $host => 'test' ), Line 21  cmp_ok( client::conf( $host => 'test' ),
21  ok( client::conf( $host => 'test' => 'value' ), 'conf set' );  ok( client::conf( $host => 'test' => 'value' ), 'conf set' );
22  cmp_ok( client::conf( $host => 'test' ), 'eq', 'value', 'value' );  cmp_ok( client::conf( $host => 'test' ), 'eq', 'value', 'value' );
23    
24    ok( client::conf( $host => 'dir/test' => 'in_dir' ), 'conf test/dir' );
25    cmp_ok( client::conf( $host => 'dir/test' ), 'eq', 'in_dir', 'value' );
26    
27  ok( ! client::conf( $host => 'non-existing' ), 'conf non-existing' );  ok( ! client::conf( $host => 'non-existing' ), 'conf non-existing' );
28    
29  ok( client::remove( $host ), "remove $host" );  ok( client::remove( $host ), "remove $host" );
Legend:
Removed from v.442  
changed lines
  Added in v.443
  ViewVC Help
Powered by ViewVC 1.1.26