1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
|
use DBIx::Class::Schema::Loader::Optional::Dependencies
-skip_all_without => 'test_dbicdump_config';
use strict;
use warnings;
use Test::More;
use File::Path qw/make_path rmtree/;
use DBIx::Class::Schema::Loader::Utils 'slurp_file';
use Try::Tiny;
use namespace::clean;
use lib 't/lib';
use make_dbictest_db ();
use dbixcsl_test_dir '$tdir';
plan tests => 2;
my $config_dir = "$tdir/dbicdump_config";
make_path $config_dir;
my $config_file = "$config_dir/my.conf";
my $dump_path = "$tdir/dbicdump_config_dump";
open my $fh, '>', $config_file
or die "Could not write to $config_file: $!";
print $fh <<"EOF";
schema_class DBICTest::Schema
lib t/lib
<connect_info>
dsn $make_dbictest_db::dsn
<options>
on_connect_do select 1
</options>
</connect_info>
<loader_options>
dump_directory $dump_path
components InflateColumn::DateTime
schema_base_class TestSchemaBaseClass
quiet 1
</loader_options>
EOF
close $fh;
system $^X, 'script/dbicdump', $config_file;
is $? >> 8, 0,
'dbicdump executed successfully';
my $foo = try { slurp_file "$dump_path/DBICTest/Schema/Result/Foo.pm" } || '';
like $foo, qr/InflateColumn::DateTime/,
'loader options read correctly from config_file';
done_testing;
END {
rmtree($config_dir, 1, 1);
rmtree($dump_path, 1, 1);
}
|
