use strict;
use warnings;
-
use base qw/ Catalyst::Controller /;
use Cwd;
$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;
use strict;
use warnings;
use lib 'lib';
-use Test::More tests => 28;
+use Test::More tests => 29;
use lib 't/lib';
use Test::WWW::Mechanize::Catalyst 'Catty';
$m->get("$root/redirect_with_500");
is ($m->status, 500, "Redirect not followed on 500");
+
+$m->get_ok( "$root/redirect_to_utf8_upgraded_string",
+ "redirect using an upgraded utf8 string" );
+