ZOMG use strict and warnings in tests

diff --git a/t/deploy_methods/sql_translator.t b/t/deploy_methods/sql_translator.t
index 3bfdce1..c0dba04 100644 (file)
--- a/t/deploy_methods/sql_translator.t
+++ b/t/deploy_methods/sql_translator.t
@@ -1,5 +1,8 @@
 #!perl
 
+use strict;
+use warnings;
+
 use Test::More;
 use Test::Exception;
 
@@ -73,7 +76,7 @@ VERSION2: {
 
    ok( $dm, 'DBIC::DH::SQL::Translator w/2.0 instantiates correctly');
 
-   $version = $s->schema_version();
+   my $version = $s->schema_version();
    $dm->prepare_deploy;
    ok(
       -f catfile(qw( t sql SQLite deploy 2.0 001-auto.sql )),
@@ -180,7 +183,7 @@ VERSION3: {
 
    ok( $dm, 'DBIC::DH::SQL::Translator w/3.0 instantiates correctly');
 
-   $version = $s->schema_version();
+   my $version = $s->schema_version();
    $dm->prepare_deploy;
    ok(
       -f catfile(qw( t sql SQLite deploy 3.0 001-auto.sql )),

diff --git a/t/deploy_methods/sql_translator_protoschema_transform.t b/t/deploy_methods/sql_translator_protoschema_transform.t
index 5527132..3771232 100644 (file)
--- a/t/deploy_methods/sql_translator_protoschema_transform.t
+++ b/t/deploy_methods/sql_translator_protoschema_transform.t
@@ -1,5 +1,8 @@
 #!perl
 
+use strict;
+use warnings;
+
 use Test::More;
 use Test::Exception;
 
@@ -40,7 +43,6 @@ VERSION2: {
       txn_wrap          => 1,
    });
 
-   $version = $s->schema_version();
    $dm->prepare_deploy;
    mkpath(catfile(qw( t sql _preprocess_schema upgrade 1.0-2.0 )));
    open my $prerun, '>',

diff --git a/t/version_handlers/db_schema_versions.t b/t/version_handlers/db_schema_versions.t
index 60ca584..0bc25ad 100644 (file)
--- a/t/version_handlers/db_schema_versions.t
+++ b/t/version_handlers/db_schema_versions.t
@@ -1,5 +1,8 @@
 #!perl
 
+use strict;
+use warnings;
+
 use Test::More;
 use Test::Exception;
 

diff --git a/t/version_handlers/explict_versions.t b/t/version_handlers/explict_versions.t
index be2ea29..07ad3dd 100644 (file)
--- a/t/version_handlers/explict_versions.t
+++ b/t/version_handlers/explict_versions.t
@@ -1,5 +1,8 @@
 #!perl
 
+use strict;
+use warnings;
+
 use Test::More;
 use Test::Exception;
 

diff --git a/t/version_handlers/monotonic.t b/t/version_handlers/monotonic.t
index 7bc0310..c0d1f2f 100644 (file)
--- a/t/version_handlers/monotonic.t
+++ b/t/version_handlers/monotonic.t
@@ -1,5 +1,8 @@
 #!perl
 
+use strict;
+use warnings;
+
 use Test::More;
 use Test::Exception;
 

diff --git a/t/version_storages/standard.t b/t/version_storages/standard.t
index 03dcd9d..27dafc8 100644 (file)
--- a/t/version_storages/standard.t
+++ b/t/version_storages/standard.t
@@ -1,5 +1,8 @@
 #!perl
 
+use strict;
+use warnings;
+
 use Test::More;
 use Test::Deep;
 use Test::Exception;