sort unique constraints

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

diff --git a/t/lib/make_dbictest_db_bad_comment_tables.pm b/t/lib/make_dbictest_db_bad_comment_tables.pm
index 7e5cfb3..dc0dc74 100644 (file)
--- a/t/lib/make_dbictest_db_bad_comment_tables.pm
+++ b/t/lib/make_dbictest_db_bad_comment_tables.pm
@@ -41,6 +41,6 @@ $dbh->do($_) for (
     q|INSERT INTO bar VALUES (4,1)|,
 );
 
-END { unlink($fn); }
+END { unlink($fn) unless $ENV{SCHEMA_LOADER_TESTS_NOCLEANUP}; }
 
 1