7 my $dump_path = './t/_dump';
10 package DBICTest::Schema::1;
11 use base qw/ DBIx::Class::Schema::Loader /;
12 __PACKAGE__->loader_options(
14 dump_directory => $dump_path,
19 package DBICTest::Schema::2;
20 use base qw/ DBIx::Class::Schema::Loader /;
21 __PACKAGE__->loader_options(
23 dump_directory => $dump_path,
30 rmtree($dump_path, 1, 0711);
32 eval { DBICTest::Schema::1->connect($make_dbictest_db::dsn) };
33 ok(!$@, 'no death with dump_directory set') or diag "Dump failed: $@";
35 DBICTest::Schema::1->loader(undef);
39 local $SIG{__WARN__} = sub { push(@warn_output, @_) };
40 DBICTest::Schema::1->connect($make_dbictest_db::dsn);
42 my @warnings_regexes = (
43 qr|Dumping manual schema|,
44 (qr|DBICTest/Schema/1.*?.pm exists, will not overwrite|) x 3,
45 qr|Schema dump completed|,
48 like(shift @warn_output, $_) foreach (@warnings_regexes);
50 rmtree($dump_path, 1, 0711);
52 eval { DBICTest::Schema::2->connect($make_dbictest_db::dsn) };
53 ok(!$@, 'no death with dump_directory set (overwrite1)')
54 or diag "Dump failed: $@";
56 DBICTest::Schema::2->loader(undef);
57 eval { DBICTest::Schema::2->connect($make_dbictest_db::dsn) };
58 ok(!$@, 'no death with dump_directory set (overwrite2)')
59 or diag "Dump failed: $@";
61 END { rmtree($dump_path, 1, 1); }