use strict;
-use Test::More tests => 5;
+use warnings;
+use Test::More;
use Test::Exception;
use Test::Warn;
use lib qw(t/lib);
use File::Temp qw/ tempdir tempfile /;
use DBIx::Class::Schema::Loader;
+use DBIx::Class::Schema::Loader::Utils qw/ slurp_file /;
my $tempdir = tempdir( CLEANUP => 1 );
my $foopm = File::Spec->catfile( $tempdir,
dump_schema( overwrite_modifications => 1 );
} 'does not throw when dumping with overwrite_modifications';
+
+unlike slurp_file $foopm, qr/"somethingelse"/, "Modifications actually overwritten";
+
sub dump_schema {
# need to poke _loader_invoked in order to be able to rerun the
);
} [qr/^Dumping manual schema/, qr/^Schema dump completed/ ];
}
+
+done_testing();