[dbsrgits/DBIx-Class.git] / t / 39load_namespaces_exception.t

BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }

use strict;
use warnings;
use Test::More;


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