1#!/usr/bin/perl
2
3use strict;
4use warnings;
5use Test::More;
6
7use lib qw(t/lib);
8use DBICTest; # do not remove even though it is not used
9
10plan tests => 1;
11
12eval {
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
21like ($@, qr/are you sure this is a real Result Class/, 'Clear exception thrown');
22