1 BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
3 # things will die if this is set
4 BEGIN { $ENV{DBIC_ASSERT_NO_ERRONEOUS_METAINSTANCE_USE} = 0 }
14 my $s = DBICTest->init_schema( no_deploy => 1 );
18 DBICTest::Schema::Artist->add_column("somethingnew");
19 $s->unregister_source("Artist");
20 $s->register_class( Artist => "DBICTest::Schema::Artist" );
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'