+use DBIx::Class::Schema::Loader::Optional::Dependencies
+ -skip_all_without => 'test_backcompat';
+
use strict;
+use warnings;
use Test::More;
use lib qw(t/backcompat/0.04006/lib);
use File::Path;
use make_dbictest_db;
+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 = './t/_dump';
+my $dump_path = "$tdir/dump";
local $SIG{__WARN__} = sub {
warn @_ unless $_[0] =~
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}; }