projects
/
dbsrgits/DBIx-Class-Historic.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Skip lean_startup.t entirely on cperl for now
[dbsrgits/DBIx-Class-Historic.git]
/
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;