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, 1);
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);
38 skip "ActiveState perl produces additional warnings", 5
39 if ($^O eq 'MSWin32');
43 local $SIG{__WARN__} = sub { push(@warn_output, @_) };
44 DBICTest::Schema::1->connect($make_dbictest_db::dsn);
46 my @warnings_regexes = (
47 qr|Dumping manual schema|,
48 (qr|DBICTest/Schema/1.*?.pm exists, will not overwrite|) x 3,
49 qr|Schema dump completed|,
52 like(shift @warn_output, $_) foreach (@warnings_regexes);
54 rmtree($dump_path, 1, 1);
57 eval { DBICTest::Schema::2->connect($make_dbictest_db::dsn) };
58 ok(!$@, 'no death with dump_directory set (overwrite1)')
59 or diag "Dump failed: $@";
61 DBICTest::Schema::2->loader(undef);
62 eval { DBICTest::Schema::2->connect($make_dbictest_db::dsn) };
63 ok(!$@, 'no death with dump_directory set (overwrite2)')
64 or diag "Dump failed: $@";
66 END { rmtree($dump_path, 1, 1); }