Author: timbo
Date: Wed Nov 1 16:16:20 2006
New Revision: 7999
Modified:
dbi/trunk/Changes
dbi/trunk/t/40profile.t
Log:
Fixed t/40profile.t to skip tests for perl < 5.8.0.
Modified: dbi/trunk/Changes
==============================================================================
--- dbi/trunk/Changes (original)
+++ dbi/trunk/Changes Wed Nov 1 16:16:20 2006
@@ -11,6 +11,7 @@
Fixed t/40profile.t to be more insensitive to long double precision.
Fixed t/40profile.t to be insensitive to small negative shifts in time
thanks to Jamie McCarthy.
+ Fixed t/40profile.t to skip tests for perl < 5.8.0.
Fixed to work with current 'bleadperl' (~5.9.5) thanks to Steve Peters.
Users of Perl >= 5.9.5 will require DBI >= 1.53.
Fixed to be more robust against drivers not handling multiple result
Modified: dbi/trunk/t/40profile.t
==============================================================================
--- dbi/trunk/t/40profile.t (original)
+++ dbi/trunk/t/40profile.t Wed Nov 1 16:16:20 2006
@@ -13,15 +13,16 @@
use File::Spec;
use Storable qw(dclone);
+use Test::More;
+
BEGIN {
- if ($DBI::PurePerl) {
- print "1..0 # Skipped: profiling not supported for DBI::PurePerl\n";
- exit 0;
- }
+ plan skip_all => "profiling not supported for DBI::PurePerl"
+ if $DBI::PurePerl;
+ plan skip_all => "test results assume perl >= 5.8"
+ if $] < 5.008;
+ plan tests => 45;
}
-use Test::More tests => 45;
-
$Data::Dumper::Indent = 1;
$Data::Dumper::Terse = 1;
