diff options
Diffstat (limited to 'chromium/third_party/JSON/JSON-2.59/t/21_evans_bugrep.t')
-rw-r--r-- | chromium/third_party/JSON/JSON-2.59/t/21_evans_bugrep.t | 50 |
1 files changed, 0 insertions, 50 deletions
diff --git a/chromium/third_party/JSON/JSON-2.59/t/21_evans_bugrep.t b/chromium/third_party/JSON/JSON-2.59/t/21_evans_bugrep.t deleted file mode 100644 index 2e6200da67e..00000000000 --- a/chromium/third_party/JSON/JSON-2.59/t/21_evans_bugrep.t +++ /dev/null @@ -1,50 +0,0 @@ -use strict; -use Test::More; - -BEGIN { plan tests => 6 }; - -BEGIN { $ENV{PERL_JSON_BACKEND} = "JSON::backportPP"; } - -BEGIN { - use lib qw(t); - use _unicode_handling; -} - - -use JSON; - -print JSON->backend, "\t", JSON->backend->VERSION, "\n"; - -my $data = ["\x{3042}\x{3044}\x{3046}\x{3048}\x{304a}", - "\x{304b}\x{304d}\x{304f}\x{3051}\x{3053}"]; - -my $j = new JSON; -my $js = $j->encode($data); -$j = undef; - -my @parts = (substr($js, 0, int(length($js) / 2)), - substr($js, int(length($js) / 2))); -$j = JSON->new; -my $object = $j->incr_parse($parts[0]); - -ok( !defined $object ); - -eval { - $j->incr_text; -}; - -like( $@, qr/incr_text can not be called when the incremental parser already started parsing/ ); - -$object = $j->incr_parse($parts[1]); - -ok( defined $object ); - -is( $object->[0], $data->[0] ); -is( $object->[1], $data->[1] ); - -eval { - $j->incr_text; -}; - -ok( !$@ ); - |