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" );
-#print keys %{$db->{a}}, $/;
-
##
# now for the tricky one -- try to store a new key while file is being
# optimized and locked by another process. filehandle should be invalidated,
# 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 (11..11) { $db->STORE( $_, $_ +1 ); }
+ for (1..1000) { $db->STORE( $_, $_ +1 ); }
undef $db;
##
exit( 0 );
}
-=pod
# parent fork
ok( defined($pid), "fork was successful" ); # make sure fork was successful
# see if it was stored successfully
is( $db->{parentfork}, "hello", "stored key while optimize took place" );
-# undef $db;
-# $db = DBM::Deep->new(
-# file => $filename,
-# autoflush => 1,
-# locking => 1
-# );
+ undef $db;
+ $db = DBM::Deep->new(
+ file => $filename,
+ autoflush => 1,
+ locking => 1
+ );
# 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
}