xt/extra/diagnostics/search_in_void_ctx.t

   1 BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More;
   7 use Test::Exception;
   8
   9
  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;