t/65dbicdump_invocations.t

   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 File::Path 'rmtree';
   9 use namespace::clean;
  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 }