Firebird: mixed case support (wip)

[dbsrgits/DBIx-Class-Schema-Loader.git] / t / lib / dbixcsl_mssql_extra_tests.pm

diff --git a/t/lib/dbixcsl_mssql_extra_tests.pm b/t/lib/dbixcsl_mssql_extra_tests.pm
index e4767f9..4102203 100644 (file)
--- a/t/lib/dbixcsl_mssql_extra_tests.pm
+++ b/t/lib/dbixcsl_mssql_extra_tests.pm
@@ -5,9 +5,6 @@ use warnings;
 use Test::More;
 use Test::Exception;
 
-# for cleanup in END
-my $storage;
-
 sub extra { +{
     create => [
         q{
@@ -26,9 +23,13 @@ sub extra { +{
             SELECT * FROM mssql_loader_test3
         },
     ],
+    pre_drop_ddl => [
+        'CREATE TABLE mssql_loader_test3 (id INT IDENTITY NOT NULL PRIMARY KEY)',
+        'DROP VIEW mssql_loader_test4',
+    ],
     drop   => [
-        "[mssql_loader_test1.dot]",
-        "mssql_loader_test3"
+        '[mssql_loader_test1.dot]',
+        'mssql_loader_test3'
     ],
     count  => 8,
     run    => sub {
@@ -59,9 +60,7 @@ sub extra { +{
             q{'INT IDENTITY' column has is_auto_increment => 1};
 
 # Test that a bad view (where underlying table is gone) is ignored.
-        $storage = $schema->storage;
-
-        my $dbh = $storage->dbh;
+        my $dbh = $schema->storage->dbh;
         $dbh->do("DROP TABLE mssql_loader_test3");
 
         my @warnings;
@@ -79,17 +78,4 @@ sub extra { +{
     },
 }}
 
-# Clean up the bad view
-END {
-    local $@;
-    eval {
-        my $dbh = $storage->dbh;
-        $dbh->do($_) for (
-"CREATE TABLE mssql_loader_test3 (id INT IDENTITY NOT NULL PRIMARY KEY)",
-"DROP VIEW mssql_loader_test4",
-"DROP TABLE mssql_loader_test3",
-        );
-    };
-}
-
 1;