1 2use Test::More; 3use strict; 4use warnings; 5BEGIN { plan tests => 2 }; 6BEGIN { $ENV{PERL_JSON_BACKEND} = 0; } 7use JSON::PP; 8######################### 9 10my $json = JSON::PP->new->allow_nonref; 11 12my $js = '/'; 13 14is($json->encode($js), '"/"'); 15is($json->escape_slash->encode($js), '"\/"'); 16 17