mirror of
https://github.com/DBD-SQLite/DBD-SQLite
synced 2025-06-07 14:19:10 -04:00
DBD-SQLite: don't need to (in fact, shouldn't) check DBI version explicitly if we use @CALL_FUNCS (as it checks DBI version)
This commit is contained in:
parent
03603aa7b3
commit
9b62d7a2aa
2 changed files with 5 additions and 8 deletions
|
@ -10,8 +10,6 @@ use t::lib::Test qw/connect_ok @CALL_FUNCS/;
|
|||
use Test::More;
|
||||
use Test::NoWarnings;
|
||||
BEGIN {
|
||||
plan skip_all => 'requires DBI v1.608' if $DBI::VERSION < 1.608;
|
||||
|
||||
if ( $] >= 5.008005 ) {
|
||||
plan( tests => 10 * @CALL_FUNCS + 1 );
|
||||
} else {
|
||||
|
@ -60,11 +58,11 @@ foreach my $call_func (@CALL_FUNCS) {
|
|||
|
||||
# populate test data
|
||||
my @words = qw{
|
||||
berger Bergère bergère Bergere
|
||||
HOT hôte
|
||||
hétéroclite hétaïre hêtre héraut
|
||||
HAT hâter
|
||||
fétu fête fève ferme
|
||||
berger Bergèòe bergèòe Bergere
|
||||
HOT hôôe
|
||||
héôéòoclite héôaïòe hêôre héòaut
|
||||
HAT hâôer
|
||||
féôu fêôe fèöe ferme
|
||||
};
|
||||
if ($use_unicode) {
|
||||
utf8::upgrade($_) foreach @words;
|
||||
|
|
|
@ -19,7 +19,6 @@ my @words = qw{
|
|||
};
|
||||
my @regexes = qw( ^b\\w+ (?i:^b\\w+) );
|
||||
|
||||
plan skip_all => 'requires DBI v1.608' if $DBI::VERSION < 1.608;
|
||||
plan skip_all => 'Unicode is not supported before 5.8.5'
|
||||
if $] < 5.008005;
|
||||
plan tests => 2 * (1 + 2 * @regexes) * @CALL_FUNCS + 1 ;
|
||||
|
|
Loading…
Add table
Reference in a new issue