cpan/JSON-PP/t/gh_29_trailing_false_value.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14

use strict;
use warnings;
use Test::More;

BEGIN { plan tests => 1 };

BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }

use JSON::PP;

{ #SKIP_UNLESS_PP 2.90,1
    eval { JSON::PP->new->decode('{}0') };
    ok $@;
}