Parent Directory
| 
Revision Log
| 
Patch
| revision 49 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 |