From: jettero@cpan.org <jettero@cpan.org>
Date: Thu, 26 Jun 2008 18:18:46 +0000 (+0000)
Subject: repeatedly deleting a key will produce blist errors
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3e23afbf2c406d1d924498d3fc451b876a50b6d7;p=dbsrgits%2FDBM-Deep.git

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
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++;
+}