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 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 }