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

Merge pull request #24 from ribasushi/master

Fix for RT#120444
This commit is contained in:
Kenichi Ishigaki 2017-05-23 14:52:56 +09:00 committed by GitHub
commit 63e824c1b3
107 changed files with 213 additions and 108 deletions

View file

@ -11,9 +11,11 @@ BEGIN {
use Test::More tests => 3;
use lib "t/lib";
use_ok('DBI');
use_ok('DBD::SQLite');
use_ok('t::lib::SQLiteTest');
use_ok('SQLiteTest');
diag("\$DBI::VERSION=$DBI::VERSION");

View file

@ -8,7 +8,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest qw/connect_ok @CALL_FUNCS/;
use lib "t/lib";
use SQLiteTest qw/connect_ok @CALL_FUNCS/;
use Test::More;
use Test::NoWarnings;

View file

@ -8,7 +8,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest;
use lib "t/lib";
use SQLiteTest;
use Test::More tests => 7;
use Test::NoWarnings;

View file

@ -6,7 +6,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest;
use lib "t/lib";
use SQLiteTest;
use Test::More tests => 14;
use Test::NoWarnings;

View file

@ -6,7 +6,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest;
use lib "t/lib";
use SQLiteTest;
use Test::More tests => 22;
use Test::NoWarnings;

View file

@ -6,7 +6,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest;
use lib "t/lib";
use SQLiteTest;
use Test::More tests => 6;
use Test::NoWarnings;

View file

@ -6,7 +6,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest;
use lib "t/lib";
use SQLiteTest;
use Test::More tests => 8;
use Test::NoWarnings;

View file

@ -8,7 +8,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest qw/connect_ok dbfile @CALL_FUNCS/;
use lib "t/lib";
use SQLiteTest qw/connect_ok dbfile @CALL_FUNCS/;
use Test::More;
use Test::NoWarnings;

View file

@ -7,7 +7,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest qw/connect_ok @CALL_FUNCS/;
use lib "t/lib";
use SQLiteTest qw/connect_ok @CALL_FUNCS/;
use Test::More;
use Test::NoWarnings;
use DBD::SQLite;

View file

@ -6,7 +6,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest qw/connect_ok @CALL_FUNCS/;
use lib "t/lib";
use SQLiteTest qw/connect_ok @CALL_FUNCS/;
use Test::More;
use Test::NoWarnings;
use DBD::SQLite;

View file

@ -9,7 +9,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest;
use lib "t/lib";
use SQLiteTest;
use Test::More;
BEGIN {
if ( $] >= 5.008005 ) {

View file

@ -6,7 +6,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest qw/connect_ok dies @CALL_FUNCS/;
use lib "t/lib";
use SQLiteTest qw/connect_ok dies @CALL_FUNCS/;
use Test::More;
BEGIN {
my $COLLATION_TESTS = 10;

View file

@ -6,7 +6,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest qw/connect_ok @CALL_FUNCS/;
use lib "t/lib";
use SQLiteTest qw/connect_ok @CALL_FUNCS/;
use Test::More;
use Test::NoWarnings;

View file

@ -6,7 +6,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest;
use lib "t/lib";
use SQLiteTest;
use Test::More tests => 37;
use Test::NoWarnings;

View file

@ -6,7 +6,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest;
use lib "t/lib";
use SQLiteTest;
use Test::More tests => 12;
use Test::NoWarnings;

View file

@ -9,7 +9,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest;
use lib "t/lib";
use SQLiteTest;
use Test::More tests => 4;
use Test::NoWarnings;

View file

@ -8,7 +8,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest;
use lib "t/lib";
use SQLiteTest;
use Test::More tests => 10;
use Test::NoWarnings;

View file

@ -6,7 +6,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest;
use lib "t/lib";
use SQLiteTest;
use Test::More tests => 39;
use Test::NoWarnings;
use DBI ':sql_types';

View file

@ -9,7 +9,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest;
use lib "t/lib";
use SQLiteTest;
use Test::More tests => 17;
use Test::NoWarnings;
use DBI ':sql_types';

View file

@ -6,7 +6,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest;
use lib "t/lib";
use SQLiteTest;
use Test::More tests => 27;
use Test::NoWarnings;

View file

@ -8,7 +8,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest;
use lib "t/lib";
use SQLiteTest;
use Test::More tests => 12;
use Test::NoWarnings;

View file

@ -8,7 +8,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest;
use lib "t/lib";
use SQLiteTest;
use Test::More tests => 9;
# Create a database

View file

@ -8,7 +8,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest;
use lib "t/lib";
use SQLiteTest;
use Test::More tests => 18;
use Test::NoWarnings;

View file

@ -8,7 +8,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest;
use lib "t/lib";
use SQLiteTest;
use Test::More tests => 14;
use Test::NoWarnings;

View file

@ -8,7 +8,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest;
use lib "t/lib";
use SQLiteTest;
use Test::More tests => 28;
# use Test::NoWarnings;

View file

@ -7,7 +7,8 @@ BEGIN {
}
use Test::More tests => 21;
use t::lib::SQLiteTest;
use lib "t/lib";
use SQLiteTest;
# 1-4. Connect & create tables
my $dbh = connect_ok(dbfile => 'foo');

View file

@ -10,7 +10,8 @@ BEGIN {
}
use Test::More tests => 9;
use t::lib::SQLiteTest;
use lib "t/lib";
use SQLiteTest;
my $create1 = 'CREATE TABLE table1 (id INTEGER NOT NULL, name CHAR (64) NOT NULL)';
my $create2 = 'CREATE TABLE table2 (id INTEGER NOT NULL, name CHAR (64) NOT NULL)';

View file

@ -8,7 +8,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest;
use lib "t/lib";
use SQLiteTest;
use Test::More tests => 6;
use Test::NoWarnings;

View file

@ -10,7 +10,8 @@ my @to_be_tested;
BEGIN { @to_be_tested = (1.23E4); }
use Test::More tests => 2 + @to_be_tested;
use t::lib::SQLiteTest;
use lib "t/lib";
use SQLiteTest;
my $dbh = connect_ok();

View file

@ -7,7 +7,8 @@ BEGIN {
}
use Test::More tests => 4;
use t::lib::SQLiteTest;
use lib "t/lib";
use SQLiteTest;
my $dbh = connect_ok( PrintError => 0, RaiseError => 0 );

View file

@ -9,7 +9,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest;
use lib "t/lib";
use SQLiteTest;
use Test::More;
BEGIN {
if ( $] >= 5.008005 ) {

View file

@ -4,7 +4,8 @@ use strict;
use warnings;
use Test::More;
use t::lib::SQLiteTest qw/connect_ok dbfile @CALL_FUNCS requires_sqlite/;
use lib "t/lib";
use SQLiteTest qw/connect_ok dbfile @CALL_FUNCS requires_sqlite/;
BEGIN { requires_sqlite('3.6.11') }

View file

@ -6,7 +6,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest;
use lib "t/lib";
use SQLiteTest;
use Test::More tests => 22;
use Test::NoWarnings;

View file

@ -6,7 +6,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest qw/connect_ok @CALL_FUNCS/;
use lib "t/lib";
use SQLiteTest qw/connect_ok @CALL_FUNCS/;
use Test::More;
use Test::NoWarnings qw/had_no_warnings clear_warnings/;

View file

@ -6,7 +6,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest qw/connect_ok @CALL_FUNCS/;
use lib "t/lib";
use SQLiteTest qw/connect_ok @CALL_FUNCS/;
use Test::More;
my @words = qw{

View file

@ -6,7 +6,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest qw/connect_ok/;
use lib "t/lib";
use SQLiteTest qw/connect_ok/;
use Test::More;
use Test::NoWarnings;

View file

@ -6,7 +6,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest;
use lib "t/lib";
use SQLiteTest;
use Test::More;
BEGIN { requires_sqlite('3.6.19') }

View file

@ -6,7 +6,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest qw/connect_ok/;
use lib "t/lib";
use SQLiteTest qw/connect_ok/;
use Test::More;
use Test::NoWarnings;

View file

@ -6,7 +6,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest qw/connect_ok/;
use lib "t/lib";
use SQLiteTest qw/connect_ok/;
use Test::More;
use Test::NoWarnings;

View file

@ -6,7 +6,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest qw/connect_ok/;
use lib "t/lib";
use SQLiteTest qw/connect_ok/;
use Test::More;
use Test::NoWarnings;

View file

@ -5,7 +5,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest qw/connect_ok has_sqlite/;
use lib "t/lib";
use SQLiteTest qw/connect_ok has_sqlite/;
use Test::More;
use DBD::SQLite;

View file

@ -6,7 +6,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest;
use lib "t/lib";
use SQLiteTest;
use Test::More;
use DBD::SQLite;
use Data::Dumper;

View file

@ -6,7 +6,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest;
use lib "t/lib";
use SQLiteTest;
use Test::More;
BEGIN { requires_sqlite('3.6.8') }

View file

@ -6,7 +6,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest;
use lib "t/lib";
use SQLiteTest;
use Test::More;
BEGIN {
eval {require APR::Table; 1};

View file

@ -8,7 +8,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest qw/connect_ok dbfile @CALL_FUNCS/;
use lib "t/lib";
use SQLiteTest qw/connect_ok dbfile @CALL_FUNCS/;
use Test::More;
use Test::NoWarnings;

View file

@ -8,7 +8,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest qw/connect_ok/;
use lib "t/lib";
use SQLiteTest qw/connect_ok/;
use DBI qw(:sql_types);
use Test::More;
use Test::NoWarnings;

View file

@ -6,7 +6,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest qw/connect_ok @CALL_FUNCS requires_sqlite/;
use lib "t/lib";
use SQLiteTest qw/connect_ok @CALL_FUNCS requires_sqlite/;
use Test::More;
BEGIN { requires_sqlite('3.6.21') }

View file

@ -6,7 +6,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest;
use lib "t/lib";
use SQLiteTest;
use Test::More;
BEGIN {

View file

@ -15,7 +15,8 @@ BEGIN {
}
}
use t::lib::SQLiteTest qw/connect_ok @CALL_FUNCS/;
use lib "t/lib";
use SQLiteTest qw/connect_ok @CALL_FUNCS/;
use Test::NoWarnings;
plan tests => 16 * @CALL_FUNCS + 1;

View file

@ -6,7 +6,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest qw/connect_ok @CALL_FUNCS requires_sqlite/;
use lib "t/lib";
use SQLiteTest qw/connect_ok @CALL_FUNCS requires_sqlite/;
use Test::More;
BEGIN { requires_sqlite('3.7.10') }

View file

@ -6,7 +6,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest qw/connect_ok @CALL_FUNCS has_sqlite/;
use lib "t/lib";
use SQLiteTest qw/connect_ok @CALL_FUNCS has_sqlite/;
use Test::More;
use Test::NoWarnings;

View file

@ -6,7 +6,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest qw/connect_ok/;
use lib "t/lib";
use SQLiteTest qw/connect_ok/;
use Test::More tests => 5;
use Test::NoWarnings;

View file

@ -6,7 +6,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest;
use lib "t/lib";
use SQLiteTest;
use Test::More;
BEGIN {

View file

@ -6,7 +6,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest;
use lib "t/lib";
use SQLiteTest;
use Test::More;
my $tests = 7;

View file

@ -6,7 +6,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest;
use lib "t/lib";
use SQLiteTest;
use Test::More;
BEGIN { requires_sqlite('3.7.7') }

View file

@ -6,7 +6,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest qw/connect_ok/;
use lib "t/lib";
use SQLiteTest qw/connect_ok/;
use Test::More;
use Test::NoWarnings;
use DBI qw(:sql_types);

View file

@ -6,7 +6,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest qw/connect_ok/;
use lib "t/lib";
use SQLiteTest qw/connect_ok/;
use Test::More;
use DBD::SQLite;

View file

@ -6,7 +6,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest qw/connect_ok requires_sqlite/;
use lib "t/lib";
use SQLiteTest qw/connect_ok requires_sqlite/;
use Test::More;
use DBD::SQLite::Constants qw/SQLITE_OPEN_READONLY/;

View file

@ -6,7 +6,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest qw/requires_sqlite/;
use lib "t/lib";
use SQLiteTest qw/requires_sqlite/;
use Test::More;
use DBD::SQLite;

View file

@ -6,7 +6,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest qw/connect_ok @CALL_FUNCS/;
use lib "t/lib";
use SQLiteTest qw/connect_ok @CALL_FUNCS/;
use Test::More;
BEGIN {
if ($] < 5.008005) {

View file

@ -6,7 +6,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest;
use lib "t/lib";
use SQLiteTest;
use Test::More;
use Test::NoWarnings;

View file

@ -1,4 +1,4 @@
package t::lib::SQLiteTest;
package SQLiteTest;
# Support code for DBD::SQLite tests

View file

@ -6,7 +6,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest;
use lib "t/lib";
use SQLiteTest;
use Test::More;
BEGIN { requires_sqlite('3.6.8') }

View file

@ -6,7 +6,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest;
use lib "t/lib";
use SQLiteTest;
use Test::More;
BEGIN { requires_sqlite('3.6.8') }

View file

@ -6,7 +6,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest;
use lib "t/lib";
use SQLiteTest;
use Test::More;
plan tests => 14;

View file

@ -10,7 +10,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest;
use lib "t/lib";
use SQLiteTest;
use Test::More tests => 13;
use Test::NoWarnings;

View file

@ -6,7 +6,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest;
use lib "t/lib";
use SQLiteTest;
use Test::More tests => 11;
use Test::NoWarnings;

View file

@ -6,7 +6,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest;
use lib "t/lib";
use SQLiteTest;
use Test::More;
BEGIN {
if ( $] >= 5.008005 ) {

View file

@ -6,7 +6,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest;
use lib "t/lib";
use SQLiteTest;
use Test::More tests => 14;
use Test::NoWarnings;

View file

@ -6,7 +6,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest qw/connect_ok @CALL_FUNCS/;
use lib "t/lib";
use SQLiteTest qw/connect_ok @CALL_FUNCS/;
use Test::More;
BEGIN {
if ( $] >= 5.008005 ) {

View file

@ -3,7 +3,8 @@ use strict;
use warnings;
use DBI;
use Test::More;
use t::lib::SQLiteTest;
use lib "t/lib";
use SQLiteTest;
BEGIN { requires_sqlite('3.6.3') }

View file

@ -5,7 +5,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest;
use lib "t/lib";
use SQLiteTest;
use Test::More tests => 6;
use Test::NoWarnings;

View file

@ -5,7 +5,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest;
use lib "t/lib";
use SQLiteTest;
use Test::More tests => 8;
use Test::NoWarnings;
use DBI qw(:sql_types);

View file

@ -6,7 +6,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest;
use lib "t/lib";
use SQLiteTest;
use Test::More tests => 19;
use Test::NoWarnings;
use DBI qw(:sql_types);

View file

@ -6,7 +6,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest;
use lib "t/lib";
use SQLiteTest;
use Test::More tests => 8;
use Test::NoWarnings;

View file

@ -10,7 +10,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest;
use lib "t/lib";
use SQLiteTest;
use Test::More tests => 32;
use Test::NoWarnings;

View file

@ -8,7 +8,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest;
use lib "t/lib";
use SQLiteTest;
use Test::More tests => 5;
use Test::NoWarnings;

View file

@ -6,7 +6,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest;
use lib "t/lib";
use SQLiteTest;
use Test::More tests => 4;
use Test::NoWarnings;

View file

@ -7,7 +7,8 @@ BEGIN {
}
use Test::More;
use t::lib::SQLiteTest;
use lib "t/lib";
use SQLiteTest;
use DBD::SQLite;
BEGIN {

View file

@ -6,7 +6,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest;
use lib "t/lib";
use SQLiteTest;
use Test::More;
BEGIN {

View file

@ -6,7 +6,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest;
use lib "t/lib";
use SQLiteTest;
use Test::More;
BEGIN {

View file

@ -6,7 +6,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest;
use lib "t/lib";
use SQLiteTest;
use Test::More tests => 92 * 4 + 2;
use Test::NoWarnings;

View file

@ -6,7 +6,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest;
use lib "t/lib";
use SQLiteTest;
use Test::More;
BEGIN {
require DBD::SQLite;

View file

@ -6,7 +6,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest qw/connect_ok @CALL_FUNCS/;
use lib "t/lib";
use SQLiteTest qw/connect_ok @CALL_FUNCS/;
use Test::More;
use DBD::SQLite;
#use Test::NoWarnings;

View file

@ -6,7 +6,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest;
use lib "t/lib";
use SQLiteTest;
use Test::More tests => 8;
use Test::NoWarnings;

View file

@ -6,7 +6,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest qw/connect_ok/;
use lib "t/lib";
use SQLiteTest qw/connect_ok/;
use Test::More tests => 34;
use DBI qw/:sql_types/;

View file

@ -6,7 +6,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest qw/connect_ok/;
use lib "t/lib";
use SQLiteTest qw/connect_ok/;
use Test::More;
BEGIN {
if ( $] >= 5.008005 ) {

View file

@ -6,7 +6,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest;
use lib "t/lib";
use SQLiteTest;
use Test::More tests => 2;
use DBI;

View file

@ -6,7 +6,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest qw/connect_ok/;
use lib "t/lib";
use SQLiteTest qw/connect_ok/;
use Test::More tests => 6;
use Test::NoWarnings;

View file

@ -6,7 +6,8 @@ BEGIN {
$| = 1;
$^W = 1;
}
use t::lib::SQLiteTest;
use lib "t/lib";
use SQLiteTest;
use Test::More;
use DBI;

View file

@ -6,7 +6,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest;
use lib "t/lib";
use SQLiteTest;
use Test::More tests => 4;
use Test::NoWarnings;

View file

@ -6,7 +6,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest;
use lib "t/lib";
use SQLiteTest;
use Test::More;
BEGIN {

View file

@ -6,7 +6,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest qw/connect_ok/;
use lib "t/lib";
use SQLiteTest qw/connect_ok/;
use Test::More;
use Test::NoWarnings;

View file

@ -6,7 +6,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest;
use lib "t/lib";
use SQLiteTest;
use Test::More tests => 3;
use Test::NoWarnings;

View file

@ -6,7 +6,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest;
use lib "t/lib";
use SQLiteTest;
use Test::More;
use Test::NoWarnings;

View file

@ -9,7 +9,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest;
use lib "t/lib";
use SQLiteTest;
use Test::More;
BEGIN {
if ( $] >= 5.008005 ) {

View file

@ -12,7 +12,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest;
use lib "t/lib";
use SQLiteTest;
use Test::More;
BEGIN { requires_sqlite('3.7.9') }

View file

@ -6,7 +6,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest;
use lib "t/lib";
use SQLiteTest;
use Test::More;
BEGIN { requires_sqlite('3.7.7') }

View file

@ -5,7 +5,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest qw/connect_ok $sqlite_call/;
use lib "t/lib";
use SQLiteTest qw/connect_ok $sqlite_call/;
use Test::More;
use Test::NoWarnings;

View file

@ -5,7 +5,8 @@ BEGIN {
$^W = 1;
}
use t::lib::SQLiteTest qw/connect_ok $sqlite_call/;
use lib "t/lib";
use SQLiteTest qw/connect_ok $sqlite_call/;
use Test::More;
use Test::NoWarnings;

Some files were not shown because too many files have changed in this diff Show more