Index: trunk/src/third_party/JSON/JSON-2.59/t/e16_incr_parse_fixed.t |
=================================================================== |
--- trunk/src/third_party/JSON/JSON-2.59/t/e16_incr_parse_fixed.t (revision 205060) |
+++ trunk/src/third_party/JSON/JSON-2.59/t/e16_incr_parse_fixed.t (working copy) |
@@ -1,29 +0,0 @@ |
-#!/usr/bin/perl |
- |
-BEGIN { |
- $ENV{ PERL_JSON_BACKEND } = $ARGV[0] || 'JSON::backportPP'; |
-} |
- |
-use strict; |
-use Test::More tests => 4; |
- |
-use JSON; |
- |
-my $json = JSON->new->allow_nonref(); |
- |
-my @vs = $json->incr_parse('"a\"bc'); |
- |
-ok( not scalar(@vs) ); |
- |
-@vs = $json->incr_parse('"'); |
- |
-is( $vs[0], "a\"bc" ); |
- |
- |
-$json = JSON->new; |
- |
-@vs = $json->incr_parse('"a\"bc'); |
-ok( not scalar(@vs) ); |
-@vs = eval { $json->incr_parse('"') }; |
-ok($@ =~ qr/JSON text must be an object or array/); |
- |