[dbsrgits/DBIx-Class.git] / t / resultsource / bare_resultclass_exception.t

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

use strict;
use warnings;

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

use DBICTest;

{
  package DBICTest::Foo;
  use base "DBIx::Class::Core";
}

throws_ok { DBICTest::Foo->new("urgh") } qr/must be a hashref/;

done_testing;
Commit	Line	Data
c0329273	1	BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ \|\| $! ) }
c0329273	2
4f52479b	3	use strict;
	4	use warnings;
	5
	6	use Test::More;
	7	use Test::Exception;
	8
4f52479b	9	use DBICTest;
	10
	11	{
	12	package DBICTest::Foo;
	13	use base "DBIx::Class::Core";
	14	}
	15
	16	throws_ok { DBICTest::Foo->new("urgh") } qr/must be a hashref/;
	17
	18	done_testing;