-#!/usr/bin/perl
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use strict;
use warnings;
-use Test::More;
-use lib 't/lib';
-plan tests => 15;
+use DBICTest; # do not remove even though it is not used
+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');
- }
}
{
eval {
local $SIG{__WARN__} = sub { $warnings .= shift };
package DBICNSTest::RtBug41083;
- use base 'DBIx::Class::Schema';
+ use base 'DBICTest::BaseSchema';
__PACKAGE__->load_namespaces(
- result_namespace => 'Schema_A',
+ result_namespace => 'Result_A',
resultset_namespace => 'ResultSet_A',
default_resultset_class => 'ResultSet'
);
eval {
local $SIG{__WARN__} = sub { $warnings .= shift };
package DBICNSTest::RtBug41083;
- use base 'DBIx::Class::Schema';
+ use base 'DBICTest::BaseSchema';
__PACKAGE__->load_namespaces(
- result_namespace => 'Schema',
- resultset_namespace => 'ResultSet',
default_resultset_class => 'ResultSet'
);
};