X-Git-Url: http://erislabs.net/gitweb/?p=liburi-template-perl.git;a=blobdiff_plain;f=t%2F12-suite.t;h=3a763be14795c3b2fbd9cc6e1633cee8c83a8f67;hp=cbe2869c4b9aef0114be5cd63149731369ead070;hb=39817159a196a6acb7ce58266633ad6ea8490864;hpb=81c7f1b85cb98976fe96ad4f8a11037b2cb3de35

diff --git a/t/12-suite.t b/t/12-suite.t
index cbe2869..3a763be 100644
--- a/t/12-suite.t
+++ b/t/12-suite.t
@@ -7,6 +7,10 @@ use Scalar::Util ();
 BEGIN {
     eval "use JSON ();";
     plan skip_all => "JSON required" if $@;
+
+    eval { JSON->VERSION( 2 ) };
+    plan skip_all => "JSON version 2 of greater required" if $@;
+
     plan( 'no_plan' );
     use_ok( 'URI::Template' );
 }
@@ -23,8 +27,7 @@ for my $file ( @files ) {
     my $data = do { local $/; <$json> };
     close( $json );
 
-    eval { JSON->VERSION( 2 ) };
-    my $suite = $@ ? JSON::jsonToObj( $data ) : JSON::from_json( $data );
+    my $suite = JSON->new->utf8( 1 )->decode( $data );
 
     for my $name ( sort keys %$suite ) {
         my $info  = $suite->{ $name };