[Catalyst-commits] r11417 - in trunk/Catalyst-Plugin-Server: . t t/lib/TestApp/Controller/RPC

[kane at dev.catalyst.perl.org]

Author: kane
Date: 2009-09-25 11:46:48 +0000 (Fri, 25 Sep 2009)
New Revision: 11417

Modified:
   trunk/Catalyst-Plugin-Server/
   trunk/Catalyst-Plugin-Server/t/002_live.t
   trunk/Catalyst-Plugin-Server/t/lib/TestApp/Controller/RPC/Functions.pm
Log:
 r8443 at myriad-wifi:  kane | 2009-09-25 13:22:28 +0200
 * add unicode tests



Property changes on: trunk/Catalyst-Plugin-Server
___________________________________________________________________
Name: svk:merge
   - 8a9521aa-ff93-41d6-9f87-b05cafcdab40:/local/cat/Catalyst-Plugin-Server:8442
e5869dfe-760d-0410-9433-71cdb9993b4e:/local/Catalyst-Plugin-Server:7854
   + 8a9521aa-ff93-41d6-9f87-b05cafcdab40:/local/cat/Catalyst-Plugin-Server:8443
e5869dfe-760d-0410-9433-71cdb9993b4e:/local/Catalyst-Plugin-Server:7854

Modified: trunk/Catalyst-Plugin-Server/t/002_live.t
===================================================================
--- trunk/Catalyst-Plugin-Server/t/002_live.t	2009-09-25 11:46:43 UTC (rev 11416)
+++ trunk/Catalyst-Plugin-Server/t/002_live.t	2009-09-25 11:46:48 UTC (rev 11417)
@@ -1,4 +1,4 @@
-#!perl
+#!perl
 
 use strict;
 use warnings;
@@ -26,9 +26,11 @@
 my %RpcRv       = ( auto => 1, begin => 1, end => 1 );
 my $EntryPoint  = 'http://localhost/rpc';
 my $Prefix      = 'rpc.functions.';
+
 my %Methods     = (
     # method name       # rv
     'echo.regex'        => 'echo_regex',
+    'echo_unicode'      => do { utf8::decode( my $x = '私はクリスです' ); $x },
     'echo_plain'        => 'echo_plain', 
     'echo.path'         => 'echo_path',
 

Modified: trunk/Catalyst-Plugin-Server/t/lib/TestApp/Controller/RPC/Functions.pm
===================================================================
--- trunk/Catalyst-Plugin-Server/t/lib/TestApp/Controller/RPC/Functions.pm	2009-09-25 11:46:43 UTC (rev 11416)
+++ trunk/Catalyst-Plugin-Server/t/lib/TestApp/Controller/RPC/Functions.pm	2009-09-25 11:46:48 UTC (rev 11417)
@@ -1,4 +1,4 @@
-package TestApp::Controller::RPC::Functions;
+package TestApp::Controller::RPC::Functions;
 
 use strict;
 use base 'Catalyst::Controller';
@@ -33,8 +33,11 @@
     $c->stash->{'function'} = 'echo_plain_stash';
 }
 
+sub echo_unicode: XMLRPCLocal {
+    my ($self, $c, %args) = @_;
+    $c->stash->{'xmlrpc'} = '私はクリスです'
+}
 
-
 sub echo_path : XMLRPCPath('/rpc/functions/echo/path') {
     my ($self, $c, %args) = @_;
     $c->stash->{'xmlrpc'} = 'echo_path';