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

[dbsrgits/DBM-Deep.git] / t / 38_data_sector_size.t

diff --git a/t/38_data_sector_size.t b/t/38_data_sector_size.t
index 8414066..ebdbff8 100644 (file)
--- a/t/38_data_sector_size.t
+++ b/t/38_data_sector_size.t
@@ -6,6 +6,18 @@ use Test::More tests => 8;
 
 use t::common qw( new_fh );
 
+sub do_stuff {
+    my ($db) = @_;
+
+    $db->{foo}{bar} = [ 1 .. 3 ];
+}
+
+sub verify {
+    my ($db) = @_;
+
+    cmp_ok( $db->{foo}{bar}[2], '==', 3, "Correct value found" );
+}
+
 use_ok( 'DBM::Deep' );
 
 my %sizes;
@@ -15,6 +27,7 @@ my %sizes;
     {
         my $db = DBM::Deep->new(
             file => $filename,
+            fh => $fh,
             data_sector_size => 32,
         );
 
@@ -24,8 +37,9 @@ my %sizes;
     $sizes{32} = -s $filename;
 
     {
-        my $db = DBM::Deep->new( $filename );
+        my $db = DBM::Deep->new( file => $filename );
         verify( $db );
+        $db->_get_self->_storage->close( $db->_get_self );
     }
 }
 
@@ -34,6 +48,7 @@ my %sizes;
     {
         my $db = DBM::Deep->new(
             file => $filename,
+            fh => $fh,
             data_sector_size => 64,
         );
 
@@ -45,6 +60,7 @@ my %sizes;
     {
         my $db = DBM::Deep->new( $filename );
         verify( $db );
+         $db->_get_self->_storage->close( $db->_get_self );
     }
 }
 
@@ -53,6 +69,7 @@ my %sizes;
     {
         my $db = DBM::Deep->new(
             file => $filename,
+            fh => $fh,
             data_sector_size => 128,
         );
 
@@ -64,6 +81,7 @@ my %sizes;
     {
         my $db = DBM::Deep->new( $filename );
         verify( $db );
+         $db->_get_self->_storage->close( $db->_get_self );
     }
 }
 
@@ -72,6 +90,7 @@ my %sizes;
     {
         my $db = DBM::Deep->new(
             file => $filename,
+            fh => $fh,
             data_sector_size => 256,
         );
 
@@ -83,6 +102,7 @@ my %sizes;
     {
         my $db = DBM::Deep->new( $filename );
         verify( $db );
+         $db->_get_self->_storage->close( $db->_get_self );
     }
 }
 
@@ -90,14 +110,3 @@ cmp_ok( $sizes{256}, '>', $sizes{128}, "Filesize for 256 > filesize for 128" );
 cmp_ok( $sizes{128}, '>', $sizes{64}, "Filesize for 128 > filesize for 64" );
 cmp_ok( $sizes{64}, '>', $sizes{32}, "Filesize for 64 > filesize for 32" );
 
-sub do_stuff {
-    my ($db) = @_;
-
-    $db->{foo}{bar} = [ 1 .. 3 ];
-}
-
-sub verify {
-    my ($db) = @_;
-
-    cmp_ok( $db->{foo}{bar}[2], '==', 3, "Correct value found" );
-}