[dbsrgits/DBIx-Class.git] / 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');
Commit	Line	Data
b488020e	1	use strict;
	2	use warnings;
	3	use Test::More;
	4
	5	use lib qw(t/lib);
	6	use DBICTest; # do not remove even though it is not used
	7
	8	plan tests => 1;
	9
	10	eval {
	11	package DBICNSTest;
	12	use base qw/DBIx::Class::Schema/;
	13	__PACKAGE__->load_namespaces(
	14	result_namespace => 'Bogus',
	15	resultset_namespace => 'RSet',
	16	);
	17	};
	18
	19	like ($@, qr/are you sure this is a real Result Class/, 'Clear exception thrown');