[dbsrgits/DBM-Deep.git] / t / 50_deletes.t


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