fix prereq list in README - it was ancient!

[gitmo/MooseX-Storage.git] / t / 011_basic_json_w_utf8.t

diff --git a/t/011_basic_json_w_utf8.t b/t/011_basic_json_w_utf8.t
index a56dde0..a5bd3d8 100644 (file)
--- a/t/011_basic_json_w_utf8.t
+++ b/t/011_basic_json_w_utf8.t
@@ -1,5 +1,3 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 
@@ -11,13 +9,13 @@ use Test::Requires {
 };
 
 BEGIN {
-    # NOTE: 
-    # this is because JSON::XS is 
+    # NOTE:
+    # this is because JSON::XS (and Cpanel::JSON::XS) is
     # the only one which really gets
     # utf8 correct
-    # - SL 
+    # - SL
     BEGIN {
-        $ENV{JSON_ANY_ORDER}  = qw(XS);
+        $ENV{JSON_ANY_ORDER}  = 'XS CPANEL';
         $ENV{JSON_ANY_CONFIG} = "utf8=0,canonical=1";
     }
 
@@ -31,7 +29,7 @@ BEGIN {
     use MooseX::Storage;
 
     with Storage( 'format' => 'JSON' );
-    
+
     has 'utf8_string' => (
         is      => 'rw',
         isa     => 'Str',
@@ -51,14 +49,14 @@ BEGIN {
 
     my $foo2 = Foo->thaw($json);
     isa_ok( $foo, 'Foo' );
-    
-    is($foo2->utf8_string, 
-      "ネットスーパー (Internet Shopping)", 
+
+    is($foo2->utf8_string,
+      "ネットスーパー (Internet Shopping)",
       '... got the string we expected');
-      
+
     is($foo2->freeze,
        '{"__CLASS__":"Foo","utf8_string":"ネットスーパー (Internet Shopping)"}',
-       '... got the right JSON');          
+       '... got the right JSON');
 }
 
 {
@@ -68,15 +66,15 @@ BEGIN {
         $test_string = "ネットスーパー (Internet Shopping)";
         no utf8;
     }
-    
+
     ok(utf8::is_utf8($test_string), '... got a utf8 string');
-    ok(utf8::valid($test_string), '... got a valid utf8 string');    
-    
+    ok(utf8::valid($test_string), '... got a valid utf8 string');
+
     Encode::_utf8_off($test_string);
-    
+
     ok(!utf8::is_utf8($test_string), '... no longer is utf8 string');
-    ok(utf8::valid($test_string), '... got a valid utf8 string');    
-    
+    ok(utf8::valid($test_string), '... got a valid utf8 string');
+
     my $foo = Foo->new(
         utf8_string => $test_string
     );
@@ -86,11 +84,11 @@ BEGIN {
     ok(utf8::valid($foo->utf8_string), '... but is a valid utf8 string');
 
     my $json = $foo->freeze;
-    
+
     ok(utf8::is_utf8($json), '... is a utf8 string now');
-    ok(utf8::valid($json), '... got a valid utf8 string');    
+    ok(utf8::valid($json), '... got a valid utf8 string');
 
     is($json,
        '{"__CLASS__":"Foo","utf8_string":"ネットスーパー (Internet Shopping)"}',
-       '... got the right JSON');    
+       '... got the right JSON');
 }