mirror of
https://github.com/DBD-SQLite/DBD-SQLite
synced 2025-06-07 06:08:38 -04:00
not to use Test::FailWarnings except for developers environment
This commit is contained in:
parent
f56689d929
commit
627666e888
110 changed files with 110 additions and 110 deletions
|
@ -5,7 +5,7 @@ use warnings;
|
|||
use lib "t/lib";
|
||||
use SQLiteTest qw/connect_ok @CALL_FUNCS/;
|
||||
use Test::More;
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
|
||||
my $show_diag = 0;
|
||||
foreach my $call_func (@CALL_FUNCS) {
|
||||
|
|
|
@ -5,7 +5,7 @@ use warnings;
|
|||
use lib "t/lib";
|
||||
use SQLiteTest;
|
||||
use Test::More;
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
|
||||
my $dbh = connect_ok();
|
||||
$dbh->do(<<'END_SQL');
|
||||
|
|
|
@ -3,7 +3,7 @@ use warnings;
|
|||
use lib "t/lib";
|
||||
use SQLiteTest;
|
||||
use Test::More;
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
|
||||
my $dbh = connect_ok();
|
||||
|
||||
|
|
|
@ -3,7 +3,7 @@ use warnings;
|
|||
use lib "t/lib";
|
||||
use SQLiteTest;
|
||||
use Test::More;
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
|
||||
my $dbh = connect_ok( RaiseError => 1 );
|
||||
$dbh->do("CREATE TABLE f (f1, f2, f3)");
|
||||
|
|
|
@ -3,7 +3,7 @@ use warnings;
|
|||
use lib "t/lib";
|
||||
use SQLiteTest;
|
||||
use Test::More;
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
|
||||
my $dbh = connect_ok(
|
||||
AutoCommit => 0,
|
||||
|
|
|
@ -3,7 +3,7 @@ use warnings;
|
|||
use lib "t/lib";
|
||||
use SQLiteTest;
|
||||
use Test::More;
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
|
||||
my $dbh = connect_ok( RaiseError => 1, PrintError => 0 );
|
||||
eval {
|
||||
|
|
|
@ -5,7 +5,7 @@ use warnings;
|
|||
use lib "t/lib";
|
||||
use SQLiteTest qw/connect_ok dbfile @CALL_FUNCS/;
|
||||
use Test::More;
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
|
||||
foreach my $call_func (@CALL_FUNCS) {
|
||||
|
||||
|
|
|
@ -4,7 +4,7 @@ use warnings;
|
|||
use lib "t/lib";
|
||||
use SQLiteTest qw/connect_ok @CALL_FUNCS/;
|
||||
use Test::More;
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
use DBD::SQLite;
|
||||
use DBD::SQLite::Constants;
|
||||
|
||||
|
|
|
@ -3,7 +3,7 @@ use warnings;
|
|||
use lib "t/lib";
|
||||
use SQLiteTest qw/connect_ok @CALL_FUNCS/;
|
||||
use Test::More;
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
use DBD::SQLite;
|
||||
use DBD::SQLite::Constants;
|
||||
|
||||
|
|
|
@ -3,7 +3,7 @@ use warnings;
|
|||
use lib "t/lib";
|
||||
use SQLiteTest;
|
||||
use Test::More;
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
|
||||
use DBI::Const::GetInfoType;
|
||||
|
||||
|
|
|
@ -6,7 +6,7 @@ use warnings;
|
|||
use lib "t/lib";
|
||||
use SQLiteTest;
|
||||
use Test::More;
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
|
||||
BEGIN { requires_unicode_support() }
|
||||
|
||||
|
|
|
@ -3,7 +3,7 @@ use warnings;
|
|||
use lib "t/lib";
|
||||
use SQLiteTest;
|
||||
use Test::More;
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
use Encode qw/decode/;
|
||||
use DBD::SQLite;
|
||||
|
||||
|
|
|
@ -3,7 +3,7 @@ use warnings;
|
|||
use lib "t/lib";
|
||||
use SQLiteTest qw/connect_ok @CALL_FUNCS/;
|
||||
use Test::More;
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
|
||||
my $N_OPCODES = 50; # how many opcodes before calling the progress handler
|
||||
|
||||
|
|
|
@ -3,7 +3,7 @@ use warnings;
|
|||
use lib "t/lib";
|
||||
use SQLiteTest;
|
||||
use Test::More;
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
|
||||
# Create a database
|
||||
my $dbh = connect_ok( dbfile => 'foo', RaiseError => 1, PrintError => 1, PrintWarn => 1 );
|
||||
|
|
|
@ -3,7 +3,7 @@ use warnings;
|
|||
use lib "t/lib";
|
||||
use SQLiteTest;
|
||||
use Test::More;
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
|
||||
my $dbh = DBI->connect('dbi:SQLite:dbname=:memory:',undef,undef,{RaiseError => 1});
|
||||
|
||||
|
|
|
@ -6,7 +6,7 @@ use warnings;
|
|||
use lib "t/lib";
|
||||
use SQLiteTest;
|
||||
use Test::More;
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
|
||||
# Create a database
|
||||
my $dbh = connect_ok();
|
||||
|
|
|
@ -5,7 +5,7 @@ use warnings;
|
|||
use lib "t/lib";
|
||||
use SQLiteTest;
|
||||
use Test::More;
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
|
||||
# Create a database
|
||||
my $dbh = connect_ok( RaiseError => 1 );
|
||||
|
|
|
@ -3,7 +3,7 @@ use warnings;
|
|||
use lib "t/lib";
|
||||
use SQLiteTest;
|
||||
use Test::More;
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
use DBI ':sql_types';
|
||||
|
||||
# Create a database
|
||||
|
|
|
@ -6,7 +6,7 @@ use warnings;
|
|||
use lib "t/lib";
|
||||
use SQLiteTest;
|
||||
use Test::More;
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
use DBI ':sql_types';
|
||||
|
||||
sub ShowBlob($) {
|
||||
|
|
|
@ -3,7 +3,7 @@ use warnings;
|
|||
use lib "t/lib";
|
||||
use SQLiteTest;
|
||||
use Test::More;
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
|
||||
my $dbh = connect_ok(
|
||||
RaiseError => 1,
|
||||
|
|
|
@ -5,7 +5,7 @@ use warnings;
|
|||
use lib "t/lib";
|
||||
use SQLiteTest;
|
||||
use Test::More;
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
|
||||
# Create a database
|
||||
my $dbh = connect_ok();
|
||||
|
|
|
@ -5,7 +5,7 @@ use warnings;
|
|||
use lib "t/lib";
|
||||
use SQLiteTest;
|
||||
use Test::More;
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
|
||||
# Create a database
|
||||
my $dbh = connect_ok();
|
||||
|
|
|
@ -5,7 +5,7 @@ use warnings;
|
|||
use lib "t/lib";
|
||||
use SQLiteTest;
|
||||
use Test::More;
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
|
||||
sub rows {
|
||||
my $sth = shift;
|
||||
|
|
|
@ -5,7 +5,7 @@ use warnings;
|
|||
use lib "t/lib";
|
||||
use SQLiteTest;
|
||||
use Test::More;
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
|
||||
# Create a database
|
||||
my $dbh = connect_ok( RaiseError => 1 );
|
||||
|
|
|
@ -5,7 +5,7 @@ use warnings;
|
|||
use lib "t/lib";
|
||||
use SQLiteTest;
|
||||
use Test::More;
|
||||
# use Test::FailWarnings;
|
||||
# use if -d ".git", "Test::FailWarnings";
|
||||
|
||||
my $warning_count = 0;
|
||||
|
||||
|
|
|
@ -3,7 +3,7 @@ use warnings;
|
|||
use Test::More;
|
||||
use lib "t/lib";
|
||||
use SQLiteTest;
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
|
||||
# 1-4. Connect & create tables
|
||||
my $dbh = connect_ok(dbfile => 'foo');
|
||||
|
|
|
@ -6,7 +6,7 @@ use warnings;
|
|||
use Test::More;
|
||||
use lib "t/lib";
|
||||
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 $create2 = 'CREATE TABLE table2 (id INTEGER NOT NULL, name CHAR (64) NOT NULL)';
|
||||
|
|
|
@ -5,7 +5,7 @@ use warnings;
|
|||
use lib "t/lib";
|
||||
use SQLiteTest;
|
||||
use Test::More;
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
|
||||
SCOPE: {
|
||||
my $dbh = connect_ok( RaiseError => 1, PrintWarn => 0, Warn => 0 );
|
||||
|
|
|
@ -6,7 +6,7 @@ BEGIN { @to_be_tested = (1.23E4); }
|
|||
use Test::More;
|
||||
use lib "t/lib";
|
||||
use SQLiteTest;
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
|
||||
my $dbh = connect_ok();
|
||||
|
||||
|
|
|
@ -3,7 +3,7 @@ use warnings;
|
|||
use Test::More;
|
||||
use lib "t/lib";
|
||||
use SQLiteTest;
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
|
||||
my $dbh = connect_ok( PrintError => 0, RaiseError => 0 );
|
||||
|
||||
|
|
|
@ -6,7 +6,7 @@ use warnings;
|
|||
use lib "t/lib";
|
||||
use SQLiteTest;
|
||||
use Test::More;
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
use File::Temp ();
|
||||
use File::Spec::Functions ':ALL';
|
||||
|
||||
|
|
|
@ -7,7 +7,7 @@ use SQLiteTest qw/connect_ok dbfile @CALL_FUNCS requires_sqlite/;
|
|||
|
||||
BEGIN { requires_sqlite('3.6.11') }
|
||||
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
use DBI;
|
||||
|
||||
foreach my $call_func (@CALL_FUNCS) {
|
||||
|
|
|
@ -3,7 +3,7 @@ use warnings;
|
|||
use lib "t/lib";
|
||||
use SQLiteTest;
|
||||
use Test::More;
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
|
||||
my @catalog_info = (
|
||||
[undef, undef, undef, undef, undef],
|
||||
|
|
|
@ -3,7 +3,7 @@ use warnings;
|
|||
use lib "t/lib";
|
||||
use SQLiteTest;
|
||||
use Test::More;
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
|
||||
use DBD::SQLite;
|
||||
|
||||
|
|
|
@ -3,7 +3,7 @@ use warnings;
|
|||
use lib "t/lib";
|
||||
use SQLiteTest;
|
||||
use Test::More;
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
|
||||
my @words = qw{
|
||||
berger Bergère bergère Bergere
|
||||
|
|
|
@ -3,7 +3,7 @@ use warnings;
|
|||
use lib "t/lib";
|
||||
use SQLiteTest qw/connect_ok/;
|
||||
use Test::More;
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
|
||||
my $dbh = connect_ok( RaiseError => 1 );
|
||||
|
||||
|
|
|
@ -6,7 +6,7 @@ use Test::More;
|
|||
|
||||
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
|
||||
|
||||
|
|
|
@ -3,7 +3,7 @@ use warnings;
|
|||
use lib "t/lib";
|
||||
use SQLiteTest qw/connect_ok/;
|
||||
use Test::More;
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
|
||||
{
|
||||
# DBD::SQLite prepares/does the first statement only;
|
||||
|
|
|
@ -3,7 +3,7 @@ use warnings;
|
|||
use lib "t/lib";
|
||||
use SQLiteTest qw/connect_ok/;
|
||||
use Test::More;
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
|
||||
my $dbh = connect_ok( RaiseError => 1 );
|
||||
ok $dbh->do('create table foo (id integer, value integer)');
|
||||
|
|
|
@ -3,7 +3,7 @@ use warnings;
|
|||
use lib "t/lib";
|
||||
use SQLiteTest qw/connect_ok/;
|
||||
use Test::More;
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
|
||||
for my $quote ('', qw/' " ` []/) {
|
||||
my ($begin_quote, $end_quote) = (substr($quote, 0, 1), substr($quote, -1, 1));
|
||||
|
|
|
@ -3,7 +3,7 @@ use warnings;
|
|||
use lib "t/lib";
|
||||
use SQLiteTest;
|
||||
use Test::More;
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
use DBD::SQLite;
|
||||
|
||||
my @texts = ("il était une bergère",
|
||||
|
|
|
@ -3,7 +3,7 @@ use warnings;
|
|||
use lib "t/lib";
|
||||
use SQLiteTest;
|
||||
use Test::More;
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
|
||||
BEGIN {
|
||||
if (!has_compile_option('ENABLE_RTREE')) {
|
||||
|
|
|
@ -3,7 +3,7 @@ use warnings;
|
|||
use lib "t/lib";
|
||||
use SQLiteTest;
|
||||
use Test::More;
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
|
||||
BEGIN { requires_sqlite('3.6.8') }
|
||||
|
||||
|
|
|
@ -3,7 +3,7 @@ use warnings;
|
|||
use lib "t/lib";
|
||||
use SQLiteTest;
|
||||
use Test::More;
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
|
||||
BEGIN {
|
||||
eval {require APR::Table; 1};
|
||||
|
|
|
@ -5,7 +5,7 @@ use warnings;
|
|||
use lib "t/lib";
|
||||
use SQLiteTest qw/connect_ok dbfile @CALL_FUNCS/;
|
||||
use Test::More;
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
|
||||
foreach my $call_func (@CALL_FUNCS) {
|
||||
|
||||
|
|
|
@ -6,7 +6,7 @@ use lib "t/lib";
|
|||
use SQLiteTest qw/connect_ok/;
|
||||
use DBI qw(:sql_types);
|
||||
use Test::More;
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
|
||||
my $dbh = connect_ok(
|
||||
RaiseError => 1,
|
||||
|
|
|
@ -6,7 +6,7 @@ use Test::More;
|
|||
|
||||
BEGIN { requires_sqlite('3.6.21') }
|
||||
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
|
||||
my $flag = 0;
|
||||
for my $call_func (@CALL_FUNCS) {
|
||||
|
|
|
@ -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 ...
|
||||
# not the best datamodel in the world, but good enough for our tests.
|
||||
|
|
|
@ -3,7 +3,7 @@ use warnings;
|
|||
use lib "t/lib";
|
||||
use SQLiteTest;
|
||||
use Test::More;
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
|
||||
BEGIN {
|
||||
if (!has_compile_option('ENABLE_COLUMN_METADATA')) {
|
||||
|
|
|
@ -6,7 +6,7 @@ use Test::More;
|
|||
|
||||
BEGIN { requires_sqlite('3.7.10') }
|
||||
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
|
||||
for my $func (@CALL_FUNCS) {
|
||||
{
|
||||
|
|
|
@ -3,7 +3,7 @@ use warnings;
|
|||
use lib "t/lib";
|
||||
use SQLiteTest qw/connect_ok @CALL_FUNCS has_sqlite/;
|
||||
use Test::More;
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
|
||||
my $dbh = connect_ok();
|
||||
{
|
||||
|
|
|
@ -3,7 +3,7 @@ use warnings;
|
|||
use lib "t/lib";
|
||||
use SQLiteTest qw/connect_ok/;
|
||||
use Test::More;
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
|
||||
my $dbh = connect_ok();
|
||||
|
||||
|
|
|
@ -12,7 +12,7 @@ BEGIN {
|
|||
}
|
||||
}
|
||||
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
|
||||
my @sql_statements = split /\n\n/, <<__EOSQL__;
|
||||
CREATE TABLE a (
|
||||
|
|
|
@ -3,7 +3,7 @@ use warnings;
|
|||
use lib "t/lib";
|
||||
use SQLiteTest;
|
||||
use Test::More;
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
use DBI;
|
||||
use DBD::SQLite;
|
||||
|
||||
|
|
|
@ -3,7 +3,7 @@ use warnings;
|
|||
use lib "t/lib";
|
||||
use SQLiteTest;
|
||||
use Test::More;
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
|
||||
BEGIN { requires_sqlite('3.7.7') }
|
||||
|
||||
|
|
|
@ -3,7 +3,7 @@ use warnings;
|
|||
use lib "t/lib";
|
||||
use SQLiteTest qw/connect_ok/;
|
||||
use Test::More;
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
use DBI qw(:sql_types);
|
||||
|
||||
# The following is by mje++
|
||||
|
|
|
@ -10,7 +10,7 @@ BEGIN{
|
|||
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 File::Temp;
|
||||
|
||||
|
|
|
@ -7,7 +7,7 @@ use DBD::SQLite::Constants qw/SQLITE_OPEN_READONLY/;
|
|||
|
||||
BEGIN { requires_sqlite('3.7.11') }
|
||||
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
|
||||
{
|
||||
my $dbh = connect_ok(
|
||||
|
|
|
@ -7,7 +7,7 @@ use DBD::SQLite;
|
|||
|
||||
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", "FOO_BAR");
|
||||
|
|
|
@ -3,7 +3,7 @@ use warnings;
|
|||
use lib "t/lib";
|
||||
use SQLiteTest;
|
||||
use Test::More;
|
||||
#use Test::FailWarnings; # see RT#112220
|
||||
#use if -d ".git", "Test::FailWarnings"; # see RT#112220
|
||||
|
||||
BEGIN { requires_unicode_support() }
|
||||
|
||||
|
|
|
@ -3,7 +3,7 @@ use warnings;
|
|||
use lib "t/lib";
|
||||
use SQLiteTest qw/connect_ok/;
|
||||
use Test::More;
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
|
||||
my $dbh = connect_ok( RaiseError => 1 );
|
||||
ok $dbh->do('create table foo (id integer, value integer)');
|
||||
|
|
|
@ -4,7 +4,7 @@ use lib "t/lib";
|
|||
use SQLiteTest qw/connect_ok @CALL_FUNCS/;
|
||||
use Test::More;
|
||||
use DBD::SQLite::Constants qw/SQLITE_LIMIT_VARIABLE_NUMBER/;
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
|
||||
for my $func (@CALL_FUNCS) {
|
||||
my $dbh = connect_ok(PrintError => 0, RaiseError => 1);
|
||||
|
|
|
@ -4,7 +4,7 @@ use lib "t/lib";
|
|||
use SQLiteTest qw/connect_ok @CALL_FUNCS/;
|
||||
use Test::More;
|
||||
use DBD::SQLite::Constants qw/:database_connection_configuration_options/;
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
|
||||
# LOOKASIDE
|
||||
for my $func (@CALL_FUNCS) {
|
||||
|
|
|
@ -3,7 +3,7 @@ use warnings;
|
|||
use lib "t/lib";
|
||||
use SQLiteTest;
|
||||
use Test::More;
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
|
||||
# The following snippets are copied from Cookbook.pod by hand.
|
||||
# Don't forget to update here when the pod is updated.
|
||||
|
|
|
@ -3,7 +3,7 @@ use warnings;
|
|||
use lib "t/lib";
|
||||
use SQLiteTest;
|
||||
use Test::More;
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
|
||||
BEGIN { requires_sqlite('3.6.8') }
|
||||
|
||||
|
|
|
@ -3,7 +3,7 @@ use warnings;
|
|||
use lib "t/lib";
|
||||
use SQLiteTest;
|
||||
use Test::More;
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
|
||||
BEGIN { requires_sqlite('3.6.8') }
|
||||
|
||||
|
|
|
@ -3,7 +3,7 @@ use warnings;
|
|||
use lib "t/lib";
|
||||
use SQLiteTest;
|
||||
use Test::More;
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
|
||||
{
|
||||
my $dbh = connect_ok();
|
||||
|
|
|
@ -3,7 +3,7 @@ use warnings;
|
|||
use lib "t/lib";
|
||||
use SQLiteTest;
|
||||
use Test::More;
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
|
||||
my $sql_in_question = <<'EOS';
|
||||
SELECT cdid
|
||||
|
|
|
@ -7,7 +7,7 @@ use warnings;
|
|||
use lib "t/lib";
|
||||
use SQLiteTest;
|
||||
use Test::More;
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
|
||||
# Create a database
|
||||
my $dbh = connect_ok( RaiseError => 1 );
|
||||
|
|
|
@ -3,7 +3,7 @@ use warnings;
|
|||
use lib "t/lib";
|
||||
use SQLiteTest;
|
||||
use Test::More;
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
|
||||
SCOPE: {
|
||||
my $dbh = connect_ok( RaiseError => 1 );
|
||||
|
|
|
@ -3,7 +3,7 @@ use warnings;
|
|||
use lib "t/lib";
|
||||
use SQLiteTest;
|
||||
use Test::More;
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
|
||||
BEGIN { requires_unicode_support(); }
|
||||
|
||||
|
|
|
@ -3,7 +3,7 @@ use warnings;
|
|||
use lib "t/lib";
|
||||
use SQLiteTest;
|
||||
use Test::More;
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
|
||||
# Create the table
|
||||
my $dbh = connect_ok();
|
||||
|
|
|
@ -3,7 +3,7 @@ use warnings;
|
|||
use lib "t/lib";
|
||||
use SQLiteTest;
|
||||
use Test::More;
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
|
||||
BEGIN { requires_unicode_support() }
|
||||
|
||||
|
|
|
@ -4,7 +4,7 @@ use DBI;
|
|||
use Test::More;
|
||||
use lib "t/lib";
|
||||
use SQLiteTest;
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
|
||||
BEGIN { requires_sqlite('3.6.3') }
|
||||
|
||||
|
|
|
@ -4,7 +4,7 @@ use warnings;
|
|||
use lib "t/lib";
|
||||
use SQLiteTest;
|
||||
use Test::More;
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
|
||||
my $dbh = connect_ok( RaiseError => 1, AutoCommit => 1 );
|
||||
|
||||
|
|
|
@ -4,7 +4,7 @@ use warnings;
|
|||
use lib "t/lib";
|
||||
use SQLiteTest;
|
||||
use Test::More;
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
use DBI qw(:sql_types);
|
||||
|
||||
my $dbh = connect_ok();
|
||||
|
|
|
@ -3,7 +3,7 @@ use warnings;
|
|||
use lib "t/lib";
|
||||
use SQLiteTest;
|
||||
use Test::More;
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
use DBI qw(:sql_types);
|
||||
|
||||
my $dbh = connect_ok();
|
||||
|
|
|
@ -3,7 +3,7 @@ use warnings;
|
|||
use lib "t/lib";
|
||||
use SQLiteTest;
|
||||
use Test::More;
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
|
||||
my $dbh = connect_ok( RaiseError => 1 );
|
||||
$dbh->do("CREATE TABLE f (f1, f2, f3)");
|
||||
|
|
|
@ -7,7 +7,7 @@ use warnings;
|
|||
use lib "t/lib";
|
||||
use SQLiteTest;
|
||||
use Test::More;
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
|
||||
# Create the table
|
||||
SCOPE: {
|
||||
|
|
|
@ -5,7 +5,7 @@ use warnings;
|
|||
use lib "t/lib";
|
||||
use SQLiteTest;
|
||||
use Test::More;
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
|
||||
# Create a database
|
||||
my $dbh = connect_ok( PrintError => 0 );
|
||||
|
|
|
@ -3,7 +3,7 @@ use warnings;
|
|||
use lib "t/lib";
|
||||
use SQLiteTest;
|
||||
use Test::More;
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
|
||||
my $dbh = connect_ok( RaiseError => 1, PrintError => 0 );
|
||||
|
||||
|
|
|
@ -4,7 +4,7 @@ use Test::More;
|
|||
use lib "t/lib";
|
||||
use SQLiteTest;
|
||||
use DBD::SQLite;
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
|
||||
BEGIN {
|
||||
if (!has_compile_option('ENABLE_COLUMN_METADATA')) {
|
||||
|
|
|
@ -11,7 +11,7 @@ BEGIN {
|
|||
unless $ENV{TEST_DBD_SQLITE_WITH_DEBUGGER};
|
||||
}
|
||||
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
|
||||
my $file = 't/panic.pl';
|
||||
open my $fh, '>', $file;
|
||||
|
|
|
@ -9,7 +9,7 @@ BEGIN {
|
|||
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 );
|
||||
|
||||
|
|
|
@ -3,7 +3,7 @@ use warnings;
|
|||
use lib "t/lib";
|
||||
use SQLiteTest;
|
||||
use Test::More;
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
|
||||
my $dbh = connect_ok(
|
||||
AutoCommit => 1,
|
||||
|
|
|
@ -8,7 +8,7 @@ BEGIN {
|
|||
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 $koenig = pack("U*", @isochars);
|
||||
|
|
|
@ -4,7 +4,7 @@ use lib "t/lib";
|
|||
use SQLiteTest qw/connect_ok @CALL_FUNCS/;
|
||||
use Test::More;
|
||||
use DBD::SQLite;
|
||||
#use Test::FailWarnings;
|
||||
#use if -d ".git", "Test::FailWarnings";
|
||||
|
||||
my @methods = qw(
|
||||
commit rollback
|
||||
|
|
|
@ -3,7 +3,7 @@ use warnings;
|
|||
use lib "t/lib";
|
||||
use SQLiteTest;
|
||||
use Test::More;
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
|
||||
my $dbh = connect_ok(RaiseError => 1, PrintError => 0);
|
||||
eval { $dbh->do('foobar') };
|
||||
|
|
|
@ -3,7 +3,7 @@ use warnings;
|
|||
use lib "t/lib";
|
||||
use SQLiteTest qw/connect_ok/;
|
||||
use Test::More;
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
use DBI qw/:sql_types/;
|
||||
|
||||
my $id = 0;
|
||||
|
|
|
@ -3,7 +3,7 @@ use warnings;
|
|||
use lib "t/lib";
|
||||
use SQLiteTest;
|
||||
use Test::More;
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
use DBI qw/:sql_types/;
|
||||
|
||||
BEGIN{ requires_unicode_support(); }
|
||||
|
|
|
@ -3,7 +3,7 @@ use warnings;
|
|||
use lib "t/lib";
|
||||
use SQLiteTest;
|
||||
use Test::More;
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
use DBI;
|
||||
|
||||
my $dbh = connect_ok(RaiseError => 1, PrintError => 0);
|
||||
|
|
|
@ -3,7 +3,7 @@ use warnings;
|
|||
use lib "t/lib";
|
||||
use SQLiteTest qw/connect_ok/;
|
||||
use Test::More;
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
|
||||
my $dbh = connect_ok(sqlite_see_if_its_a_number => 1);
|
||||
$dbh->do('create table foo (id integer primary key, exp)');
|
||||
|
|
|
@ -4,7 +4,7 @@ use warnings;
|
|||
use lib "t/lib";
|
||||
use SQLiteTest;
|
||||
use Test::More;
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
|
||||
use DBI;
|
||||
|
||||
|
|
|
@ -3,7 +3,7 @@ use warnings;
|
|||
use lib "t/lib";
|
||||
use SQLiteTest;
|
||||
use Test::More;
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
|
||||
my $dbh = connect_ok(RaiseError => 1, PrintError => 0);
|
||||
|
||||
|
|
|
@ -3,7 +3,7 @@ use warnings;
|
|||
use lib "t/lib";
|
||||
use SQLiteTest;
|
||||
use Test::More;
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
use Encode;
|
||||
|
||||
BEGIN { requires_unicode_support() }
|
||||
|
|
|
@ -3,7 +3,7 @@ use warnings;
|
|||
use lib "t/lib";
|
||||
use SQLiteTest qw/connect_ok/;
|
||||
use Test::More;
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
|
||||
# single column integer primary key
|
||||
{
|
||||
|
|
|
@ -3,7 +3,7 @@ use warnings;
|
|||
use lib "t/lib";
|
||||
use SQLiteTest;
|
||||
use Test::More;
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
|
||||
my $dbh = connect_ok();
|
||||
|
||||
|
|
|
@ -5,7 +5,7 @@ use warnings;
|
|||
use lib "t/lib";
|
||||
use SQLiteTest;
|
||||
use Test::More;
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
|
||||
my $dbh = connect_ok( RaiseError => 1, PrintError => 0 );
|
||||
for my $func (@CALL_FUNCS) {
|
||||
|
|
|
@ -7,7 +7,7 @@ use warnings;
|
|||
use lib "t/lib";
|
||||
use SQLiteTest;
|
||||
use Test::More;
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
|
||||
BEGIN { requires_unicode_support() }
|
||||
|
||||
|
|
|
@ -9,7 +9,7 @@ use warnings;
|
|||
use lib "t/lib";
|
||||
use SQLiteTest;
|
||||
use Test::More;
|
||||
use Test::FailWarnings;
|
||||
use if -d ".git", "Test::FailWarnings";
|
||||
use DBI qw/SQL_INTEGER/;
|
||||
|
||||
BEGIN { requires_sqlite('3.7.9') }
|
||||
|
|
Some files were not shown because too many files have changed in this diff Show more
Loading…
Add table
Reference in a new issue