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

not to use Test::FailWarnings except for developers environment

Browse source
This commit is contained in:
Kenichi Ishigaki 2019-01-07 03:48:10 +09:00
parent f56689d929
commit 627666e888
110 changed files with 110 additions and 110 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
t/02_logon.t
View file

@ -5,7 +5,7 @@ use warnings;
use lib "t/lib"; use lib "t/lib";
use SQLiteTest qw/connect_ok @CALL_FUNCS/; use SQLiteTest qw/connect_ok @CALL_FUNCS/;
use Test::More; use Test::More;
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
my $show_diag = 0; my $show_diag = 0;
foreach my $call_func (@CALL_FUNCS) { foreach my $call_func (@CALL_FUNCS) {

2
t/03_create_table.t
View file

@ -5,7 +5,7 @@ use warnings;
use lib "t/lib"; use lib "t/lib";
use SQLiteTest; use SQLiteTest;
use Test::More; use Test::More;
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
my $dbh = connect_ok(); my $dbh = connect_ok();
$dbh->do(<<'END_SQL'); $dbh->do(<<'END_SQL');

2
t/04_insert.t
View file

@ -3,7 +3,7 @@ use warnings;
use lib "t/lib"; use lib "t/lib";
use SQLiteTest; use SQLiteTest;
use Test::More; use Test::More;
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
my $dbh = connect_ok(); my $dbh = connect_ok();

2
t/05_select.t
View file

@ -3,7 +3,7 @@ use warnings;
use lib "t/lib"; use lib "t/lib";
use SQLiteTest; use SQLiteTest;
use Test::More; use Test::More;
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
my $dbh = connect_ok( RaiseError => 1 ); my $dbh = connect_ok( RaiseError => 1 );
$dbh->do("CREATE TABLE f (f1, f2, f3)"); $dbh->do("CREATE TABLE f (f1, f2, f3)");

2
t/06_tran.t
View file

@ -3,7 +3,7 @@ use warnings;
use lib "t/lib"; use lib "t/lib";
use SQLiteTest; use SQLiteTest;
use Test::More; use Test::More;
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
my $dbh = connect_ok( my $dbh = connect_ok(
AutoCommit => 0, AutoCommit => 0,

2
t/07_error.t
View file

@ -3,7 +3,7 @@ use warnings;
use lib "t/lib"; use lib "t/lib";
use SQLiteTest; use SQLiteTest;
use Test::More; use Test::More;
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
my $dbh = connect_ok( RaiseError => 1, PrintError => 0 ); my $dbh = connect_ok( RaiseError => 1, PrintError => 0 );
eval { eval {

2
t/08_busy.t
View file

@ -5,7 +5,7 @@ use warnings;
use lib "t/lib"; use lib "t/lib";
use SQLiteTest qw/connect_ok dbfile @CALL_FUNCS/; use SQLiteTest qw/connect_ok dbfile @CALL_FUNCS/;
use Test::More; use Test::More;
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
foreach my $call_func (@CALL_FUNCS) { foreach my $call_func (@CALL_FUNCS) {

2
t/09_create_function.t
View file

@ -4,7 +4,7 @@ use warnings;
use lib "t/lib"; use lib "t/lib";
use SQLiteTest qw/connect_ok @CALL_FUNCS/; use SQLiteTest qw/connect_ok @CALL_FUNCS/;
use Test::More; use Test::More;
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
use DBD::SQLite; use DBD::SQLite;
use DBD::SQLite::Constants; use DBD::SQLite::Constants;

2
t/10_create_aggregate.t
View file

@ -3,7 +3,7 @@ use warnings;
use lib "t/lib"; use lib "t/lib";
use SQLiteTest qw/connect_ok @CALL_FUNCS/; use SQLiteTest qw/connect_ok @CALL_FUNCS/;
use Test::More; use Test::More;
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
use DBD::SQLite; use DBD::SQLite;
use DBD::SQLite::Constants; use DBD::SQLite::Constants;

2
t/11_get_info.t
View file

@ -3,7 +3,7 @@ use warnings;
use lib "t/lib"; use lib "t/lib";
use SQLiteTest; use SQLiteTest;
use Test::More; use Test::More;
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
use DBI::Const::GetInfoType; use DBI::Const::GetInfoType;

2
t/12_unicode.t
View file

@ -6,7 +6,7 @@ use warnings;
use lib "t/lib"; use lib "t/lib";
use SQLiteTest; use SQLiteTest;
use Test::More; use Test::More;
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
BEGIN { requires_unicode_support() } BEGIN { requires_unicode_support() }

2
t/13_create_collation.t
View file

@ -3,7 +3,7 @@ use warnings;
use lib "t/lib"; use lib "t/lib";
use SQLiteTest; use SQLiteTest;
use Test::More; use Test::More;
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
use Encode qw/decode/; use Encode qw/decode/;
use DBD::SQLite; use DBD::SQLite;

2
t/14_progress_handler.t
View file

@ -3,7 +3,7 @@ use warnings;
use lib "t/lib"; use lib "t/lib";
use SQLiteTest qw/connect_ok @CALL_FUNCS/; use SQLiteTest qw/connect_ok @CALL_FUNCS/;
use Test::More; use Test::More;
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
my $N_OPCODES = 50; # how many opcodes before calling the progress handler my $N_OPCODES = 50; # how many opcodes before calling the progress handler

2
t/15_ak_dbd.t
View file

@ -3,7 +3,7 @@ use warnings;
use lib "t/lib"; use lib "t/lib";
use SQLiteTest; use SQLiteTest;
use Test::More; use Test::More;
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
# Create a database # Create a database
my $dbh = connect_ok( dbfile => 'foo', RaiseError => 1, PrintError => 1, PrintWarn => 1 ); my $dbh = connect_ok( dbfile => 'foo', RaiseError => 1, PrintError => 1, PrintWarn => 1 );

2
t/16_column_info.t
View file

@ -3,7 +3,7 @@ use warnings;
use lib "t/lib"; use lib "t/lib";
use SQLiteTest; use SQLiteTest;
use Test::More; use Test::More;
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
my $dbh = DBI->connect('dbi:SQLite:dbname=:memory:',undef,undef,{RaiseError => 1}); my $dbh = DBI->connect('dbi:SQLite:dbname=:memory:',undef,undef,{RaiseError => 1});

2
t/17_createdrop.t
View file

@ -6,7 +6,7 @@ use warnings;
use lib "t/lib"; use lib "t/lib";
use SQLiteTest; use SQLiteTest;
use Test::More; use Test::More;
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
# Create a database # Create a database
my $dbh = connect_ok(); my $dbh = connect_ok();

2
t/18_insertfetch.t
View file

@ -5,7 +5,7 @@ use warnings;
use lib "t/lib"; use lib "t/lib";
use SQLiteTest; use SQLiteTest;
use Test::More; use Test::More;
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
# Create a database # Create a database
my $dbh = connect_ok( RaiseError => 1 ); my $dbh = connect_ok( RaiseError => 1 );

2
t/19_bindparam.t
View file

@ -3,7 +3,7 @@ use warnings;
use lib "t/lib"; use lib "t/lib";
use SQLiteTest; use SQLiteTest;
use Test::More; use Test::More;
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
use DBI ':sql_types'; use DBI ':sql_types';
# Create a database # Create a database

2
t/20_blobs.t
View file

@ -6,7 +6,7 @@ use warnings;
use lib "t/lib"; use lib "t/lib";
use SQLiteTest; use SQLiteTest;
use Test::More; use Test::More;
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
use DBI ':sql_types'; use DBI ':sql_types';
sub ShowBlob($) { sub ShowBlob($) {

2
t/21_blobtext.t
View file

@ -3,7 +3,7 @@ use warnings;
use lib "t/lib"; use lib "t/lib";
use SQLiteTest; use SQLiteTest;
use Test::More; use Test::More;
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
my $dbh = connect_ok( my $dbh = connect_ok(
RaiseError => 1, RaiseError => 1,

2
t/22_listfields.t
View file

@ -5,7 +5,7 @@ use warnings;
use lib "t/lib"; use lib "t/lib";
use SQLiteTest; use SQLiteTest;
use Test::More; use Test::More;
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
# Create a database # Create a database
my $dbh = connect_ok(); my $dbh = connect_ok();

2
t/23_nulls.t
View file

@ -5,7 +5,7 @@ use warnings;
use lib "t/lib"; use lib "t/lib";
use SQLiteTest; use SQLiteTest;
use Test::More; use Test::More;
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
# Create a database # Create a database
my $dbh = connect_ok(); my $dbh = connect_ok();

2
t/24_numrows.t
View file

@ -5,7 +5,7 @@ use warnings;
use lib "t/lib"; use lib "t/lib";
use SQLiteTest; use SQLiteTest;
use Test::More; use Test::More;
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
sub rows { sub rows {
my $sth = shift; my $sth = shift;

2
t/25_chopblanks.t
View file

@ -5,7 +5,7 @@ use warnings;
use lib "t/lib"; use lib "t/lib";
use SQLiteTest; use SQLiteTest;
use Test::More; use Test::More;
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
# Create a database # Create a database
my $dbh = connect_ok( RaiseError => 1 ); my $dbh = connect_ok( RaiseError => 1 );

2
t/26_commit.t
View file

@ -5,7 +5,7 @@ use warnings;
use lib "t/lib"; use lib "t/lib";
use SQLiteTest; use SQLiteTest;
use Test::More; use Test::More;
# use Test::FailWarnings; # use if -d ".git", "Test::FailWarnings";
my $warning_count = 0; my $warning_count = 0;

2
t/27_metadata.t
View file

@ -3,7 +3,7 @@ use warnings;
use Test::More; use Test::More;
use lib "t/lib"; use lib "t/lib";
use SQLiteTest; use SQLiteTest;
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
# 1-4. Connect & create tables # 1-4. Connect & create tables
my $dbh = connect_ok(dbfile => 'foo'); my $dbh = connect_ok(dbfile => 'foo');

2
t/28_schemachange.t
View file

@ -6,7 +6,7 @@ use warnings;
use Test::More; use Test::More;
use lib "t/lib"; use lib "t/lib";
use SQLiteTest; use SQLiteTest;
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
my $create1 = 'CREATE TABLE table1 (id INTEGER NOT NULL, name CHAR (64) NOT NULL)'; 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)'; my $create2 = 'CREATE TABLE table2 (id INTEGER NOT NULL, name CHAR (64) NOT NULL)';

2
t/30_auto_rollback.t
View file

@ -5,7 +5,7 @@ use warnings;
use lib "t/lib"; use lib "t/lib";
use SQLiteTest; use SQLiteTest;
use Test::More; use Test::More;
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
SCOPE: { SCOPE: {
my $dbh = connect_ok( RaiseError => 1, PrintWarn => 0, Warn => 0 ); my $dbh = connect_ok( RaiseError => 1, PrintWarn => 0, Warn => 0 );

2
t/31_bind_weird_number_param.t
View file

@ -6,7 +6,7 @@ BEGIN { @to_be_tested = (1.23E4); }
use Test::More; use Test::More;
use lib "t/lib"; use lib "t/lib";
use SQLiteTest; use SQLiteTest;
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
my $dbh = connect_ok(); my $dbh = connect_ok();

2
t/32_inactive_error.t
View file

@ -3,7 +3,7 @@ use warnings;
use Test::More; use Test::More;
use lib "t/lib"; use lib "t/lib";
use SQLiteTest; use SQLiteTest;
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
my $dbh = connect_ok( PrintError => 0, RaiseError => 0 ); my $dbh = connect_ok( PrintError => 0, RaiseError => 0 );

2
t/33_non_latin_path.t
View file

@ -6,7 +6,7 @@ use warnings;
use lib "t/lib"; use lib "t/lib";
use SQLiteTest; use SQLiteTest;
use Test::More; use Test::More;
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
use File::Temp (); use File::Temp ();
use File::Spec::Functions ':ALL'; use File::Spec::Functions ':ALL';

2
t/34_online_backup.t
View file

@ -7,7 +7,7 @@ use SQLiteTest qw/connect_ok dbfile @CALL_FUNCS requires_sqlite/;
BEGIN { requires_sqlite('3.6.11') } BEGIN { requires_sqlite('3.6.11') }
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
use DBI; use DBI;
foreach my $call_func (@CALL_FUNCS) { foreach my $call_func (@CALL_FUNCS) {

2
t/35_table_info.t
View file

@ -3,7 +3,7 @@ use warnings;
use lib "t/lib"; use lib "t/lib";
use SQLiteTest; use SQLiteTest;
use Test::More; use Test::More;
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
my @catalog_info = ( my @catalog_info = (
[undef, undef, undef, undef, undef], [undef, undef, undef, undef, undef],

2
t/36_hooks.t
View file

@ -3,7 +3,7 @@ use warnings;
use lib "t/lib"; use lib "t/lib";
use SQLiteTest; use SQLiteTest;
use Test::More; use Test::More;
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
use DBD::SQLite; use DBD::SQLite;

2
t/37_regexp.t
View file

@ -3,7 +3,7 @@ use warnings;
use lib "t/lib"; use lib "t/lib";
use SQLiteTest; use SQLiteTest;
use Test::More; use Test::More;
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
my @words = qw{ my @words = qw{
berger Bergère bergère Bergere berger Bergère bergère Bergere

2
t/38_empty_statement.t
View file

@ -3,7 +3,7 @@ use warnings;
use lib "t/lib"; use lib "t/lib";
use SQLiteTest qw/connect_ok/; use SQLiteTest qw/connect_ok/;
use Test::More; use Test::More;
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
my $dbh = connect_ok( RaiseError => 1 ); my $dbh = connect_ok( RaiseError => 1 );

2
t/39_foreign_keys.t
View file

@ -6,7 +6,7 @@ use Test::More;
BEGIN { requires_sqlite('3.6.19') } BEGIN { requires_sqlite('3.6.19') }
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
# following tests are from http://www.sqlite.org/foreignkeys.html # following tests are from http://www.sqlite.org/foreignkeys.html

2
t/40_multiple_statements.t
View file

@ -3,7 +3,7 @@ use warnings;
use lib "t/lib"; use lib "t/lib";
use SQLiteTest qw/connect_ok/; use SQLiteTest qw/connect_ok/;
use Test::More; use Test::More;
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
{ {
# DBD::SQLite prepares/does the first statement only; # DBD::SQLite prepares/does the first statement only;

2
t/41_placeholders.t
View file

@ -3,7 +3,7 @@ use warnings;
use lib "t/lib"; use lib "t/lib";
use SQLiteTest qw/connect_ok/; use SQLiteTest qw/connect_ok/;
use Test::More; use Test::More;
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
my $dbh = connect_ok( RaiseError => 1 ); my $dbh = connect_ok( RaiseError => 1 );
ok $dbh->do('create table foo (id integer, value integer)'); ok $dbh->do('create table foo (id integer, value integer)');

2
t/42_primary_key_info.t
View file

@ -3,7 +3,7 @@ use warnings;
use lib "t/lib"; use lib "t/lib";
use SQLiteTest qw/connect_ok/; use SQLiteTest qw/connect_ok/;
use Test::More; use Test::More;
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
for my $quote ('', qw/' " ` []/) { for my $quote ('', qw/' " ` []/) {
my ($begin_quote, $end_quote) = (substr($quote, 0, 1), substr($quote, -1, 1)); my ($begin_quote, $end_quote) = (substr($quote, 0, 1), substr($quote, -1, 1));

2
t/43_fts3.t
View file

@ -3,7 +3,7 @@ use warnings;
use lib "t/lib"; use lib "t/lib";
use SQLiteTest; use SQLiteTest;
use Test::More; use Test::More;
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
use DBD::SQLite; use DBD::SQLite;
my @texts = ("il était une bergère", my @texts = ("il était une bergère",

2
t/44_rtree.t
View file

@ -3,7 +3,7 @@ use warnings;
use lib "t/lib"; use lib "t/lib";
use SQLiteTest; use SQLiteTest;
use Test::More; use Test::More;
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
BEGIN { BEGIN {
if (!has_compile_option('ENABLE_RTREE')) { if (!has_compile_option('ENABLE_RTREE')) {

2
t/45_savepoints.t
View file

@ -3,7 +3,7 @@ use warnings;
use lib "t/lib"; use lib "t/lib";
use SQLiteTest; use SQLiteTest;
use Test::More; use Test::More;
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
BEGIN { requires_sqlite('3.6.8') } BEGIN { requires_sqlite('3.6.8') }

2
t/46_mod_perl.t
View file

@ -3,7 +3,7 @@ use warnings;
use lib "t/lib"; use lib "t/lib";
use SQLiteTest; use SQLiteTest;
use Test::More; use Test::More;
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
BEGIN { BEGIN {
eval {require APR::Table; 1}; eval {require APR::Table; 1};

2
t/47_execute.t
View file

@ -5,7 +5,7 @@ use warnings;
use lib "t/lib"; use lib "t/lib";
use SQLiteTest qw/connect_ok dbfile @CALL_FUNCS/; use SQLiteTest qw/connect_ok dbfile @CALL_FUNCS/;
use Test::More; use Test::More;
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
foreach my $call_func (@CALL_FUNCS) { foreach my $call_func (@CALL_FUNCS) {

2
t/48_bind_param_is_sticky.t
View file

@ -6,7 +6,7 @@ use lib "t/lib";
use SQLiteTest qw/connect_ok/; use SQLiteTest qw/connect_ok/;
use DBI qw(:sql_types); use DBI qw(:sql_types);
use Test::More; use Test::More;
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
my $dbh = connect_ok( my $dbh = connect_ok(
RaiseError => 1, RaiseError => 1,

2
t/49_trace_and_profile.t
View file

@ -6,7 +6,7 @@ use Test::More;
BEGIN { requires_sqlite('3.6.21') } BEGIN { requires_sqlite('3.6.21') }
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
my $flag = 0; my $flag = 0;
for my $call_func (@CALL_FUNCS) { for my $call_func (@CALL_FUNCS) {

2
t/50_foreign_key_info.t
View file

@ -12,7 +12,7 @@ BEGIN {
} }
} }
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
# SQL below freely adapted from http://www.sqlite.org/foreignkeys.htm ... # SQL below freely adapted from http://www.sqlite.org/foreignkeys.htm ...
# not the best datamodel in the world, but good enough for our tests. # not the best datamodel in the world, but good enough for our tests.

2
t/51_table_column_metadata.t
View file

@ -3,7 +3,7 @@ use warnings;
use lib "t/lib"; use lib "t/lib";
use SQLiteTest; use SQLiteTest;
use Test::More; use Test::More;
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
BEGIN { BEGIN {
if (!has_compile_option('ENABLE_COLUMN_METADATA')) { if (!has_compile_option('ENABLE_COLUMN_METADATA')) {

2
t/52_db_filename.t
View file

@ -6,7 +6,7 @@ use Test::More;
BEGIN { requires_sqlite('3.7.10') } BEGIN { requires_sqlite('3.7.10') }
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
for my $func (@CALL_FUNCS) { for my $func (@CALL_FUNCS) {
{ {

2
t/53_status.t
View file

@ -3,7 +3,7 @@ use warnings;
use lib "t/lib"; use lib "t/lib";
use SQLiteTest qw/connect_ok @CALL_FUNCS has_sqlite/; use SQLiteTest qw/connect_ok @CALL_FUNCS has_sqlite/;
use Test::More; use Test::More;
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
my $dbh = connect_ok(); my $dbh = connect_ok();
{ {

2
t/54_literal_txn.t
View file

@ -3,7 +3,7 @@ use warnings;
use lib "t/lib"; use lib "t/lib";
use SQLiteTest qw/connect_ok/; use SQLiteTest qw/connect_ok/;
use Test::More; use Test::More;
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
my $dbh = connect_ok(); my $dbh = connect_ok();

2
t/55_statistics_info.t
View file

@ -12,7 +12,7 @@ BEGIN {
} }
} }
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
my @sql_statements = split /\n\n/, <<__EOSQL__; my @sql_statements = split /\n\n/, <<__EOSQL__;
CREATE TABLE a ( CREATE TABLE a (

2
t/56_open_flags.t
View file

@ -3,7 +3,7 @@ use warnings;
use lib "t/lib"; use lib "t/lib";
use SQLiteTest; use SQLiteTest;
use Test::More; use Test::More;
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
use DBI; use DBI;
use DBD::SQLite; use DBD::SQLite;

2
t/57_uri_filename.t
View file

@ -3,7 +3,7 @@ use warnings;
use lib "t/lib"; use lib "t/lib";
use SQLiteTest; use SQLiteTest;
use Test::More; use Test::More;
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
BEGIN { requires_sqlite('3.7.7') } BEGIN { requires_sqlite('3.7.7') }

2
t/58_see_if_its_a_number_and_explicit_binding.t
View file

@ -3,7 +3,7 @@ use warnings;
use lib "t/lib"; use lib "t/lib";
use SQLiteTest qw/connect_ok/; use SQLiteTest qw/connect_ok/;
use Test::More; use Test::More;
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
use DBI qw(:sql_types); use DBI qw(:sql_types);
# The following is by mje++ # The following is by mje++

2
t/59_extended_result_codes.t
View file

@ -10,7 +10,7 @@ BEGIN{
plan skip_all => 'this test requires SQLite 3.7.12 and above' unless $DBD::SQLite::sqlite_version_number > 3007011; plan skip_all => 'this test requires SQLite 3.7.12 and above' unless $DBD::SQLite::sqlite_version_number > 3007011;
} }
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
use DBD::SQLite::Constants qw/:extended_result_codes :result_codes/; use DBD::SQLite::Constants qw/:extended_result_codes :result_codes/;
use File::Temp; use File::Temp;

2
t/60_readonly.t
View file

@ -7,7 +7,7 @@ use DBD::SQLite::Constants qw/SQLITE_OPEN_READONLY/;
BEGIN { requires_sqlite('3.7.11') } BEGIN { requires_sqlite('3.7.11') }
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
{ {
my $dbh = connect_ok( my $dbh = connect_ok(

2
t/61_strlike.t
View file

@ -7,7 +7,7 @@ use DBD::SQLite;
BEGIN { requires_sqlite('3.10.0'); } BEGIN { requires_sqlite('3.10.0'); }
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
ok !DBD::SQLite::strlike("foo_bar", "FOO1BAR"); ok !DBD::SQLite::strlike("foo_bar", "FOO1BAR");
ok !DBD::SQLite::strlike("foo_bar", "FOO_BAR"); ok !DBD::SQLite::strlike("foo_bar", "FOO_BAR");

2
t/62_regexp_multibyte_char_class.t
View file

@ -3,7 +3,7 @@ use warnings;
use lib "t/lib"; use lib "t/lib";
use SQLiteTest; use SQLiteTest;
use Test::More; use Test::More;
#use Test::FailWarnings; # see RT#112220 #use if -d ".git", "Test::FailWarnings"; # see RT#112220
BEGIN { requires_unicode_support() } BEGIN { requires_unicode_support() }

2
t/63_param_values.t
View file

@ -3,7 +3,7 @@ use warnings;
use lib "t/lib"; use lib "t/lib";
use SQLiteTest qw/connect_ok/; use SQLiteTest qw/connect_ok/;
use Test::More; use Test::More;
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
my $dbh = connect_ok( RaiseError => 1 ); my $dbh = connect_ok( RaiseError => 1 );
ok $dbh->do('create table foo (id integer, value integer)'); ok $dbh->do('create table foo (id integer, value integer)');

2
t/64_limit.t
View file

@ -4,7 +4,7 @@ use lib "t/lib";
use SQLiteTest qw/connect_ok @CALL_FUNCS/; use SQLiteTest qw/connect_ok @CALL_FUNCS/;
use Test::More; use Test::More;
use DBD::SQLite::Constants qw/SQLITE_LIMIT_VARIABLE_NUMBER/; use DBD::SQLite::Constants qw/SQLITE_LIMIT_VARIABLE_NUMBER/;
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
for my $func (@CALL_FUNCS) { for my $func (@CALL_FUNCS) {
my $dbh = connect_ok(PrintError => 0, RaiseError => 1); my $dbh = connect_ok(PrintError => 0, RaiseError => 1);

2
t/65_db_config.t
View file

@ -4,7 +4,7 @@ use lib "t/lib";
use SQLiteTest qw/connect_ok @CALL_FUNCS/; use SQLiteTest qw/connect_ok @CALL_FUNCS/;
use Test::More; use Test::More;
use DBD::SQLite::Constants qw/:database_connection_configuration_options/; use DBD::SQLite::Constants qw/:database_connection_configuration_options/;
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
# LOOKASIDE # LOOKASIDE
for my $func (@CALL_FUNCS) { for my $func (@CALL_FUNCS) {

2
t/cookbook_variance.t
View file

@ -3,7 +3,7 @@ use warnings;
use lib "t/lib"; use lib "t/lib";
use SQLiteTest; use SQLiteTest;
use Test::More; use Test::More;
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
# The following snippets are copied from Cookbook.pod by hand. # The following snippets are copied from Cookbook.pod by hand.
# Don't forget to update here when the pod is updated. # Don't forget to update here when the pod is updated.

2
t/rt_106151_outermost_savepoint.t
View file

@ -3,7 +3,7 @@ use warnings;
use lib "t/lib"; use lib "t/lib";
use SQLiteTest; use SQLiteTest;
use Test::More; use Test::More;
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
BEGIN { requires_sqlite('3.6.8') } BEGIN { requires_sqlite('3.6.8') }

2
t/rt_106950_extra_warnings_with_savepoints.t
View file

@ -3,7 +3,7 @@ use warnings;
use lib "t/lib"; use lib "t/lib";
use SQLiteTest; use SQLiteTest;
use Test::More; use Test::More;
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
BEGIN { requires_sqlite('3.6.8') } BEGIN { requires_sqlite('3.6.8') }

2
t/rt_115465_column_info_with_spaces.t
View file

@ -3,7 +3,7 @@ use warnings;
use lib "t/lib"; use lib "t/lib";
use SQLiteTest; use SQLiteTest;
use Test::More; use Test::More;
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
{ {
my $dbh = connect_ok(); my $dbh = connect_ok();

2
t/rt_124227_index_regression.t
View file

@ -3,7 +3,7 @@ use warnings;
use lib "t/lib"; use lib "t/lib";
use SQLiteTest; use SQLiteTest;
use Test::More; use Test::More;
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
my $sql_in_question = <<'EOS'; my $sql_in_question = <<'EOS';
SELECT cdid SELECT cdid

2
t/rt_15186_prepcached.t
View file

@ -7,7 +7,7 @@ use warnings;
use lib "t/lib"; use lib "t/lib";
use SQLiteTest; use SQLiteTest;
use Test::More; use Test::More;
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
# Create a database # Create a database
my $dbh = connect_ok( RaiseError => 1 ); my $dbh = connect_ok( RaiseError => 1 );

2
t/rt_21406_auto_finish.t
View file

@ -3,7 +3,7 @@ use warnings;
use lib "t/lib"; use lib "t/lib";
use SQLiteTest; use SQLiteTest;
use Test::More; use Test::More;
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
SCOPE: { SCOPE: {
my $dbh = connect_ok( RaiseError => 1 ); my $dbh = connect_ok( RaiseError => 1 );

2
t/rt_25371_asymmetric_unicode.t
View file

@ -3,7 +3,7 @@ use warnings;
use lib "t/lib"; use lib "t/lib";
use SQLiteTest; use SQLiteTest;
use Test::More; use Test::More;
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
BEGIN { requires_unicode_support(); } BEGIN { requires_unicode_support(); }

2
t/rt_25460_numeric_aggregate.t
View file

@ -3,7 +3,7 @@ use warnings;
use lib "t/lib"; use lib "t/lib";
use SQLiteTest; use SQLiteTest;
use Test::More; use Test::More;
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
# Create the table # Create the table
my $dbh = connect_ok(); my $dbh = connect_ok();

2
t/rt_25924_user_defined_func_unicode.t
View file

@ -3,7 +3,7 @@ use warnings;
use lib "t/lib"; use lib "t/lib";
use SQLiteTest; use SQLiteTest;
use Test::More; use Test::More;
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
BEGIN { requires_unicode_support() } BEGIN { requires_unicode_support() }

2
t/rt_26775_distinct.t
View file

@ -4,7 +4,7 @@ use DBI;
use Test::More; use Test::More;
use lib "t/lib"; use lib "t/lib";
use SQLiteTest; use SQLiteTest;
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
BEGIN { requires_sqlite('3.6.3') } BEGIN { requires_sqlite('3.6.3') }

2
t/rt_27553_prepared_cache_and_analyze.t
View file

@ -4,7 +4,7 @@ use warnings;
use lib "t/lib"; use lib "t/lib";
use SQLiteTest; use SQLiteTest;
use Test::More; use Test::More;
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
my $dbh = connect_ok( RaiseError => 1, AutoCommit => 1 ); my $dbh = connect_ok( RaiseError => 1, AutoCommit => 1 );

2
t/rt_29058_group_by.t
View file

@ -4,7 +4,7 @@ use warnings;
use lib "t/lib"; use lib "t/lib";
use SQLiteTest; use SQLiteTest;
use Test::More; use Test::More;
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
use DBI qw(:sql_types); use DBI qw(:sql_types);
my $dbh = connect_ok(); my $dbh = connect_ok();

2
t/rt_29629_sqlite_where_length.t
View file

@ -3,7 +3,7 @@ use warnings;
use lib "t/lib"; use lib "t/lib";
use SQLiteTest; use SQLiteTest;
use Test::More; use Test::More;
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
use DBI qw(:sql_types); use DBI qw(:sql_types);
my $dbh = connect_ok(); my $dbh = connect_ok();

2
t/rt_31324_full_names.t
View file

@ -3,7 +3,7 @@ use warnings;
use lib "t/lib"; use lib "t/lib";
use SQLiteTest; use SQLiteTest;
use Test::More; use Test::More;
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
my $dbh = connect_ok( RaiseError => 1 ); my $dbh = connect_ok( RaiseError => 1 );
$dbh->do("CREATE TABLE f (f1, f2, f3)"); $dbh->do("CREATE TABLE f (f1, f2, f3)");

2
t/rt_32889_prepare_cached_reexecute.t
View file

@ -7,7 +7,7 @@ use warnings;
use lib "t/lib"; use lib "t/lib";
use SQLiteTest; use SQLiteTest;
use Test::More; use Test::More;
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
# Create the table # Create the table
SCOPE: { SCOPE: {

2
t/rt_36836_duplicate_key.t
View file

@ -5,7 +5,7 @@ use warnings;
use lib "t/lib"; use lib "t/lib";
use SQLiteTest; use SQLiteTest;
use Test::More; use Test::More;
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
# Create a database # Create a database
my $dbh = connect_ok( PrintError => 0 ); my $dbh = connect_ok( PrintError => 0 );

2
t/rt_36838_unique_and_bus_error.t
View file

@ -3,7 +3,7 @@ use warnings;
use lib "t/lib"; use lib "t/lib";
use SQLiteTest; use SQLiteTest;
use Test::More; use Test::More;
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
my $dbh = connect_ok( RaiseError => 1, PrintError => 0 ); my $dbh = connect_ok( RaiseError => 1, PrintError => 0 );

2
t/rt_40594_nullable.t
View file

@ -4,7 +4,7 @@ use Test::More;
use lib "t/lib"; use lib "t/lib";
use SQLiteTest; use SQLiteTest;
use DBD::SQLite; use DBD::SQLite;
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
BEGIN { BEGIN {
if (!has_compile_option('ENABLE_COLUMN_METADATA')) { if (!has_compile_option('ENABLE_COLUMN_METADATA')) {

2
t/rt_48393_debug_panic_with_commit.t
View file

@ -11,7 +11,7 @@ BEGIN {
unless $ENV{TEST_DBD_SQLITE_WITH_DEBUGGER}; unless $ENV{TEST_DBD_SQLITE_WITH_DEBUGGER};
} }
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
my $file = 't/panic.pl'; my $file = 't/panic.pl';
open my $fh, '>', $file; open my $fh, '>', $file;

2
t/rt_50503_fts3.t
View file

@ -9,7 +9,7 @@ BEGIN {
plan skip_all => "FTS is disabled for this DBD::SQLite" unless has_fts(); plan skip_all => "FTS is disabled for this DBD::SQLite" unless has_fts();
} }
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
my $dbh = connect_ok( RaiseError => 1, AutoCommit => 0 ); my $dbh = connect_ok( RaiseError => 1, AutoCommit => 0 );

2
t/rt_52573_manual_exclusive_lock.t
View file

@ -3,7 +3,7 @@ use warnings;
use lib "t/lib"; use lib "t/lib";
use SQLiteTest; use SQLiteTest;
use Test::More; use Test::More;
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
my $dbh = connect_ok( my $dbh = connect_ok(
AutoCommit => 1, AutoCommit => 1,

2
t/rt_53235_icu_compatibility.t
View file

@ -8,7 +8,7 @@ BEGIN {
plan( skip_all => 'requires SQLite ICU plugin to be enabled' ); plan( skip_all => 'requires SQLite ICU plugin to be enabled' );
} }
} }
# use Test::FailWarnings; # use if -d ".git", "Test::FailWarnings";
my @isochars = (ord("K"), 0xf6, ord("n"), ord("i"), ord("g")); my @isochars = (ord("K"), 0xf6, ord("n"), ord("i"), ord("g"));
my $koenig = pack("U*", @isochars); my $koenig = pack("U*", @isochars);

2
t/rt_62370_diconnected_handles_operation.t
View file

@ -4,7 +4,7 @@ use lib "t/lib";
use SQLiteTest qw/connect_ok @CALL_FUNCS/; use SQLiteTest qw/connect_ok @CALL_FUNCS/;
use Test::More; use Test::More;
use DBD::SQLite; use DBD::SQLite;
#use Test::FailWarnings; #use if -d ".git", "Test::FailWarnings";
my @methods = qw( my @methods = qw(
commit rollback commit rollback

2
t/rt_64177_ping_wipes_out_the_errstr.t
View file

@ -3,7 +3,7 @@ use warnings;
use lib "t/lib"; use lib "t/lib";
use SQLiteTest; use SQLiteTest;
use Test::More; use Test::More;
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
my $dbh = connect_ok(RaiseError => 1, PrintError => 0); my $dbh = connect_ok(RaiseError => 1, PrintError => 0);
eval { $dbh->do('foobar') }; eval { $dbh->do('foobar') };

2
t/rt_67581_bind_params_mismatch.t
View file

@ -3,7 +3,7 @@ use warnings;
use lib "t/lib"; use lib "t/lib";
use SQLiteTest qw/connect_ok/; use SQLiteTest qw/connect_ok/;
use Test::More; use Test::More;
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
use DBI qw/:sql_types/; use DBI qw/:sql_types/;
my $id = 0; my $id = 0;

2
t/rt_71311_bind_col_and_unicode.t
View file

@ -3,7 +3,7 @@ use warnings;
use lib "t/lib"; use lib "t/lib";
use SQLiteTest; use SQLiteTest;
use Test::More; use Test::More;
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
use DBI qw/:sql_types/; use DBI qw/:sql_types/;
BEGIN{ requires_unicode_support(); } BEGIN{ requires_unicode_support(); }

2
t/rt_73159_fts_tokenizer_segfault.t
View file

@ -3,7 +3,7 @@ use warnings;
use lib "t/lib"; use lib "t/lib";
use SQLiteTest; use SQLiteTest;
use Test::More; use Test::More;
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
use DBI; use DBI;
my $dbh = connect_ok(RaiseError => 1, PrintError => 0); my $dbh = connect_ok(RaiseError => 1, PrintError => 0);

2
t/rt_73787_exponential_buffer_overflow.t
View file

@ -3,7 +3,7 @@ use warnings;
use lib "t/lib"; use lib "t/lib";
use SQLiteTest qw/connect_ok/; use SQLiteTest qw/connect_ok/;
use Test::More; use Test::More;
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
my $dbh = connect_ok(sqlite_see_if_its_a_number => 1); my $dbh = connect_ok(sqlite_see_if_its_a_number => 1);
$dbh->do('create table foo (id integer primary key, exp)'); $dbh->do('create table foo (id integer primary key, exp)');

2
t/rt_76395_int_overflow.t
View file

@ -4,7 +4,7 @@ use warnings;
use lib "t/lib"; use lib "t/lib";
use SQLiteTest; use SQLiteTest;
use Test::More; use Test::More;
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
use DBI; use DBI;

2
t/rt_77724_primary_key_with_a_whitespace.t
View file

@ -3,7 +3,7 @@ use warnings;
use lib "t/lib"; use lib "t/lib";
use SQLiteTest; use SQLiteTest;
use Test::More; use Test::More;
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
my $dbh = connect_ok(RaiseError => 1, PrintError => 0); my $dbh = connect_ok(RaiseError => 1, PrintError => 0);

2
t/rt_78833_utf8_flag_for_column_names.t
View file

@ -3,7 +3,7 @@ use warnings;
use lib "t/lib"; use lib "t/lib";
use SQLiteTest; use SQLiteTest;
use Test::More; use Test::More;
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
use Encode; use Encode;
BEGIN { requires_unicode_support() } BEGIN { requires_unicode_support() }

2
t/rt_81536_multi_column_primary_key_info.t
View file

@ -3,7 +3,7 @@ use warnings;
use lib "t/lib"; use lib "t/lib";
use SQLiteTest qw/connect_ok/; use SQLiteTest qw/connect_ok/;
use Test::More; use Test::More;
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
# single column integer primary key # single column integer primary key
{ {

2
t/rt_88228_sqlite_3_8_0_crash.t
View file

@ -3,7 +3,7 @@ use warnings;
use lib "t/lib"; use lib "t/lib";
use SQLiteTest; use SQLiteTest;
use Test::More; use Test::More;
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
my $dbh = connect_ok(); my $dbh = connect_ok();

2
t/rt_96050_db_filename_for_a_closed_database.t
View file

@ -5,7 +5,7 @@ use warnings;
use lib "t/lib"; use lib "t/lib";
use SQLiteTest; use SQLiteTest;
use Test::More; use Test::More;
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
my $dbh = connect_ok( RaiseError => 1, PrintError => 0 ); my $dbh = connect_ok( RaiseError => 1, PrintError => 0 );
for my $func (@CALL_FUNCS) { for my $func (@CALL_FUNCS) {

2
t/rt_96877_unicode_statements.t
View file

@ -7,7 +7,7 @@ use warnings;
use lib "t/lib"; use lib "t/lib";
use SQLiteTest; use SQLiteTest;
use Test::More; use Test::More;
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
BEGIN { requires_unicode_support() } BEGIN { requires_unicode_support() }

2
t/rt_96878_fts_contentless_table.t
View file

@ -9,7 +9,7 @@ use warnings;
use lib "t/lib"; use lib "t/lib";
use SQLiteTest; use SQLiteTest;
use Test::More; use Test::More;
use Test::FailWarnings; use if -d ".git", "Test::FailWarnings";
use DBI qw/SQL_INTEGER/; use DBI qw/SQL_INTEGER/;
BEGIN { requires_sqlite('3.7.9') } BEGIN { requires_sqlite('3.7.9') }

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