7 use File::Path qw/make_path rmtree/;
8 use DBIx::Class::Schema::Loader::Optional::Dependencies ();
9 use DBIx::Class::Schema::Loader::Utils 'slurp_file';
11 use make_dbictest_db ();
12 use dbixcsl_test_dir '$tdir';
15 use DBIx::Class::Schema::Loader::Optional::Dependencies ();
16 plan skip_all => 'Tests needs ' . DBIx::Class::Schema::Loader::Optional::Dependencies->req_missing_for('test_dbicdump_config')
17 unless (DBIx::Class::Schema::Loader::Optional::Dependencies->req_ok_for('test_dbicdump_config'));
22 my $config_dir = "$tdir/dbicdump_config";
23 make_path $config_dir;
24 my $config_file = "$config_dir/my.conf";
26 my $dump_path = "$tdir/dbicdump_config_dump";
28 open my $fh, '>', $config_file
29 or die "Could not write to $config_file: $!";
32 schema_class DBICTest::Schema
35 dsn $make_dbictest_db::dsn
39 dump_directory $dump_path
40 components InflateColumn::DateTime
47 system $^X, 'script/dbicdump', $config_file;
50 'dbicdump executed successfully';
52 my $foo = slurp_file "$dump_path/DBICTest/Schema/Result/Foo.pm";
54 like $foo, qr/InflateColumn::DateTime/,
55 'loader options read correctly from config_file';
60 rmtree($config_dir, 1, 1);
61 rmtree($dump_path, 1, 1);