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,
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 skip "ActiveState perl produces additional warnings", 5
37 if ($^O eq 'MSWin32');
41 local $SIG{__WARN__} = sub { push(@warn_output, @_) };
42 DBICTest::Schema::1->connect($make_dbictest_db::dsn);
44 my @warnings_regexes = (
45 qr|Dumping manual schema|,
46 qr|Schema dump completed|,
49 like(shift @warn_output, $_) foreach (@warnings_regexes);
51 rmtree($dump_path, 1, 1);
54 eval { DBICTest::Schema::2->connect($make_dbictest_db::dsn) };
55 ok(!$@, 'no death with dump_directory set (overwrite1)')
56 or diag "Dump failed: $@";
58 DBICTest::Schema::2->_loader_invoked(undef);
59 eval { DBICTest::Schema::2->connect($make_dbictest_db::dsn) };
60 ok(!$@, 'no death with dump_directory set (overwrite2)')
61 or diag "Dump failed: $@";
63 END { rmtree($dump_path, 1, 1); }