Parent Directory | Revision Log | Patch
revision 31 by dpavlin, Sun Jul 24 15:03:11 2005 UTC | revision 50 by dpavlin, Mon Nov 14 16:15:45 2005 UTC | |
---|---|---|
# | Line 1 | Line 1 |
1 | #!/usr/bin/perl -w | #!/usr/bin/perl -w |
2 | ||
3 | use Test::More tests => 25; | use Test::More tests => 26; |
4 | use Test::Exception; | use Test::Exception; |
5 | use Cwd qw/abs_path/; | use Cwd qw/abs_path/; |
6 | use blib; | use blib; |
# | Line 80 ok(my @ds2 = $db->load_ds({ '000' => '00 | Line 80 ok(my @ds2 = $db->load_ds({ '000' => '00 |
80 | ||
81 | is_deeply(\@ds, \@ds2, "loaded data"); | is_deeply(\@ds, \@ds2, "loaded data"); |
82 | ||
83 | ok(! $db->load_ds({ '000' => 42 }), "load_ds non-existing"); | |
84 | ||
85 | undef $db; | undef $db; |
86 |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |