sort unique constraints

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

diff --git a/t/lib/make_dbictest_db_comments.pm b/t/lib/make_dbictest_db_comments.pm
index 375bcb8..216556d 100644 (file)
--- a/t/lib/make_dbictest_db_comments.pm
+++ b/t/lib/make_dbictest_db_comments.pm
@@ -58,6 +58,6 @@ $dbh->do($_) for (
     q|INSERT INTO bar VALUES (4,1)|,
 );
 
-END { unlink($fn); }
+END { unlink($fn) unless $ENV{SCHEMA_LOADER_TESTS_NOCLEANUP}; }
 
 1