From: Arthur Axel 'fREW' Schmidt <frioux@gmail.com>
Date: Sat, 10 Jul 2010 15:08:54 +0000 (-0500)
Subject: ZOMG use strict and warnings in tests
X-Git-Tag: v0.001003~7
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cbbd1b5feb7bebfbef455dafc296f6b41f310943;p=dbsrgits%2FDBIx-Class-DeploymentHandler.git

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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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;