From: rkinyon <rkinyon@50811bd7-b8ce-0310-adc1-d9db26280581>
Date: Mon, 10 Mar 2008 00:08:33 +0000 (+0000)
Subject: Added BrowserUk's to a few tests missing it (fh =>  in addition to file => )
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4de26108f04e73ed657f7c88810836bb822bf8a3;p=dbsrgits%2FDBM-Deep.git

Added BrowserUk's to a few tests missing it (fh =>  in addition to file => )
---

diff --git a/t/02_hash.t b/t/02_hash.t
index 189b45d..57d0408 100644
--- a/t/02_hash.t
+++ b/t/02_hash.t
@@ -115,7 +115,10 @@ is( $db->get("key1"), "value222222222222222222222222", "We set a value before cl
 # Make sure DB still works after closing / opening
 ##
 undef $db;
-$db = DBM::Deep->new( $filename );
+$db = DBM::Deep->new(
+    file => $filename,
+    fh => $fh,
+);
 is( $db->get("key1"), "value222222222222222222222222", "The value we set is still there after closure" );
 
 ##
diff --git a/t/08_deephash.t b/t/08_deephash.t
index f69543c..949817b 100644
--- a/t/08_deephash.t
+++ b/t/08_deephash.t
@@ -21,6 +21,7 @@ my $max_levels = 1000;
 {
     my $db = DBM::Deep->new(
         file => $filename,
+        fh => $fh,
         type => DBM::Deep->TYPE_HASH,
     );
 
@@ -52,6 +53,7 @@ my $max_levels = 1000;
 {
     my $db = DBM::Deep->new(
         file => $filename,
+        fh => $fh,
         type => DBM::Deep->TYPE_HASH,
     );
 
diff --git a/t/09_deeparray.t b/t/09_deeparray.t
index ad134fa..493cc05 100644
--- a/t/09_deeparray.t
+++ b/t/09_deeparray.t
@@ -21,6 +21,7 @@ my $max_levels = 1000;
 {
     my $db = DBM::Deep->new(
         file => $filename,
+        fh => $fh,
         type => DBM::Deep->TYPE_ARRAY,
     );
 
@@ -36,6 +37,7 @@ my $max_levels = 1000;
 {
     my $db = DBM::Deep->new(
         file => $filename,
+        fh => $fh,
         type => DBM::Deep->TYPE_ARRAY,
     );