[Catalyst-commits] r7442 - Catalyst-Runtime/5.70/trunk/t

[miyagawa at dev.catalyst.perl.org]

Author: miyagawa
Date: 2008-02-17 11:51:40 +0000 (Sun, 17 Feb 2008)
New Revision: 7442

Modified:
   Catalyst-Runtime/5.70/trunk/t/unit_core_uri_for_multibytechar.t
Log:
reverted r7440 since what Daisuke meant to test was utf-8 bytes, not
unicode strings. "use utf8" will turn all literals to Unicode string,
which is not what we want to test against uri_for here.



Modified: Catalyst-Runtime/5.70/trunk/t/unit_core_uri_for_multibytechar.t
===================================================================
--- Catalyst-Runtime/5.70/trunk/t/unit_core_uri_for_multibytechar.t	2008-02-15 07:52:39 UTC (rev 7441)
+++ Catalyst-Runtime/5.70/trunk/t/unit_core_uri_for_multibytechar.t	2008-02-17 11:51:40 UTC (rev 7442)
@@ -5,9 +5,6 @@
 use File::Spec;
 use lib File::Spec->catfile($FindBin::Bin, 'lib');
 
-use utf8; # for literal below
-use Encode; # URI.pm is braindead wrt unicode-flagged characters
-
 use Test::More tests => 5;
 
 use_ok('TestApp');
@@ -27,7 +24,7 @@
 my $uri_with_multibyte = URI->new($base);
 $uri_with_multibyte->path('/');
 $uri_with_multibyte->query_form(
-    name => Encode::encode('utf8', '村瀬大輔'),
+    name => '村瀬大輔',
 );
 
 # multibyte with utf8 bytes