/[Frey]/branches/zimbardo/t/01-Frey-Storage.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 /branches/zimbardo/t/01-Frey-Storage.t

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 151 by dpavlin, Wed Jul 16 23:04:22 2008 UTC revision 532 by dpavlin, Wed Nov 26 07:57:12 2008 UTC
# Line 7  use lib 'lib'; Line 7  use lib 'lib';
7    
8  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
9    
10  my $debug = 1 if @ARGV;  my $debug = @ARGV ? 1 : 0;
11    
12  BEGIN {  BEGIN {
13          use_ok('Frey::Storage');          use_ok('Frey::Storage');
# Line 28  ok( my $o = Mock->new( debug => $debug ) Line 28  ok( my $o = Mock->new( debug => $debug )
28  diag $o->dump(2) if $debug;  diag $o->dump(2) if $debug;
29    
30  my $data = { foo => 'bar' };  my $data = { foo => 'bar' };
31  my $path = 'var/test.Frey.Storeage';  my $path = 'var/test.Frey.Storeage.yaml';
32    
33  ok( $o->store( $path, $data ), 'store' );  ok( $o->store( $path, $data ), 'store' );
34    
# Line 44  sleep 1; Line 44  sleep 1;
44  $data->{baz} = 42;  $data->{baz} = 42;
45  ok( $o->store( $path, $data ), 'store again' );  ok( $o->store( $path, $data ), 'store again' );
46    
47  my $new;  ok( my $new = $o->reload( $path ), 'reload' );
 ok( $o->reload( $path, \$new ), 'reload' );  
48    
49  diag dump( $data, $new ) if $debug;  diag dump( $data, $new ) if $debug;
50  is_deeply( $data, $new, 'same' );  is_deeply( $data, $new, 'same' );
51    
52  my $keep = { 'test' => 'data' };  ok( ! $o->reload( $path ), 'no reload' );
53  my $new2 = $keep;  
54  ok( ! $o->reload( $path, \$new2 ), 'reload' );  ok( ! $o->load( 'var/something.which.doesnt.exist' ), 'load without file' );
 is_deeply( $keep, $new2, 'same' );  
Legend:
Removed from v.151  
changed lines
  Added in v.532
  ViewVC Help
Powered by ViewVC 1.1.26