sort unique constraints
[dbsrgits/DBIx-Class-Schema-Loader.git] / t / lib / make_dbictest_db_with_unique.pm
index a0b47bf..11363d6 100644 (file)
@@ -65,6 +65,6 @@ $dbh->do($_) for (
     q|INSERT INTO RouteChange VALUES (1,1,3)|,
 );
 
-END { unlink($fn); }
+END { unlink($fn) unless $ENV{SCHEMA_LOADER_TESTS_NOCLEANUP}; }
 
 1;