+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
use Test::Warn;
-use lib qw(t/lib);
+
use DBICTest;
{
isa_ok ($schema->resultset('Artist'), 'DBIx::Class::ResultSet');
},
[
- qr/DBICTest::Artist already has a source, use register_extra_source for additional sources/
+ qr/DBICTest::Artist already had a registered source which was replaced by this call/
],
'registering source to an existing result warns'
);