Factor SQL-standard deferred FK checks into a component

[dbsrgits/DBIx-Class.git] / t / 746db2_400.t

diff --git a/t/746db2_400.t b/t/746db2_400.t
index b3c55eb..cb5213b 100644 (file)
--- a/t/746db2_400.t
+++ b/t/746db2_400.t
@@ -21,6 +21,7 @@ plan skip_all => 'Set $ENV{DBICTEST_DB2_400_DSN}, _USER and _PASS to run this te
 
 plan tests => 6;
 
+require DBICTest::Schema;
 my $schema = DBICTest::Schema->connect($dsn, $user, $pass);
 
 my $dbh = $schema->storage->dbh;
@@ -86,6 +87,7 @@ is_deeply($type_info, $test_type_info, 'columns_info_for - column data types');
 
 # clean up our mess
 END {
-    my $dbh = eval { $schema->storage->_dbh };
-    $dbh->do("DROP TABLE artist") if $dbh;
+  my $dbh = eval { $schema->storage->_dbh };
+  $dbh->do("DROP TABLE artist") if $dbh;
+  undef $schema;
 }