Commit | Line | Data |
---|---|---|
3e23afbf | 1 | |
2 | use strict; | |
3 | use Test; | |
4 | use DBM::Deep; | |
5 | use t::common qw( new_fh ); | |
6 | ||
7 | my ($fh, $filename) = new_fh(); | |
8 | my $db = DBM::Deep->new( file => $filename, fh => $fh, ); | |
9 | ||
10 | my $max = 10; | |
11 | ||
12 | plan tests => $max; | |
13 | ||
14 | my $x = 0; | |
15 | while( $x < $max ) { | |
16 | eval { | |
17 | delete $db->{borked}{test}; | |
18 | $db->{borked}{test} = 1; | |
19 | }; | |
20 | ||
21 | ok($@, ''); | |
22 | $x++; | |
23 | } |