r8859@llin: dpavlin | 2005-11-14 13:37:51 +0100

 non-existing record in load_ds return undef

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

diff --git a/lib/WebPAC/DB.pm b/lib/WebPAC/DB.pm
index 24c33e4..3e24397 100644 (file)
--- a/lib/WebPAC/DB.pm
+++ b/lib/WebPAC/DB.pm
@@ -160,6 +160,8 @@ sub load_ds {
                                        undef $self->{'path'};
                                }
                        }
+               } else {
+                       return undef;
                }
        }
 

diff --git a/t/4-db.t b/t/4-db.t
index c1df35f..fa21dd8 100755 (executable)
--- a/t/4-db.t
+++ b/t/4-db.t
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
 
-use Test::More tests => 25;
+use Test::More tests => 26;
 use Test::Exception;
 use Cwd qw/abs_path/;
 use blib;
@@ -80,5 +80,7 @@ ok(my @ds2 = $db->load_ds({ '000' => '000' }), "load_ds");
 
 is_deeply(\@ds, \@ds2, "loaded data");
 
+ok(! $db->load_ds({ '000' => 42 }), "load_ds non-existing");
+
 undef $db;