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);
36 eval { DBICTest::Schema::1->connect($make_dbictest_db::dsn) };
37 like($@, qr|DBICTest/Schema/1.pm exists, will not overwrite|,
38 'death when attempting to overwrite without option');
40 rmtree($dump_path, 1, 0711);
42 eval { DBICTest::Schema::2->connect($make_dbictest_db::dsn) };
43 ok(!$@, 'no death with dump_directory set (overwrite1)') or diag "Dump failed: $@";
45 DBICTest::Schema::2->loader(undef);
46 eval { DBICTest::Schema::2->connect($make_dbictest_db::dsn) };
47 ok(!$@, 'no death with dump_directory set (overwrite2)') or diag "Dump failed: $@";
49 END { rmtree($dump_path, 1, 0711); }