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