use strict;
use warnings;
-use Test::More skip_all => 'Postponed until after 0.08100';
use lib 't/lib';
-
-plan tests => 15;
+use Test::More tests => 8;
sub _chk_warning {
defined $_[0]?
\@monikers,
'List of resultsource registrations',
);
-
- my %seen_rc;
- for my $m (@monikers) {
- my $src = DBICNSTest::RtBug41083->source ($m);
- my $rc = $src->result_class;
-
- ok ( (++$seen_rc{$rc} == 1), "result_class of $m is unique")
- || diag "Source: $m, result_class: $rc";
- like ($rc, qr/:: $m $/x, 'result_class matches moniker');
- }
}
{