Commit e298bf5c3b7accafe1682d3faf0ae084b1083265 - libexception-class-dbi-perl

New error number in DBI 1.601? David Wheeler 16 years ago

1 changed file(s) with 8 addition(s) and 7 deletion(s). Raw diff Collapse all Expand all

-7

t/dbh.t less more

7	7	use DBI;
8	8
9	9	ok( my $dbh = DBI->connect(
10		'dbi:ExampleP:dummy', '', '',
11		{ PrintError => 0,
12		RaiseError => 0,
13		HandleError => Exception::Class::DBI->handler
14		}),
15		"Connect to database" );
	10	'dbi:ExampleP:dummy', '', '',
	11	{
	12	PrintError => 0,
	13	RaiseError => 0,
	14	HandleError => Exception::Class::DBI->handler
	15	}),
	16	'Connect to database' );
16	17
17	18	END { $dbh->disconnect if $dbh };
18	19

31	32	isa_ok( $err, 'Exception::Class::DBI::DBH' );
32	33
33	34	# Check the accessor values.
34		is( $err->err, 1, "Check err" );
	35	is( $err->err, (DBI->VERSION >= '1.601' ? '2000000000' : '1'), "Check err" );
35	36	is( $err->errstr, 'Unknown field names: foo', "Check errstr" );
36	37	is( $err->error, 'DBD::ExampleP::db do failed: Unknown field names: foo',
37	38	"Check error" );