X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Faggregate%2Flive_engine_response_print.t;h=96fc5f658d9b1f753416f2932ba1cfe0bc9a189a;hb=3662b13ee87e5dc4f2929b6c6f25bf9aa6565c86;hp=ad00ea3711d55125b53cfa4c9d772d8fbac5056d;hpb=9c8b81a2bc9a9007be8a6bcb19b0c74a21c39951;p=catagits%2FCatalyst-Runtime.git diff --git a/t/aggregate/live_engine_response_print.t b/t/aggregate/live_engine_response_print.t index ad00ea3..96fc5f6 100644 --- a/t/aggregate/live_engine_response_print.t +++ b/t/aggregate/live_engine_response_print.t @@ -1,5 +1,3 @@ -#!perl - use strict; use warnings; @@ -12,13 +10,13 @@ use Catalyst::Test 'TestApp'; my $expected = { one => "foo", two => "foobar", - three => "foo,bar,baz", + three => "foo,bar,baz:", }; for my $action ( sort keys %{$expected} ) { ok( my $response = request('http://localhost/engine/response/print/' . $action ), 'Request' ); ok( $response->is_success, "Response $action successful 2xx" ); - + is( $response->content, $expected->{$action}, "Content $action OK" ); }