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