X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F010_basic_json.t;h=db190fc34bea90357e11811219b0e9b2e5b3e703;hb=5b7ea1fd5ab5a918f17cc1bc0450ddf22d7e37c6;hp=30b3327ee45559428d3803afc660c36e7181aa37;hpb=a7f358fb48a26700a3683db2a10a12660cf4a189;p=gitmo%2FMooseX-Storage.git

diff --git a/t/010_basic_json.t b/t/010_basic_json.t
index 30b3327..db190fc 100644
--- a/t/010_basic_json.t
+++ b/t/010_basic_json.t
@@ -5,15 +5,11 @@ use warnings;
 
 use Test::More;
 
-BEGIN {
+BEGIN {        
     eval "use Test::JSON";
-    plan skip_all => "Test::JSON is required for this test" if $@; 
-    # NOTE: 
-    # this idiocy is cause Test::JSON 
-    # uses JSON.pm and that can be 
-    # very picky about the JSON output
-    # - SL 
-    BEGIN { $ENV{JSON_ANY_ORDER} = qw(JSON) }           
+    plan skip_all => "Test::JSON is required for this test" if $@;            
+    eval "use JSON::Any";
+    plan skip_all => "JSON::Any is required for this test" if $@;    
     plan tests => 12;
     use_ok('MooseX::Storage');
 }
@@ -49,11 +45,13 @@ BEGIN {
 
     is_valid_json($json, '.. this is valid JSON');
 
+
     is_json(
         $json,
 '{"array":[1,2,3,4,5,6,7,8,9,10],"hash":{"6":null,"3":null,"7":null,"9":null,"2":null,"8":null,"1":null,"4":null,"10":null,"5":null},"float":10.5,"object":{"number":2,"__CLASS__":"Foo"},"number":10,"__CLASS__":"Foo","string":"foo"}',
         '... got the right JSON'
     );
+
 }
 
 {