t/39load_namespaces_exception.t

   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');