Commit 3971ceb051d2dc6a3728936aa2f903348fe29d99 - libexception-class-dbi-perl - Codebase list

Codebase list libexception-class-dbi-perl / 3971ceb

Added note about CursorName bug. David Wheeler 21 years ago

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

+3

-1

t/sth.t less more

0	0	#!/usr/bin/perl -w
1	1
2		# $Id: sth.t,v 1.4 2002/08/23 18:26:26 david Exp $
	2	# $Id: sth.t,v 1.5 2002/08/23 18:27:36 david Exp $
3	3
4	4	use strict;
5	5	use Test::More (tests => 35);

72	72	}
73	73
74	74	is( ref $err->nullable, 'ARRAY', "Check nullable" );
	75	# ExampleP fails to get the CursorName attribute under DBI. Which is
	76	# why this test is using PurePerl, instead.
75	77	ok( ! defined $err->cursor_name, "Check cursor_name" );
76	78	is( $err->statement, 'select * from foo', 'Check statement' );
77	79	ok( ! defined $err->rows_in_cache, "Check rows_in_cache" );