r14427@Rob-Kinyons-PowerBook: rob | 2006-06-19 09:14:51 -0400

[dbsrgits/DBM-Deep.git] / t / 11_optimize.t

diff --git a/t/11_optimize.t b/t/11_optimize.t
index 9fef32b..523c994 100644 (file)
--- a/t/11_optimize.t
+++ b/t/11_optimize.t
@@ -70,7 +70,7 @@ SKIP: {
     # first things first, get us about 1000 keys so the optimize() will take 
     # at least a few seconds on any machine, and re-open db with locking
     ##
-    for (1..1000) { $db->STORE( $_, $_ ); }
+    for (11..11) { $db->STORE( $_, $_ +1 ); }
     undef $db;
 
     ##
@@ -93,7 +93,7 @@ SKIP: {
 
         exit( 0 );
     }
-
+=pod
     # parent fork
     ok( defined($pid), "fork was successful" ); # make sure fork was successful
     
@@ -103,7 +103,7 @@ SKIP: {
         autoflush => 1,
         locking => 1
     );
-    
+
     # sleep for 1 second to make sure optimize() is running in the other fork
     sleep(1);
     
@@ -123,4 +123,5 @@ SKIP: {
     # now check some existing values from before
     is( $db->{key1}, 'value1', "key1's value is still there after optimize" );
     is( $db->{a}{c}, 'value2', "key2's value is still there after optimize" );
+=cut
 }