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

use strict;
use warnings;

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

use lib qw(t/lib);
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
0e7a447e	1	use strict;
	2	use warnings;
	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(no_deploy => 1);
	11
	12	throws_ok {
	13	$schema->resultset('Artist')->search
	14	} qr/\Qsearch is not a mutator/, 'Proper exception on search in void ctx';
	15
	16	done_testing;