Commit | Line | Data |
c0329273 |
1 | BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) } |
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; |
a0216b74 |
14 | use base qw/DBICTest::BaseSchema/; |
b488020e |
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'); |