1#!/usr/bin/perl
2
3use strict;
4use warnings;
5use Test::More;
6
7use lib qw(t/lib);
8use DBICTest; # do not remove even though it is not used
9
10plan tests => 6;
11
12my $warnings;
13eval {
14    local $SIG{__WARN__} = sub { $warnings .= shift };
15    package DBICNSTest;
16    use base qw/DBIx::Class::Schema/;
17    __PACKAGE__->load_namespaces(
18        result_namespace => 'Rslt',
19        resultset_namespace => 'RSet',
20    );
21};
22ok(!$@) or diag $@;
23like($warnings, qr/load_namespaces found ResultSet class C with no corresponding Result class/);
24
25my $source_a = DBICNSTest->source('A');
26isa_ok($source_a, 'DBIx::Class::ResultSource::Table');
27my $rset_a   = DBICNSTest->resultset('A');
28isa_ok($rset_a, 'DBICNSTest::RSet::A');
29
30my $source_b = DBICNSTest->source('B');
31isa_ok($source_b, 'DBIx::Class::ResultSource::Table');
32my $rset_b   = DBICNSTest->resultset('B');
33isa_ok($rset_b, 'DBIx::Class::ResultSet');
34