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