Removed incompatible version comparison test.
David Wheeler
15 years ago
| 0 | 0 |
Revision history for Perl extension Exception::Class::DBI.
|
| 1 | 1 |
|
| 2 | 2 |
1.00
|
|
3 |
- Fixed a test failure on Perl 5.5. Reported by Slaven Rezic.
|
| 3 | 4 |
|
| 4 | 5 |
0.99 2008-05-15T03:31:30
|
| 5 | 6 |
- Fixed another Perl 5.6.2 test error. Reported by Slaven Rezic.
|
| 2 | 2 |
# $Id$
|
| 3 | 3 |
|
| 4 | 4 |
use strict;
|
| 5 | |
use Test::More tests => 28;
|
|
5 |
use Test::More tests => 27;
|
| 6 | 6 |
BEGIN { use_ok('Exception::Class::DBI') or die }
|
| 7 | 7 |
use DBI;
|
| 8 | 8 |
|
|
| 51 | 51 |
# as it seems safer with older Perls. See
|
| 52 | 52 |
# http://groups.google.com/group/perl.dbi.dev/browse_thread/thread/6a1903e2eb251d45
|
| 53 | 53 |
# for details.
|
| 54 | |
is( $err->kids, ($^V lt v5.6.2 ? 1 : 0), "Check kids" );
|
| 55 | 54 |
is( $err->kids, ($] < 5.006_002 ? 1 : 0), "Check kids" );
|
| 56 | 55 |
is( $err->active_kids, 0, "Check active_kids" );
|
| 57 | 56 |
ok( ! $err->inactive_destroy, "Check inactive_destroy" );
|