X-Git-Url: http://erislabs.net/gitweb/?p=liburi-template-perl.git;a=blobdiff_plain;f=t%2F12-suite.t;h=c95931e8159b46ec2b0b87d73a2f283668daf6cf;hp=83f0e995780a5ae8dfd5d2f17cc1f6d6f4e95a0a;hb=83c3737484d89a57cfd230d6a4039a269e212035;hpb=0bf9e38bd59ec2d30d98cdd5b1ff6659bc776761 diff --git a/t/12-suite.t b/t/12-suite.t index 83f0e99..c95931e 100644 --- a/t/12-suite.t +++ b/t/12-suite.t @@ -14,18 +14,19 @@ my @files = glob( 't/data/*.json' ); for my $file ( @files ) { open( my $json, $file ); - my $suite = JSON::jsonToObj( do { local $/; <$json> } ); + my $data = do { local $/; <$json> }; close( $json ); + eval { JSON->VERSION( 2 ) }; + my $suite = $@ ? JSON::jsonToObj( $data ) : JSON::from_json( $data ); my %variables = %{ $suite->{ variables } }; my $count = 0; for my $test ( @{ $suite->{ tests } } ) { my $template = URI::Template->new( $test->{ template } ); - my $result = $template->process( %variables ); + my $result = $template->process( %variables ); $count++; is( $result, $test->{ expected }, "${file}#${count}" ); } } -