t/22dump.t

   1 use strict;
   2 use Test::More;
   3 use Test::Exception;
   4 use Test::Warn;
   5 use lib qw(t/lib);
   6 use File::Path;
   7 use make_dbictest_db;
   8 use dbixcsl_test_dir qw/$tdir/;
   9
  10 my $dump_path = "$tdir/dump";
  11
  12
  13 {
  14     package DBICTest::Schema::1;
  15     use base qw/ DBIx::Class::Schema::Loader /;
  16     __PACKAGE__->loader_options(
  17         dump_directory => $dump_path,
  18     );
  19 }
  20
  21 {
  22     package DBICTest::Schema::2;
  23     use base qw/ DBIx::Class::Schema::Loader /;
  24     __PACKAGE__->loader_options(
  25         dump_directory => $dump_path,
  26         really_erase_my_files => 1,
  27     );
  28 }
  29
  30 rmtree($dump_path, 1, 1);
  31
  32 lives_ok {
  33   warnings_exist { DBICTest::Schema::1->connect($make_dbictest_db::dsn) }
  34     [ qr|^Dumping manual schema|, qr|^Schema dump completed| ];
  35 } 'no death with dump_directory set' or diag "Dump failed: $@";
  36
  37 DBICTest::Schema::1->_loader_invoked(undef);
  38
  39 SKIP: {
  40   skip "ActiveState perl produces additional warnings", 1
  41     if ($^O eq 'MSWin32');
  42
  43   warnings_exist { DBICTest::Schema::1->connect($make_dbictest_db::dsn) }
  44     [ qr|^Dumping manual schema|, qr|^Schema dump completed| ];
  45
  46   rmtree($dump_path, 1, 1);
  47 }
  48
  49 lives_ok {
  50   warnings_exist { DBICTest::Schema::2->connect($make_dbictest_db::dsn) }
  51     [ qr|^Dumping manual schema|, qr|^Schema dump completed| ];
  52 } 'no death with dump_directory set (overwrite1)' or diag "Dump failed: $@";
  53
  54 DBICTest::Schema::2->_loader_invoked(undef);
  55
  56 lives_ok {
  57   warnings_exist { DBICTest::Schema::2->connect($make_dbictest_db::dsn) }
  58   [
  59     qr/^Dumping manual schema/,
  60     qr|^Deleting .+Schema/2.+ due to 'really_erase_my_files'|,
  61     qr|^Deleting .+Schema/2/Result/Foo.+ due to 'really_erase_my_files'|,
  62     qr|^Deleting .+Schema/2/Result/Bar.+ due to 'really_erase_my_files'|,
  63     qr/^Schema dump completed/
  64   ];
  65 } 'no death with dump_directory set (overwrite2)' or diag "Dump failed: $@";
  66
  67 done_testing();
  68
  69 END { rmtree($dump_path, 1, 1); }