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; |