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;