Commit | Line | Data |
---|---|---|
c0329273 | 1 | BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) } |
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; |