1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
|
use warnings;
use strict ;
use Test::More;
use HTTP::Request::Common;
use Plack::Test;
# If someone does $c->req->params(undef) you don't get a very good
# error message. This is a test to see if the proposed change improves
# that.
{
package MyApp::Controller::Root;
$INC{'MyApp/Controller/Root.pm'} = __FILE__;
use base 'Catalyst::Controller';
sub test :Local {
my ($self, $c) = @_;
my $value = $c->req->param(undef);
$c->response->body("This is the body");
}
sub set_params :Local {
my ($self, $c) = @_;
$c->req->param(foo => 'a', 'b', 'c');
$c->res->body(join ',', $c->req->param('foo'));
}
package MyApp;
use Catalyst;
$SIG{__WARN__} = sub {
my $error = shift;
Test::More::like($error, qr[You called ->params with an undefined value])
unless MyApp->debug;
};
MyApp->setup;
}
ok my $psgi = MyApp->psgi_app, 'build psgi app';
test_psgi $psgi, sub {
my $cb = shift;
{
my $res = $cb->(GET "/root/test");
is $res->code, 200, 'OK';
}
{
my $res = $cb->(GET "/root/set_params");
is $res->code, 200, 'OK';
is $res->content, 'a,b,c';
}
};
done_testing;
|
