adding utf8 redirection test

[catagits/Test-WWW-Mechanize-Catalyst.git] / t / lib / Catty / Controller / Root.pm

diff --git a/t/lib/Catty/Controller/Root.pm b/t/lib/Catty/Controller/Root.pm
index 4d74605..c35798b 100644 (file)
--- a/t/lib/Catty/Controller/Root.pm
+++ b/t/lib/Catty/Controller/Root.pm
@@ -2,7 +2,6 @@ package Catty::Controller::Root;
 
 use strict;
 use warnings;
-
 use base qw/ Catalyst::Controller /;
 
 use Cwd;
@@ -144,5 +143,12 @@ sub bad_content_encoding :Global {
     $c->res->body('foo');
 }
 
+sub redirect_to_utf8_upgraded_string {
+    my($self, $c) = @_;
+    my $where = $c->uri_for('hello')->stringify;
+    utf8::upgrade($where);
+    $c->res->redirect($where);
+}
+
 1;