[dbsrgits/DBM-Deep.git] / t / 07error.t

##
# DBM::Deep Test
##
use strict;
use Test::More tests => 4;

use_ok( 'DBM::Deep' );

unlink "t/test.db";
my $db = DBM::Deep->new( "t/test.db" );
if ($db->error()) {
	die "ERROR: " . $db->error();
}

##
# cause an error
##
eval { $db->push("foo"); }; # ERROR -- array-only method

ok( $db->error() );

$db->clear_error();

ok( !$db->error() );
undef $db;

open FH, '>t/test.db';
print FH 'DPDB';
close FH;
$db = DBM::Deep->new( "t/test.db" );
TODO: {
    local $TODO = "The return value from load_tag() isn't checked in open()";
    ok( $db->error() );
}
Commit	Line	Data
ffed8b01	1	##
	2	# DBM::Deep Test
	3	##
	4	use strict;
	5	use Test::More tests => 4;
	6
	7	use_ok( 'DBM::Deep' );
	8
	9	unlink "t/test.db";
	10	my $db = DBM::Deep->new( "t/test.db" );
	11	if ($db->error()) {
	12	die "ERROR: " . $db->error();
	13	}
	14
	15	##
	16	# cause an error
	17	##
	18	eval { $db->push("foo"); }; # ERROR -- array-only method
	19
	20	ok( $db->error() );
	21
	22	$db->clear_error();
	23
	24	ok( !$db->error() );
	25	undef $db;
	26
	27	open FH, '>t/test.db';
	28	print FH 'DPDB';
	29	close FH;
	30	$db = DBM::Deep->new( "t/test.db" );
	31	TODO: {
	32	local $TODO = "The return value from load_tag() isn't checked in open()";
	33	ok( $db->error() );
	34	}