use lib qw(t/backcompat/0.04006/lib);
use File::Path;
use make_dbictest_db;
-use Test::More;
-plan skip_all => 'Backcompat tests disabled'
+use dbixcsl_test_dir qw/$tdir/;
+
+plan skip_all => 'set SCHEMA_LOADER_TESTS_BACKCOMPAT to enable these tests'
unless $ENV{SCHEMA_LOADER_TESTS_BACKCOMPAT};
+my $dump_path = "$tdir/dump";
-my $dump_path = './t/_dump';
+local $SIG{__WARN__} = sub {
+ warn @_ unless $_[0] =~
+ /^Dumping manual schema|really_erase_my_files|^Schema dump complete/;
+};
{
package DBICTest::Schema::1;
ok(!$@, 'no death with dump_directory set (overwrite2)')
or diag "Dump failed: $@";
-END { rmtree($dump_path, 1, 1); }
+END { rmtree($dump_path, 1, 1) if $ENV{SCHEMA_LOADER_TESTS_BACKCOMPAT}; }