X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=t%2Flive%2Fengine%2Frequest%2Fcookies.t;fp=t%2Fengine%2Frequest%2Fcookies.t;h=01faaac1c174437d06881181feb21a4c8373728b;hp=fc6401c2418c7cf8d4ab7d2b9ea350b53fc528f5;hb=fbcc39ad23f2bbecf5d84c9ba581e6af86fcd460;hpb=21465c884872c1ec8c30acd72796445f9eaacb31 diff --git a/t/engine/request/cookies.t b/t/live/engine/request/cookies.t similarity index 77% rename from t/engine/request/cookies.t rename to t/live/engine/request/cookies.t index fc6401c..01faaac 100644 --- a/t/engine/request/cookies.t +++ b/t/live/engine/request/cookies.t @@ -18,25 +18,24 @@ use URI; { my $creq; - my $request = GET( 'http://localhost/dump/request', - 'Cookie' => 'Catalyst=Cool; Cool=Catalyst', - ); - + my $request = GET( 'http://localhost/dump/request', + 'Cookie' => 'Catalyst=Cool; Cool=Catalyst', ); + ok( my $response = request($request), 'Request' ); ok( $response->is_success, 'Response Successful 2xx' ); is( $response->content_type, 'text/plain', 'Response Content-Type' ); - like( $response->content, qr/^bless\( .* 'Catalyst::Request' \)$/s, 'Content is a serialized Catalyst::Request' ); + like( $response->content, qr/'Catalyst::Request'/, + 'Content is a serialized Catalyst::Request' ); ok( eval '$creq = ' . $response->content, 'Unserialize Catalyst::Request' ); isa_ok( $creq, 'Catalyst::Request' ); isa_ok( $creq->cookies->{Catalyst}, 'CGI::Cookie', 'Cookie Catalyst' ); is( $creq->cookies->{Catalyst}->name, 'Catalyst', 'Cookie Catalyst name' ); is( $creq->cookies->{Catalyst}->value, 'Cool', 'Cookie Catalyst value' ); isa_ok( $creq->cookies->{Cool}, 'CGI::Cookie', 'Cookie Cool' ); - is( $creq->cookies->{Cool}->name, 'Cool', 'Cookie Cool name' ); + is( $creq->cookies->{Cool}->name, 'Cool', 'Cookie Cool name' ); is( $creq->cookies->{Cool}->value, 'Catalyst', 'Cookie Cool value' ); - - my $cookies = { + my $cookies = { Catalyst => $creq->cookies->{Catalyst}, Cool => $creq->cookies->{Cool} };