repeatedly deleting a key will produce blist errors

git-svn-id: http://svn.ali.as/cpan/trunk/DBM-Deep@3641 88f4d9cd-8a04-0410-9d60-8f63309c3137

diff --git a/t/50_deletes.t b/t/50_deletes.t
new file mode 100644 (file)
index 0000000..f978013
--- /dev/null
+++ b/t/50_deletes.t
@@ -0,0 +1,23 @@
+
+use strict;
+use Test;
+use DBM::Deep;
+use t::common qw( new_fh );
+
+my ($fh, $filename) = new_fh();
+my $db = DBM::Deep->new( file => $filename, fh => $fh, );
+
+my $max = 10;
+
+plan tests => $max;
+
+my $x = 0;
+while( $x < $max ) {
+    eval {
+        delete $db->{borked}{test};
+        $db->{borked}{test} = 1;
+    };
+
+    ok($@, '');
+    $x++;
+}