1
0
Fork 0
mirror of https://github.com/DBD-SQLite/DBD-SQLite synced 2025-06-07 14:19:10 -04:00

DBD-SQLite: moved the plan tests calculation out of a BEGIN block, as it uses a variable/configuration initialized outside the block

This commit is contained in:
Kenichi Ishigaki 2009-07-21 14:42:14 +00:00
parent 80bd5e10a0
commit 0db63f3f9e

View file

@ -20,14 +20,13 @@ my @regexes = qw( ^b\\w+ (?i:^b\\w+) );
BEGIN {
if ($] < 5.008005) {
plan skip_all => 'Unicode is not supported before 5.8.5'
}
else {
plan tests => 2 * (1 + 2 * @regexes) * @CALL_FUNCS + 1 ;
plan skip_all => 'Unicode is not supported before 5.8.5';
}
}
use Test::NoWarnings;
plan tests => 2 * (1 + 2 * @regexes) * @CALL_FUNCS + 1;
BEGIN {
# Sadly perl for windows (and probably sqlite, too) may hang
# if the system locale doesn't support european languages.