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