Codebase list libexception-class-dbi-perl / 98d28ab
* Fixed test failures on Perl 5.6.2. David Wheeler 15 years ago
2 changed file(s) with 7 addition(s) and 4 deletion(s). Raw diff Collapse all Expand all
+1
-0
Changes less more
22 0.97
33 - Updated copyright.
44 - Added a link to the Subversion repository.
5 - Fixed test failures on Perl 5.6.2.
56
67 0.96 2007-10-26T19:01:36
78 - Fixed test failure due to the change in value of $dbh->err in DBI
+6
-4
t/dbh.t less more
4040 ok( ! defined $err->retval, "Check retval" );
4141 is( $err->warn, 1, "Check warn" );
4242 is( $err->active, 1, "Check active" );
43 # For some reason, under perl < 5.8.0, $dbh->{Kids} returns a different value
43 # For some reason, under perl < 5.6.2, $dbh->{Kids} returns a different value
4444 # inside the HandleError scope than it does outside that scope. So we're
4545 # checking for the perl version here to cover our butts on this test. This may
4646 # be fixed in the DBI soon. I'm using the old form of the Perl version number
47 # as it seems safer with older Perls.
48 is( $err->kids, ($^V lt v5.8 ? 1 : 0), "Check kids" );
49 is( $err->kids, ($] < 5.008 ? 1 : 0), "Check kids" );
47 # as it seems safer with older Perls. See
48 # http://groups.google.com/group/perl.dbi.dev/browse_thread/thread/6a1903e2eb251d45
49 # for details.
50 is( $err->kids, ($^V lt v5.6.2 ? 1 : 0), "Check kids" );
51 is( $err->kids, ($] < 5.006_002 ? 1 : 0), "Check kids" );
5052 is( $err->active_kids, 0, "Check active_kids" );
5153 ok( ! $err->inactive_destroy, "Check inactive_destroy" );
5254 is( $err->trace_level, 0, "Check trace_level" );