6 require DBIx::Class::Schema::Loader;
10 plan skip_all => "ActiveState perl produces additional warnings"
11 if ($^O eq 'MSWin32');
13 my $dump_path = './t/_dump';
16 my ($schema_class, $opts) = @_;
18 rmtree($dump_path, 1, 1);
21 @{$schema_class . '::ISA'} = ('DBIx::Class::Schema::Loader');
22 $schema_class->loader_options(dump_directory => $dump_path, %$opts);
26 local $SIG{__WARN__} = sub { push(@warn_output, @_) };
27 $schema_class->connect($make_dbictest_db::dsn);
30 $schema_class->storage->disconnect if !$err && $schema_class->storage;
31 undef *{$schema_class};
32 return ($err, \@warn_output);
37 my ($err, $warn) = do_dump_test('DBICTest::Schema::1', { });
40 like($warn->[0], qr/Dumping manual schema for DBICTest::Schema::1 to directory /);
41 like($warn->[1], qr/Schema dump completed/);
46 # XXX obviously this test file needs to be fleshed out more :)
48 # END { rmtree($dump_path, 1, 1); }