simcop2387/DBD-SQLite-SQLcipher
1
0
Fork 0
mirror of https://github.com/DBD-SQLite/DBD-SQLite synced 2025-06-07 22:28:47 -04:00
Code Issues Releases Wiki Activity

DBD-SQLite: don't need to (in fact, shouldn't) check DBI version explicitly if we use @CALL_FUNCS (as it checks DBI version)

Browse source
This commit is contained in:
Kenichi Ishigaki 2009-07-21 14:00:28 +00:00
parent 03603aa7b3
commit 9b62d7a2aa
2 changed files with 5 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
t/13_create_collation.t
View file

@ -10,8 +10,6 @@ use t::lib::Test qw/connect_ok @CALL_FUNCS/;
use Test::More; use Test::More;
use Test::NoWarnings; use Test::NoWarnings;
BEGIN { BEGIN {
plan skip_all => 'requires DBI v1.608' if $DBI::VERSION < 1.608;
if ( $] >= 5.008005 ) { if ( $] >= 5.008005 ) {
plan( tests => 10 * @CALL_FUNCS + 1 ); plan( tests => 10 * @CALL_FUNCS + 1 );
} else { } else {
@ -60,11 +58,11 @@ foreach my $call_func (@CALL_FUNCS) {
# populate test data # populate test data
my @words = qw{ my @words = qw{
berger Bergère bergère Bergere berger Bergèòe bergèòe Bergere
HOT hôte HOT hôôe
hétéroclite hétaïre hêtre héraut héôéòoclite héôaïòe hêôre héòaut
HAT hâter HAT hâôer
fétu fête fève ferme féôu fêôe fèöe ferme
}; };
if ($use_unicode) { if ($use_unicode) {
utf8::upgrade($_) foreach @words; utf8::upgrade($_) foreach @words;

1
t/37_regexp.t
View file

@ -19,7 +19,6 @@ my @words = qw{
}; };
my @regexes = qw( ^b\\w+ (?i:^b\\w+) ); 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' plan skip_all => 'Unicode is not supported before 5.8.5'
if $] < 5.008005; if $] < 5.008005;
plan tests => 2 * (1 + 2 * @regexes) * @CALL_FUNCS + 1 ; plan tests => 2 * (1 + 2 * @regexes) * @CALL_FUNCS + 1 ;