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
61
62
63
64
65
66
|
use warnings;
use strict;
use Test::More;
# Test case for reported issue when an action consumes JSON but a
# POST sends nothing we get a hard error
{
package MyApp::Controller::Root;
$INC{'MyApp/Controller/Root.pm'} = __FILE__;
use base 'Catalyst::Controller';
sub test_forward :Local Args(0) {
my( $self, $c ) = @_;
my $view = $c->view('Test');
$c->forward($view);
}
sub test_custom :Local Args(0) {
my( $self, $c ) = @_;
my $view = $c->view('Test');
$c->forward($view, 'custom');
}
package MyApp::View::Test;
$INC{'MyApp/View/Test.pm'} = __FILE__;
use base 'Catalyst::View';
sub ACCEPT_CONTEXT {
my ($self, $c, @args) = @_;
return ref($self)->new;
}
sub process {
my ($self, $c, @args) = @_;
$c->res->body(ref $self);
}
sub custom {
my ($self, $c, @args) = @_;
$c->res->body("custom: @{[ ref $self]}");
}
package MyApp;
use Catalyst;
MyApp->setup;
}
use HTTP::Request::Common;
use Catalyst::Test 'MyApp';
{
ok my $res = request GET 'root/test_forward';
is $res->content, 'MyApp::View::Test';
}
{
ok my $res = request GET 'root/test_custom';
is $res->content, 'custom: MyApp::View::Test';
}
done_testing(4);
|
