Commit | Line | Data |
112415f1 |
1 | #!perl |
2 | |
3 | use strict; |
4 | use warnings; |
5 | |
6 | use Test::More; |
7 | use DBIx::Class::Schema::Loader::Utils 'slurp_file'; |
9643e2f1 |
8 | use File::Path 'rmtree'; |
9 | use namespace::clean; |
112415f1 |
10 | use lib 't/lib'; |
11 | use make_dbictest_db (); |
12 | use dbixcsl_test_dir '$tdir'; |
13 | |
14 | plan tests => 3; |
15 | |
16 | # Test the -I option |
17 | |
18 | dbicdump( |
19 | '-I', 't/lib', '-o', 'schema_base_class=TestSchemaBaseClass', 'DBICTest::Schema', |
20 | $make_dbictest_db::dsn |
21 | ); |
22 | |
23 | dbicdump( |
24 | '-It/lib', '-o', 'schema_base_class=TestSchemaBaseClass', 'DBICTest::Schema', |
25 | $make_dbictest_db::dsn |
26 | ); |
27 | |
28 | dbicdump( |
29 | '-I/dummy', '-It/lib', '-o', 'schema_base_class=TestSchemaBaseClass', |
30 | 'DBICTest::Schema', |
31 | $make_dbictest_db::dsn |
32 | ); |
33 | |
34 | done_testing; |
35 | |
36 | sub dbicdump { |
37 | system $^X, 'script/dbicdump', |
38 | '-o', "dump_directory=$tdir", |
39 | '-o', 'quiet=1', |
40 | @_; |
41 | |
42 | is $? >> 8, 0, |
43 | 'dbicdump executed successfully'; |
44 | } |
9643e2f1 |
45 | |
46 | END { rmtree $tdir } |