r592@rob-kinyons-computer-2 (orig r10555): rkinyon | 2008-01-15 14:19:42 -0500

[dbsrgits/DBM-Deep.git] / t / 17_import.t

diff --git a/t/17_import.t b/t/17_import.t
index c5e034e..108aae2 100644 (file)
--- a/t/17_import.t
+++ b/t/17_import.t
@@ -14,6 +14,7 @@ foreach my $type ( DBM::Deep->TYPE_HASH, DBM::Deep->TYPE_ARRAY ) {
     my ($fh, $filename) = new_fh();
     my $db = DBM::Deep->new({
         file => $filename,
+        fh => $fh,
         type => $type,
     });
 
@@ -49,6 +50,7 @@ foreach my $type ( DBM::Deep->TYPE_HASH, DBM::Deep->TYPE_ARRAY ) {
     my ($fh, $filename) = new_fh();
     my $db = DBM::Deep->new({
         file      => $filename,
+        fh => $fh,
         autobless => 1,
     });
 
@@ -96,6 +98,7 @@ foreach my $type ( DBM::Deep->TYPE_HASH, DBM::Deep->TYPE_ARRAY ) {
     my ($fh, $filename) = new_fh();
     my $db = DBM::Deep->new({
         file => $filename,
+        fh => $fh,
         type => DBM::Deep->TYPE_ARRAY,
     });
 
@@ -129,6 +132,7 @@ foreach my $type ( DBM::Deep->TYPE_HASH, DBM::Deep->TYPE_ARRAY ) {
     my ($fh, $filename) = new_fh();
     my $db = DBM::Deep->new({
         file      => $filename,
+        fh => $fh,
         autobless => 1,
     });
 
@@ -137,7 +141,7 @@ foreach my $type ( DBM::Deep->TYPE_HASH, DBM::Deep->TYPE_ARRAY ) {
     my $x;
     my $struct = {
         key1 => [
-            2, \$x, 3, 
+            2, \$x, 3,
         ],
     };