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 => 8; 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}; 19ok(!$@) or diag $@; 20like($warnings, qr/load_namespaces found ResultSet class C with no corresponding Result class/); 21 22my $source_a = DBICNSTest->source('A'); 23isa_ok($source_a, 'DBIx::Class::ResultSource::Table'); 24my $rset_a = DBICNSTest->resultset('A'); 25isa_ok($rset_a, 'DBICNSTest::ResultSet::A'); 26 27my $source_b = DBICNSTest->source('B'); 28isa_ok($source_b, 'DBIx::Class::ResultSource::Table'); 29my $rset_b = DBICNSTest->resultset('B'); 30isa_ok($rset_b, 'DBIx::Class::ResultSet'); 31 32for my $moniker (qw/A B/) { 33 my $class = "DBICNSTest::Result::$moniker"; 34 ok(!defined($class->result_source_instance->source_name)); 35} 36