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

use warnings;
use strict;

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

use lib qw(t/lib);
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
f5f2af8f	1	use warnings;
	2	use strict;
	3
	4	use Test::More;
	5	use Test::Exception;
	6
	7	use lib qw(t/lib);
	8	use DBICTest;
	9
	10	my $schema = DBICTest->init_schema;
	11
	12	throws_ok {$schema->source()} qr/\Qsource() expects a source name/, 'Empty args for source caught';
	13
	14	done_testing();