summaryrefslogtreecommitdiffstats
path: root/chromium/third_party/JSON/JSON-2.59/t/e14_decode_prefix.t
diff options
context:
space:
mode:
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.t28
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/;
-