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=cdcbd30821410a6d3956842d4d8001565b5b58dc;hb=eebd1520470f767fdefdc03c1fe05427e5f182f9;hpb=33b21eec9758f7416ced7908b2aa56b2573444c2 diff --git a/t/unicode-exception-bug.t b/t/unicode-exception-bug.t index cdcbd30..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,10 +65,12 @@ 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'); } done_testing; + +#TestApp->to_app;