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'; |
112415f1 |
9 | use lib 't/lib'; |
10 | use make_dbictest_db (); |
11 | use dbixcsl_test_dir '$tdir'; |
12 | |
13 | plan tests => 3; |
14 | |
15 | # Test the -I option |
16 | |
17 | dbicdump( |
18 | '-I', 't/lib', '-o', 'schema_base_class=TestSchemaBaseClass', 'DBICTest::Schema', |
19 | $make_dbictest_db::dsn |
20 | ); |
21 | |
22 | dbicdump( |
23 | '-It/lib', '-o', 'schema_base_class=TestSchemaBaseClass', 'DBICTest::Schema', |
24 | $make_dbictest_db::dsn |
25 | ); |
26 | |
27 | dbicdump( |
28 | '-I/dummy', '-It/lib', '-o', 'schema_base_class=TestSchemaBaseClass', |
29 | 'DBICTest::Schema', |
30 | $make_dbictest_db::dsn |
31 | ); |
32 | |
33 | done_testing; |
34 | |
35 | sub dbicdump { |
36 | system $^X, 'script/dbicdump', |
37 | '-o', "dump_directory=$tdir", |
38 | '-o', 'quiet=1', |
39 | @_; |
40 | |
41 | is $? >> 8, 0, |
42 | 'dbicdump executed successfully'; |
43 | } |