13 $_[0] !~ qr/We found ResultSet class '([^']+)' for '([^']+)', but it seems that you had already set '([^']+)' to use '([^']+)' instead/ :
19 local $SIG{__WARN__} = sub { $warnings .= shift };
20 package DBICNSTest::RtBug41083;
21 use base 'DBIx::Class::Schema';
22 __PACKAGE__->load_namespaces(
23 result_namespace => 'Schema_A',
24 resultset_namespace => 'ResultSet_A',
25 default_resultset_class => 'ResultSet'
29 ok(_chk_warning($warnings), 'expected no complaint');
32 local $SIG{__WARN__} = sub { $warnings .= shift };
33 package DBICNSTest::RtBug41083;
34 use base 'DBIx::Class::Schema';
35 __PACKAGE__->load_namespaces(
36 result_namespace => 'Schema',
37 resultset_namespace => 'ResultSet',
38 default_resultset_class => 'ResultSet'
42 ok(_chk_warning($warnings), 'expected no complaint') or diag $warnings;