use strict;
use warnings;
use Test::More;
+use FindBin;
+use lib "$FindBin::Bin/../t/lib";
+use DBICNSTest::Result::A;
-unshift(@INC, './t/lib');
-
-plan tests => 6;
+plan tests => 7;
my $warnings;
eval {
isa_ok($source_b, 'DBIx::Class::ResultSource::Table');
my $rset_b = DBICNSTest->resultset('B');
isa_ok($rset_b, 'DBIx::Class::ResultSet');
+ok(
+ $source_b->source_name
+ eq DBICNSTest::Result::B->result_source_instance->source_name
+);
\ No newline at end of file