diff options
Diffstat (limited to 'chromium/third_party/JSON/JSON-2.59/t/e14_decode_prefix.t')
-rw-r--r-- | chromium/third_party/JSON/JSON-2.59/t/e14_decode_prefix.t | 28 |
1 files changed, 0 insertions, 28 deletions
diff --git a/chromium/third_party/JSON/JSON-2.59/t/e14_decode_prefix.t b/chromium/third_party/JSON/JSON-2.59/t/e14_decode_prefix.t deleted file mode 100644 index 4ba39abf28b..00000000000 --- a/chromium/third_party/JSON/JSON-2.59/t/e14_decode_prefix.t +++ /dev/null @@ -1,28 +0,0 @@ - -use strict; -use Test::More tests => 8; - -BEGIN { - $ENV{ PERL_JSON_BACKEND } = "JSON::backportPP"; -} - -use JSON; - -my $json = JSON->new; - -my $complete_text = qq/{"foo":"bar"}/; -my $garbaged_text = qq/{"foo":"bar"}\n/; -my $garbaged_text2 = qq/{"foo":"bar"}\n\n/; -my $garbaged_text3 = qq/{"foo":"bar"}\n----/; - -is( ( $json->decode_prefix( $complete_text ) ) [1], 13 ); -is( ( $json->decode_prefix( $garbaged_text ) ) [1], 13 ); -is( ( $json->decode_prefix( $garbaged_text2 ) ) [1], 13 ); -is( ( $json->decode_prefix( $garbaged_text3 ) ) [1], 13 ); - -eval { $json->decode( "\n" ) }; ok( $@ =~ /malformed JSON/ ); -eval { $json->decode('null') }; ok $@ =~ /allow_nonref/; - -eval { $json->decode_prefix( "\n" ) }; ok( $@ =~ /malformed JSON/ ); -eval { $json->decode_prefix('null') }; ok $@ =~ /allow_nonref/; - |