Parent Directory | Revision Log | Patch
revision 19 by dpavlin, Sun Jul 17 15:04:39 2005 UTC | revision 20 by dpavlin, Sun Jul 17 21:04:23 2005 UTC | |
---|---|---|
# | Line 1 | Line 1 |
1 | #!/usr/bin/perl -w | #!/usr/bin/perl -w |
2 | ||
3 | use Test::More tests => 23; | use Test::More tests => 25; |
4 | use Test::Exception; | use Test::Exception; |
5 | use Cwd qw/abs_path/; | use Cwd qw/abs_path/; |
6 | use blib; | use blib; |
# | Line 76 throws_ok { $db->save_gs( ds => \@ds, 'c | Line 76 throws_ok { $db->save_gs( ds => \@ds, 'c |
76 | ||
77 | ok($db->save_gs( ds => \@ds, 'current_filename' => 'foo', 'headline' => 'bar' ), "save_gs"); | ok($db->save_gs( ds => \@ds, 'current_filename' => 'foo', 'headline' => 'bar' ), "save_gs"); |
78 | ||
79 | ok(my @ds2 = $db->load_gs({ '000' => '000' }), "load_gs"); | |
80 | ||
81 | is_deeply(\@ds, \@ds2, "loaded data"); | |
82 | ||
83 | undef $db; | undef $db; |
84 |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |