X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Faggregate%2Flive_engine_request_uri.t;h=28c8d1a00662301fc29f95526fa0b5ac54865471;hb=6c217fb3c36a6e0ac4ef82b839ee3d5ed924e2e5;hp=b26e156cbba53bc8dd598d21cf2d7851871e6ea4;hpb=6ebb781872628a74ac0916b163bcf8411b232399;p=catagits%2FCatalyst-Runtime.git diff --git a/t/aggregate/live_engine_request_uri.t b/t/aggregate/live_engine_request_uri.t index b26e156..28c8d1a 100644 --- a/t/aggregate/live_engine_request_uri.t +++ b/t/aggregate/live_engine_request_uri.t @@ -14,7 +14,8 @@ my $creq; { 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' ); } @@ -41,7 +42,7 @@ SKIP: 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' ); @@ -56,7 +57,7 @@ SKIP: 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' ); @@ -167,7 +168,7 @@ SKIP: 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' );