Commit | Line | Data |
d56e05c7 |
1 | BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) } |
2 | |
3 | # things will die if this is set |
4 | BEGIN { $ENV{DBIC_ASSERT_NO_ERRONEOUS_METAINSTANCE_USE} = 0 } |
5 | |
6 | use strict; |
7 | use warnings; |
8 | |
9 | use Test::More; |
10 | use Test::Warn; |
11 | |
12 | use DBICTest; |
13 | |
14 | my $s = DBICTest->init_schema( no_deploy => 1 ); |
15 | |
16 | |
17 | warnings_exist { |
18 | DBICTest::Schema::Artist->add_column("somethingnew"); |
19 | $s->unregister_source("Artist"); |
20 | $s->register_class( Artist => "DBICTest::Schema::Artist" ); |
21 | } |
22 | qr/The ResultSource instance you just registered on .+ \Qas 'Artist' seems to have no relation to DBICTest::Schema->source('Artist') which in turn is marked stale/, |
23 | 'Expected warning on incomplete re-register of schema-class-level source' |
24 | ; |
25 | |
26 | done_testing; |