package main;
-use Test::More tests => 18;
+use Test::More tests => 21;
use lib 't/lib';
use Catalyst::Test 'TestApp';
use File::stat;
is( $response->code, 200, 'OK status code' );
is( $response->content, 'foo33', 'Normal request content', );
}
+
+{
+ ok( my $response = request('/doublesubtest'), 'Double Sub Request' );
+ is( $response->code, 200, 'OK status code' );
+ is( $response->content, '1531633', 'Normal Double request content', ); #we get 153 right now
+}
$c->res->body($c->res->body());
}
+sub doublesubtest :Global {
+ my ( $self, $c) = @_;
+ $c->res->body(
+ $c->subrequest('/normal/5').
+ $c->subrequest('/normal/6')
+ );
+}
+
sub end : Private {
my ( $self, $c ) = @_;
$c->res->body($c->res->body().'3');