7 my $dump_path = './t/_dump';
10 package DBICTest::Schema::1;
11 use base qw/ DBIx::Class::Schema::Loader /;
12 __PACKAGE__->loader_options(
13 dump_directory => $dump_path,
18 package DBICTest::Schema::2;
19 use base qw/ DBIx::Class::Schema::Loader /;
20 __PACKAGE__->loader_options(
21 dump_directory => $dump_path,
22 really_erase_my_files => 1,
28 rmtree($dump_path, 1, 1);
30 eval { DBICTest::Schema::1->connect($make_dbictest_db::dsn) };
31 ok(!$@, 'no death with dump_directory set') or diag "Dump failed: $@";
33 DBICTest::Schema::1->_loader_invoked(undef);
36 my @warnings_regexes = (
37 qr|Dumping manual schema|,
38 qr|Schema dump completed|,
41 skip "ActiveState perl produces additional warnings", scalar @warnings_regexes
42 if ($^O eq 'MSWin32');
46 local $SIG{__WARN__} = sub { push(@warn_output, @_) };
47 DBICTest::Schema::1->connect($make_dbictest_db::dsn);
50 like(shift @warn_output, $_) foreach (@warnings_regexes);
52 rmtree($dump_path, 1, 1);
55 eval { DBICTest::Schema::2->connect($make_dbictest_db::dsn) };
56 ok(!$@, 'no death with dump_directory set (overwrite1)')
57 or diag "Dump failed: $@";
59 DBICTest::Schema::2->_loader_invoked(undef);
60 eval { DBICTest::Schema::2->connect($make_dbictest_db::dsn) };
61 ok(!$@, 'no death with dump_directory set (overwrite2)')
62 or diag "Dump failed: $@";
64 END { rmtree($dump_path, 1, 1); }