[dbsrgits/DBIx-Class.git] / t / 101source.t

BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }

use warnings;
use strict;

use Test::More;
use Test::Exception;


use DBICTest;

my $schema = DBICTest->init_schema;

throws_ok {$schema->source()} qr/\Qsource() expects a source name/, 'Empty args for source caught';

done_testing();
Commit	Line	Data
c0329273	1	BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ \|\| $! ) }
c0329273	2
f5f2af8f	3	use warnings;
	4	use strict;
	5
	6	use Test::More;
	7	use Test::Exception;
	8
c0329273	9
f5f2af8f	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();