[dbsrgits/DBIx-Class.git] / xt / extra / diagnostics / search_in_void_ctx.t

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

use strict;
use warnings;

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


use DBICTest;

my $schema = DBICTest->init_schema(no_deploy => 1);

throws_ok {
  $schema->resultset('Artist')->search
} qr/\Qsearch is *not* a mutator/, 'Proper exception on search in void ctx';

done_testing;
Commit	Line	Data
c0329273	1	BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ \|\| $! ) }
c0329273	2
0e7a447e	3	use strict;
	4	use warnings;
	5
	6	use Test::More;
	7	use Test::Exception;
	8
c0329273	9
0e7a447e	10	use DBICTest;
	11
	12	my $schema = DBICTest->init_schema(no_deploy => 1);
	13
	14	throws_ok {
	15	$schema->resultset('Artist')->search
	16	} qr/\Qsearch is not a mutator/, 'Proper exception on search in void ctx';
	17
	18	done_testing;