sort unique constraints

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

diff --git a/t/lib/make_dbictest_db_plural_tables.pm b/t/lib/make_dbictest_db_plural_tables.pm
index 39b1f7b..b44a5ea 100644 (file)
--- a/t/lib/make_dbictest_db_plural_tables.pm
+++ b/t/lib/make_dbictest_db_plural_tables.pm
@@ -35,6 +35,6 @@ $dbh->do($_) for (
     q|INSERT INTO bars VALUES (4,1)|,
 );
 
-END { unlink($fn); }
+END { unlink($fn) unless $ENV{SCHEMA_LOADER_TESTS_NOCLEANUP}; }
 
 1;