Parent Directory | Revision Log | Patch
revision 301 by dpavlin, Wed Nov 5 09:50:14 2008 UTC | revision 561 by dpavlin, Thu Nov 27 21:04:04 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.yaml'; | my $path = 'var/t/Frey.Storeage.yaml'; |
32 | ||
33 | ok( $o->store( $path, $data ), 'store' ); | ok( $o->store( $path, $data ), 'store' ); |
34 |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |