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 (file)
--- 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 (file)
--- 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 (file)
--- 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,
     );