diff options
Diffstat (limited to 't/15_prefix.t')
| -rw-r--r-- | t/15_prefix.t | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/t/15_prefix.t b/t/15_prefix.t new file mode 100644 index 0000000..3071be2 --- /dev/null +++ b/t/15_prefix.t @@ -0,0 +1,16 @@ +# copied over from JSON::XS and modified to use JSON + +BEGIN { $| = 1; print "1..4\n"; } +BEGIN { $ENV{PERL_JSON_BACKEND} = "JSON::backportPP"; } + +use JSON; + +my $xs = JSON->new->allow_nonref; + +eval { $xs->decode ("[] ") }; +print $@ ? "not " : "", "ok 1\n"; +eval { $xs->decode ("[] x") }; +print $@ ? "" : "not ", "ok 2\n"; +print 2 == ($xs->decode_prefix ("[][]"))[1] ? "" : "not ", "ok 3\n"; +print 3 == ($xs->decode_prefix ("[1] t"))[1] ? "" : "not ", "ok 4\n"; + |