diff options
Diffstat (limited to 't/psgi_search.t')
-rw-r--r-- | t/psgi_search.t | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/t/psgi_search.t b/t/psgi_search.t index 60a44bde..2f033016 100644 --- a/t/psgi_search.t +++ b/t/psgi_search.t @@ -62,6 +62,16 @@ test_psgi(sub { $www->call(@_) }, sub { is('%C3%86var', (keys %uniq)[0], 'matches original query'); ok(index($html, 'by Ævar Arnfjörð Bjarmason') >= 0, "displayed Ævar's name properly in HTML"); + + my $warn = []; + local $SIG{__WARN__} = sub { push @$warn, @_ }; + $res = $cb->(GET('/test/?q=s:test&l=5e')); + is($res->code, 200, 'successful search result'); + is_deeply([], $warn, 'no warnings from non-numeric comparison'); + + $res = $cb->(POST('/test/?q=s:bogus&x=m')); + is($res->code, 404, 'failed search result gives 404'); + is_deeply([], $warn, 'no warnings'); }); done_testing(); |