diff options
author | gregor herrmann <gregoa@debian.org> | 2014-04-06 19:17:28 +0200 |
---|---|---|
committer | gregor herrmann <gregoa@debian.org> | 2014-04-06 19:22:19 +0200 |
commit | 789452f45909370b1477ea79c5591938da3133cf (patch) | |
tree | 76262adbf6cb5e557495301fa893713a5006fbe4 /t/25-sql.t | |
parent | 1b07c6349582c9ced8e95d0fd0950f552bc417b4 (diff) |
Imported Upstream version 1.112
Diffstat (limited to 't/25-sql.t')
-rw-r--r-- | t/25-sql.t | 25 |
1 files changed, 16 insertions, 9 deletions
@@ -3,15 +3,6 @@ use warnings; use Test::More; use File::Spec; -# DBD::DBM uses SQL::Statement if available -# but SQL::Statement versions > 1.20 make the test fail -# (see RT #56463, #56561) -BEGIN { - if ( eval { require SQL::Statement; $SQL::Statement::VERSION > 1.20; } ) { - $ENV{DBI_SQL_NANO} = 1; - } -} - use Test::Database; my @drivers = Test::Database->drivers(); @@ -20,6 +11,22 @@ my @drivers = Test::Database->drivers(); grep { $name eq $_ } @ARGV } @drivers if @ARGV; +# DBD::DBM uses SQL::Statement if available +# but SQL::Statement versions > 1.20 make the test fail +# (see RT #56463, #56561) +if (eval { + require SQL::Statement; + diag "SQL::Statement $SQL::Statement::VERSION"; + $SQL::Statement::VERSION > 1.20; + } + ) +{ + my $skip_DBM = 0; + @drivers = grep { !( $_->name() eq 'DBM' and $skip_DBM = 1 ) } @drivers; + diag "skipping DBM tests because of SQL::Statement bug" + if $skip_DBM; +} + plan skip_all => 'No drivers available for testing' if !@drivers; # some SQL statements to try out |