X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Faggregate%2Flive_engine_request_parameters.t;h=c7b46115e13b4fde7616589e53d3de62a2576a70;hb=480d94b5f34577816d44fe05389ca5a085179363;hp=e97ba81e94598cd627b493810ae75d0d57a2d0b6;hpb=b76e3717f2e1f4f7d7532a9c6ccf04791f373145;p=catagits%2FCatalyst-Runtime.git diff --git a/t/aggregate/live_engine_request_parameters.t b/t/aggregate/live_engine_request_parameters.t index e97ba81..c7b4611 100644 --- a/t/aggregate/live_engine_request_parameters.t +++ b/t/aggregate/live_engine_request_parameters.t @@ -1,5 +1,3 @@ -#!perl - use strict; use warnings; @@ -30,12 +28,12 @@ use HTTP::Request::Common; 'Content is a serialized Catalyst::Request' ); ok( eval '$creq = ' . $response->content, 'Unserialize Catalyst::Request' ); - isa_ok( $creq, 'Catalyst::Request' ); + isa_ok( $creq, 'Catalyst::Request' ) + or fail("EXCEPTION: $@"); is( $creq->method, 'GET', 'Catalyst::Request method' ); is_deeply( $creq->parameters, $parameters, 'Catalyst::Request parameters' ); } - { my $creq; ok( my $response = request("http://localhost/dump/request?q=foo%2bbar"),