Changeset 12592 for lang/perl/Sledge-Plugin-JSON-XS

Timestamp:

05/28/08 15:25:46 (5 years ago)

Author:

tokuhirom

Message:

fixed utf8 flag related bug.

Location:

lang/perl/Sledge-Plugin-JSON-XS/trunk

Files:

• lib/Sledge/Plugin/JSON/XS.pm (modified) (2 diffs)
• t/01_basic.t (modified) (2 diffs)

lang/perl/Sledge-Plugin-JSON-XS/trunk/lib/Sledge/Plugin/JSON/XS.pm

@@ -4 +4 @@
 use 5.00800;
 use JSON::XS;
+use Encode ();
 
 our $VERSION = '0.01';
@@ -50 +51 @@
 sub _add_callback {
     my ($self, $cb, $json) = @_;
+
+    if (Encode::is_utf8($cb)) {
+        $cb = Encode::encode('utf8', $cb);
+    }
 
     my $output;

lang/perl/Sledge-Plugin-JSON-XS/trunk/t/01_basic.t

@@ -1 +1 @@
 use strict;
 use warnings;
-use Test::More tests => 10;
+use Test::More tests => 12;
+use Encode;
 
 # -------------------------------------------------------------------------
@@ -146 +147 @@
 );
 
+test(
+    'callback_flagged_utf8',
+    sub {
+        $REQ_HASH = { callback => decode_utf8('hoge') };
+    },
+    sub {
+        is_ex $page->r->{'print'}, 'hoge({"foo":"bar"});';
+        ok( (!Encode::is_utf8($page->r->{'print'})), 'not flagged');
+    },
+);
+