| Index: trunk/src/third_party/JSON/JSON-2.59/t/15_prefix.t | 
| =================================================================== | 
| --- trunk/src/third_party/JSON/JSON-2.59/t/15_prefix.t	(revision 205060) | 
| +++ trunk/src/third_party/JSON/JSON-2.59/t/15_prefix.t	(working copy) | 
| @@ -1,16 +0,0 @@ | 
| -# 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"; | 
| - | 
|  |