Commit | Line | Data |
9cb983b3 |
1 | use strict; |
2 | use Test::More tests => 3; |
3 | use Test::Exception; |
4 | use lib qw(t/lib); |
5 | use make_dbictest_db; |
6 | |
7 | use File::Copy; |
8 | use File::Spec; |
9 | use File::Temp qw/ tempdir tempfile /; |
10 | |
11 | use DBIx::Class::Schema::Loader; |
12 | |
13 | my $tempdir = tempdir( CLEANUP => 1 ); |
14 | my $foopm = File::Spec->catfile( $tempdir, qw| DBICTest Schema Overwrite_modifications Foo.pm |); |
15 | dump_schema(); |
16 | |
17 | # check that we dumped |
18 | ok( -f $foopm, 'looks like it dumped' ); |
19 | |
20 | # now modify one of the files |
21 | { |
22 | open my $in, '<', $foopm or die "$! reading $foopm"; |
23 | my ($tfh,$temp) = tempfile( UNLINK => 1); |
24 | while(<$in>) { |
25 | s/"bars"/"somethingelse"/; |
26 | print $tfh $_; |
27 | } |
28 | close $tfh; |
29 | copy( $temp, $foopm ); |
30 | } |
31 | |
32 | # and dump again without overwrites |
33 | throws_ok { |
34 | dump_schema(); |
35 | } qr/mismatch/, 'throws error dumping without overwrite_modifications'; |
36 | |
37 | # and then dump with overwrite |
38 | lives_ok { |
39 | dump_schema( overwrite_modifications => 1 ); |
40 | } 'does not throw when dumping with overwrite_modifications'; |
41 | |
42 | sub dump_schema { |
43 | |
44 | # need to poke _loader_invoked in order to be able to rerun the |
45 | # loader multiple times. |
46 | DBICTest::Schema::Overwrite_modifications->_loader_invoked(0) |
47 | if @DBICTest::Schema::Overwrite_modifications::ISA; |
48 | |
cb68a7cc |
49 | local $SIG{__WARN__} = sub { |
50 | warn @_ |
51 | unless $_[0] =~ /^Dumping manual schema|^Schema dump completed/; |
52 | }; |
9cb983b3 |
53 | DBIx::Class::Schema::Loader::make_schema_at( 'DBICTest::Schema::Overwrite_modifications', |
54 | { dump_directory => $tempdir, |
55 | @_, |
56 | }, |
57 | [ $make_dbictest_db::dsn ], |
58 | ); |
59 | } |