{
ok( my $response = request('http://localhost/engine/request/uri/change_path'), 'Request' );
ok( $response->is_success, 'Response Successful 2xx' );
- ok( eval '$creq = ' . $response->content, 'Unserialize Catalyst::Request' );
+ ok( eval '$creq = ' . $response->content, 'Unserialize Catalyst::Request' )
+ or diag("Exception '$@', content " . $response->content);
like( $creq->uri, qr{/my/app/lives/here$}, 'URI contains new path' );
}
if ( $ENV{CATALYST_SERVER} ) {
skip 'Using remote server', 5;
}
-
+
local $ENV{HTTPS} = 'on';
ok( my $response = request('https://localhost/engine/request/uri'), 'HTTPS Request' );
ok( $response->is_success, 'Response Successful 2xx' );
a => [ qw/1 2/ ],
b => 3,
};
-
+
ok( my $response = request('http://localhost/engine/request/uri?a=1;a=2;b=3'), 'Request' );
ok( $response->is_success, 'Response Successful 2xx' );
ok( eval '$creq = ' . $response->content, 'Unserialize Catalyst::Request' );
if ( $ENV{CATALYST_SERVER} ) {
skip 'Using remote server', 2;
}
-
+
require TestApp::RequestBaseBug;
TestApp->request_class('TestApp::RequestBaseBug');
ok( my $response = request('http://localhost/engine/request/uri'), 'Request' );