Author: turnstep
Date: Fri Mar 21 09:28:15 2008
New Revision: 10968
Modified:
DBD-Pg/trunk/t/00basic.t
Log:
Pull the Test::Warn version comparison test. It is causing too many problems
with the odd error message on some systems about 'found carped warning:
uplevel 2 is more than the caller stack', which obviously has nothing to do
with what we are trying to test. In addition, it's fairly certain that this
test is no longer needed as the version comparisons are running smoothly now,
and we're unlikely to do anything like switch to a four-part version number
soon or anything. :)
Modified: DBD-Pg/trunk/t/00basic.t
==============================================================================
--- DBD-Pg/trunk/t/00basic.t (original)
+++ DBD-Pg/trunk/t/00basic.t Fri Mar 21 09:28:15 2008
@@ -5,7 +5,7 @@
use strict;
use warnings;
-use Test::More tests => 4;
+use Test::More tests => 3;
select(($|=1,select(STDERR),$|=1)[1]);
BEGIN {
@@ -15,11 +15,3 @@
use DBD::Pg;
like( $DBD::Pg::VERSION, qr/^v?\d+\.\d+\.\d+(?:_\d+)?$/, qq{Found
DBD::Pg::VERSION as "$DBD::Pg::VERSION"});
-SKIP: {
- eval { require Test::Warn; };
- $@ and skip 'Need Test::Warn to test version warning', 1;
-
- my $t=q{Version comparison does not throw a warning};
-
- Test::Warn::warnings_are (sub {$DBD::Pg::VERSION <= '1.49'}, [], $t );
-}
