More robust behavior of ANFANG.pm, also guard against sitecustomize.pl
[dbsrgits/DBIx-Class.git] / t / 101source.t
CommitLineData
c0329273 1BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
2
f5f2af8f 3use warnings;
4use strict;
5
6use Test::More;
7use Test::Exception;
8
c0329273 9
f5f2af8f 10use DBICTest;
11
12my $schema = DBICTest->init_schema;
13
14throws_ok {$schema->source()} qr/\Qsource() expects a source name/, 'Empty args for source caught';
15
16done_testing();