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

use 5.006_000;

use strict;
use warnings FATAL => 'all';

use Test::More;

use t::common qw( new_fh );

my $max = 10;

plan tests => $max + 1;

use_ok( 'DBM::Deep' );

my ($fh, $filename) = new_fh();
my $db = DBM::Deep->new( file => $filename, fh => $fh, );

my $x = 1;
while( $x <= $max ) {
    eval {
        delete $db->{borked}{test};
        $db->{borked}{test} = 1;
    };

    ok(!$@, "No eval failure after ${x}th iteration");
    $x++;
}
Commit	Line	Data
c803879b	1	use 5.006_000;
3e23afbf	2
3e23afbf	3	use strict;
c803879b	4	use warnings FATAL => 'all';
c803879b	5
09dd8113	6	use Test::More;
3e23afbf	7
09dd8113	8	use t::common qw( new_fh );
3e23afbf	9
	10	my $max = 10;
	11
09dd8113	12	plan tests => $max + 1;
	13
	14	use_ok( 'DBM::Deep' );
	15
	16	my ($fh, $filename) = new_fh();
	17	my $db = DBM::Deep->new( file => $filename, fh => $fh, );
3e23afbf	18
c803879b	19	my $x = 1;
c803879b	20	while( $x <= $max ) {
3e23afbf	21	eval {
	22	delete $db->{borked}{test};
	23	$db->{borked}{test} = 1;
	24	};
	25
c803879b	26	ok(!$@, "No eval failure after ${x}th iteration");
3e23afbf	27	$x++;
3e23afbf	28	}