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 => 7;
11
12my $warnings;
13eval {
14    local $SIG{__WARN__} = sub { $warnings .= shift };
15    package DBICNSTestOther;
16    use base qw/DBIx::Class::Schema/;
17    __PACKAGE__->load_namespaces(
18        result_namespace => [ '+DBICNSTest::Rslt', '+DBICNSTest::OtherRslt' ],
19        resultset_namespace => '+DBICNSTest::RSet',
20    );
21};
22ok(!$@) or diag $@;
23like($warnings, qr/load_namespaces found ResultSet class C with no corresponding Result class/);
24
25my $source_a = DBICNSTestOther->source('A');
26isa_ok($source_a, 'DBIx::Class::ResultSource::Table');
27my $rset_a   = DBICNSTestOther->resultset('A');
28isa_ok($rset_a, 'DBICNSTest::RSet::A');
29
30my $source_b = DBICNSTestOther->source('B');
31isa_ok($source_b, 'DBIx::Class::ResultSource::Table');
32my $rset_b   = DBICNSTestOther->resultset('B');
33isa_ok($rset_b, 'DBIx::Class::ResultSet');
34
35my $source_d = DBICNSTestOther->source('D');
36isa_ok($source_d, 'DBIx::Class::ResultSource::Table');
37