1#!perl
2
3use strict;
4use warnings;
5
6use Test::More;
7use DBIx::Class::Schema::Loader::Utils 'slurp_file';
8use File::Path 'rmtree';
9use namespace::clean;
10use lib 't/lib';
11use make_dbictest_db ();
12use dbixcsl_test_dir '$tdir';
13
14plan tests => 3;
15
16# Test the -I option
17
18dbicdump(
19    '-I', 't/lib', '-o', 'schema_base_class=TestSchemaBaseClass', 'DBICTest::Schema',
20    $make_dbictest_db::dsn
21);
22
23dbicdump(
24    '-It/lib', '-o', 'schema_base_class=TestSchemaBaseClass', 'DBICTest::Schema',
25    $make_dbictest_db::dsn
26);
27
28dbicdump(
29    '-I/dummy', '-It/lib', '-o', 'schema_base_class=TestSchemaBaseClass',
30    'DBICTest::Schema',
31    $make_dbictest_db::dsn
32);
33
34done_testing;
35
36sub 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}
45
46END { rmtree $tdir }
47