use strict;
use warnings;
use Test::More;
-use FindBin;
-use lib "$FindBin::Bin/../t/lib";
-use DBICNSTest::Result::A;
-plan tests => 7;
+use lib qw(t/lib);
+use DBICTest; # do not remove even though it is not used
+
+plan tests => 8;
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
+
+for my $moniker (qw/A B/) {
+ my $class = "DBICNSTest::Result::$moniker";
+ ok(!defined($class->result_source_instance->source_name));
+}