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


use strict;
use Test::More;

use t::common qw( new_fh );

my $max = 10;

plan skip_all => "Need to work on this one later.";

plan tests => $max + 1;

use_ok( 'DBM::Deep' );

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

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

    ok(!$@, 'No eval failures');
    $x++;
}
Commit	Line	Data
3e23afbf	1
3e23afbf	2	use strict;
09dd8113	3	use Test::More;
3e23afbf	4
09dd8113	5	use t::common qw( new_fh );
3e23afbf	6
	7	my $max = 10;
	8
09dd8113	9	plan skip_all => "Need to work on this one later.";
	10
	11	plan tests => $max + 1;
	12
	13	use_ok( 'DBM::Deep' );
	14
	15	my ($fh, $filename) = new_fh();
	16	my $db = DBM::Deep->new( file => $filename, fh => $fh, );
3e23afbf	17
	18	my $x = 0;
	19	while( $x < $max ) {
	20	eval {
	21	delete $db->{borked}{test};
	22	$db->{borked}{test} = 1;
	23	};
	24
09dd8113	25	ok(!$@, 'No eval failures');
3e23afbf	26	$x++;
3e23afbf	27	}