From 74efd983dc6bd61cd771e7faf4970ddb28be1f69 Mon Sep 17 00:00:00 2001 From: Kenichi Ishigaki Date: Fri, 22 May 2009 01:36:09 +0000 Subject: [PATCH] DBD-SQLite: skip_all should be placed before Test::NoWarnings --- t/02_logon.t | 3 ++- t/08_busy.t | 3 ++- t/09_create_function.t | 3 ++- t/10_create_aggregate.t | 3 ++- t/14_progress_handler.t | 3 ++- 5 files changed, 10 insertions(+), 5 deletions(-) diff --git a/t/02_logon.t b/t/02_logon.t index 174c27f..8c3d2fc 100644 --- a/t/02_logon.t +++ b/t/02_logon.t @@ -10,12 +10,13 @@ BEGIN { use t::lib::Test; use Test::More; -use Test::NoWarnings; BEGIN { plan skip_all => 'requires DBI v1.608' if $DBI::VERSION < 1.608; } +use Test::NoWarnings; + plan tests => 10; # Ordinary connect diff --git a/t/08_busy.t b/t/08_busy.t index febaf16..ed700d5 100644 --- a/t/08_busy.t +++ b/t/08_busy.t @@ -10,12 +10,13 @@ BEGIN { use t::lib::Test; use Test::More; -use Test::NoWarnings; BEGIN { plan skip_all => 'requires DBI v1.608' if $DBI::VERSION < 1.608; } +use Test::NoWarnings; + plan tests => 12; my $dbh = connect_ok( diff --git a/t/09_create_function.t b/t/09_create_function.t index ea1bb8a..d597b43 100644 --- a/t/09_create_function.t +++ b/t/09_create_function.t @@ -9,12 +9,13 @@ BEGIN { use t::lib::Test; use Test::More; -use Test::NoWarnings; BEGIN { plan skip_all => 'requires DBI v1.608' if $DBI::VERSION < 1.608; } +use Test::NoWarnings; + plan tests => 28; sub now { diff --git a/t/10_create_aggregate.t b/t/10_create_aggregate.t index 14c2d86..05014be 100644 --- a/t/10_create_aggregate.t +++ b/t/10_create_aggregate.t @@ -8,12 +8,13 @@ BEGIN { use t::lib::Test; use Test::More; -use Test::NoWarnings; BEGIN { plan skip_all => 'requires DBI v1.608' if $DBI::VERSION < 1.608; } +use Test::NoWarnings; + plan tests => 22; # Create the aggregate test packages diff --git a/t/14_progress_handler.t b/t/14_progress_handler.t index 92b6b78..7e33761 100644 --- a/t/14_progress_handler.t +++ b/t/14_progress_handler.t @@ -8,12 +8,13 @@ BEGIN { use t::lib::Test; use Test::More; -use Test::NoWarnings; BEGIN { plan skip_all => 'requires DBI v1.608' if $DBI::VERSION < 1.608; } +use Test::NoWarnings; + plan tests => 6; my $N_OPCODES = 50; # how many opcodes before calling the progress handler