| Current Path : /proc/thread-self/root/usr/share/doc/perl-DBIx-Class/t/ |
| Current File : //proc/thread-self/root/usr/share/doc/perl-DBIx-Class/t/39load_namespaces_exception.t |
use strict;
use warnings;
use Test::More;
use lib qw(t/lib);
use DBICTest; # do not remove even though it is not used
plan tests => 1;
eval {
package DBICNSTest;
use base qw/DBIx::Class::Schema/;
__PACKAGE__->load_namespaces(
result_namespace => 'Bogus',
resultset_namespace => 'RSet',
);
};
like ($@, qr/are you sure this is a real Result Class/, 'Clear exception thrown');