* add extra test to ensure restoring fails if required argument isn't provided

[gitmo/MooseX-Storage.git] / t / 010_basic_json.t

diff --git a/t/010_basic_json.t b/t/010_basic_json.t
index a410b13..db190fc 100644 (file)
--- a/t/010_basic_json.t
+++ b/t/010_basic_json.t
@@ -5,9 +5,11 @@ use warnings;
 
 use Test::More;
 
-BEGIN {
+BEGIN {        
     eval "use Test::JSON";
-    plan skip_all => "Test::JSON is required for this test" if $@;        
+    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');
 }
@@ -43,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'
     );
+
 }
 
 {