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