Commit | Line | Data |
44930c36 |
1 | #!/usr/bin/perl |
2 | |
3 | use strict; |
4 | use warnings; |
5 | use Test::More; |
6 | |
7 | unshift(@INC, './t/lib'); |
8 | |
9 | plan tests => 9; |
10 | |
11 | my $warnings; |
12 | eval { |
13 | local $SIG{__WARN__} = sub { $warnings .= shift }; |
14 | package DBICNSTestOther; |
15 | use base qw/DBIx::Class::Schema/; |
16 | __PACKAGE__->load_namespaces( |
17 | resultsource_namespace => '+DBICNSTest::RSrc', |
18 | resultset_namespace => '+DBICNSTest::RSet', |
19 | result_namespace => '+DBICNSTest::Res' |
20 | ); |
21 | }; |
22 | ok(!$@) or diag $@; |
23 | like($warnings, qr/load_namespaces found ResultSet class C with no corresponding ResultSource/); |
24 | like($warnings, qr/load_namespaces found Result class C with no corresponding ResultSource/); |
25 | |
26 | my $source_a = DBICNSTestOther->source('A'); |
27 | isa_ok($source_a, 'DBIx::Class::ResultSource::Table'); |
28 | my $rset_a = DBICNSTestOther->resultset('A'); |
29 | isa_ok($rset_a, 'DBICNSTest::RSet::A'); |
30 | my $resclass_a = DBICNSTestOther->resultset('A')->result_class; |
31 | is($resclass_a, 'DBICNSTest::Res::A'); |
32 | |
33 | my $source_b = DBICNSTestOther->source('B'); |
34 | isa_ok($source_b, 'DBIx::Class::ResultSource::Table'); |
35 | my $rset_b = DBICNSTestOther->resultset('B'); |
36 | isa_ok($rset_b, 'DBIx::Class::ResultSet'); |
37 | my $resclass_b = DBICNSTestOther->resultset('B')->result_class; |
38 | is($resclass_b, 'DBICNSTest::RSrc::B'); |