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