X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F04_array.t;h=24b52ecbb74f22c9c8f85ac1acacd89a2ed93d4d;hb=6e78585cfdedc2754b455639da5cc877d7f25cab;hp=e4616eed8ce0fde99528bace74d832af11d48450;hpb=3300d0b3bfe0eb981ac25f97750bfec95249c1c5;p=dbsrgits%2FDBM-Deep.git

diff --git a/t/04_array.t b/t/04_array.t
index e4616ee..24b52ec 100644
--- a/t/04_array.t
+++ b/t/04_array.t
@@ -10,8 +10,9 @@ use_ok( 'DBM::Deep' );
 
 my ($fh, $filename) = new_fh();
 my $db = DBM::Deep->new(
-	file => $filename,
-	type => DBM::Deep->TYPE_ARRAY
+    file => $filename,
+    fh => $fh,
+    type => DBM::Deep->TYPE_ARRAY
 );
 
 ##
@@ -62,7 +63,7 @@ is( $db->fetch(4), 'elem4.1' );
 
 throws_ok {
     $db->[-6] = 'whoops!';
-} qr/Modification of non-creatable array value attempted, subscript -6/, "Correct error thrown"; 
+} qr/Modification of non-creatable array value attempted, subscript -6/, "Correct error thrown";
 
 my $popped = $db->pop;
 is( $db->length, 4, "... and we have four after popping" );
@@ -251,6 +252,7 @@ throws_ok {
     my ($fh, $filename) = new_fh();
     my $db = DBM::Deep->new(
         file => $filename,
+        fh => $fh,
         type => DBM::Deep->TYPE_ARRAY
     );