X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=t%2Funicode-exception-bug.t;h=f25836f95eb5a2ccc25b12303264f528855368d6;hp=14031b04d3367b1663ca61e52bf116d035ec7ba1;hb=53c7cc10e26c965f7502936609c5d1e6a35dc819;hpb=058e4074653139386299c58678cd852d10060056 diff --git a/t/unicode-exception-bug.t b/t/unicode-exception-bug.t index 14031b0..f25836f 100644 --- a/t/unicode-exception-bug.t +++ b/t/unicode-exception-bug.t @@ -40,11 +40,11 @@ BEGIN { TestApp::Controller::Root->config(namespace => ''); } - + { package TestApp; $INC{'TestApp.pm'} = __FILE__; - + use Catalyst; use TestApp::Exception; @@ -56,8 +56,8 @@ BEGIN { __PACKAGE__->setup; } - - + + use Catalyst::Test 'TestApp'; { @@ -65,7 +65,7 @@ use Catalyst::Test 'TestApp'; is ($res->status_line, "200 OK"); is ($res->content, '

OK

'); } - + { my $res = request('/%E2%C3%83%C6%92%C3%8'); is ($res->content, 'Bad unicode data');