-#!/usr/bin/perl
-
use strict;
use warnings;
use lib 't/lib';
+use DBICTest; # do not remove even though it is not used
use Test::More tests => 8;
-plan tests => 8;
-
sub _chk_warning {
defined $_[0]?
$_[0] !~ qr/We found ResultSet class '([^']+)' for '([^']+)', but it seems that you had already set '([^']+)' to use '([^']+)' instead/ :
package DBICNSTest::RtBug41083;
use base 'DBIx::Class::Schema';
__PACKAGE__->load_namespaces(
- result_namespace => 'Schema_A',
+ result_namespace => 'Result_A',
resultset_namespace => 'ResultSet_A',
default_resultset_class => 'ResultSet'
);
package DBICNSTest::RtBug41083;
use base 'DBIx::Class::Schema';
__PACKAGE__->load_namespaces(
- result_namespace => 'Schema',
- resultset_namespace => 'ResultSet',
default_resultset_class => 'ResultSet'
);
};