t/101source.t

   1 BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
   2
   3 use warnings;
   4 use strict;
   5
   6 use Test::More;
   7 use Test::Exception;
   8
   9
  10 use DBICTest;
  11
  12 my $schema = DBICTest->init_schema;
  13
  14 throws_ok {$schema->source()} qr/\Qsource() expects a source name/, 'Empty args for source caught';
  15
  16 done_testing();