8 plan skip_all => "JSON required" if $@;
10 use_ok( 'URI::Template' );
13 my @files = glob( 't/data/*.json' );
15 for my $file ( @files ) {
16 open( my $json, $file );
17 my $suite = JSON::jsonToObj( do { local $/; <$json> } );
20 my %variables = %{ $suite->{ variables } };
23 for my $test ( @{ $suite->{ tests } } ) {
24 my $template = URI::Template->new( $test->{ template } );
25 my $result = $template->process( %variables );
27 is( $result, $test->{ expected }, "${file}#${count}" );