few more tests

git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@20 07558da8-63fa-0310-ba24-9fe276d99e06

diff --git a/t/4-db.t b/t/4-db.t
index 51382e0..2804a68 100755 (executable)
--- a/t/4-db.t
+++ b/t/4-db.t
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
 
-use Test::More tests => 23;
+use Test::More tests => 25;
 use Test::Exception;
 use Cwd qw/abs_path/;
 use blib;
@@ -76,5 +76,9 @@ throws_ok { $db->save_gs( ds => \@ds, 'current_filename' => 'foo' ) } qr/headlin
 
 ok($db->save_gs( ds => \@ds, 'current_filename' => 'foo', 'headline' => 'bar' ), "save_gs");
 
+ok(my @ds2 = $db->load_gs({ '000' => '000' }), "load_gs");
+
+is_deeply(\@ds, \@ds2, "loaded data");
+
 undef $db;