TestApp::Controller::Root->config(namespace => '');
}
-
+
{
package TestApp;
$INC{'TestApp.pm'} = __FILE__;
-
+
use Catalyst;
use TestApp::Exception;
__PACKAGE__->setup;
}
-
-
+
+
use Catalyst::Test 'TestApp';
{
is ($res->status_line, "200 OK");
is ($res->content, '<h1>OK</h1>');
}
-
+
{
my $res = request('/%E2%C3%83%C6%92%C3%8');
is ($res->content, 'Bad unicode data');
}
done_testing;
+
+#TestApp->to_app;