summaryrefslogtreecommitdiffstats
path: root/chromium/third_party/JSON/JSON-2.59/t/xe19_xs_and_suportbypp.t
diff options
context:
space:
mode:
Diffstat (limited to 'chromium/third_party/JSON/JSON-2.59/t/xe19_xs_and_suportbypp.t')
-rw-r--r--chromium/third_party/JSON/JSON-2.59/t/xe19_xs_and_suportbypp.t33
1 files changed, 0 insertions, 33 deletions
diff --git a/chromium/third_party/JSON/JSON-2.59/t/xe19_xs_and_suportbypp.t b/chromium/third_party/JSON/JSON-2.59/t/xe19_xs_and_suportbypp.t
deleted file mode 100644
index 1c9e2f57dc3..00000000000
--- a/chromium/third_party/JSON/JSON-2.59/t/xe19_xs_and_suportbypp.t
+++ /dev/null
@@ -1,33 +0,0 @@
-
-# https://rt.cpan.org/Public/Bug/Display.html?id=52847
-
-use strict;
-use Test::More;
-
-BEGIN { plan tests => 2 };
-BEGIN { $ENV{PERL_JSON_BACKEND} = 1; }
-
-use JSON -support_by_pp;
-
-SKIP: {
- skip "can't use JSON::XS.", 2, unless( JSON->backend->is_xs );
-
- my $json = JSON->new->allow_barekey;
-
- for (1..2) {
- is_deeply( test($json, q!{foo:"foo"}! ), {foo=>'foo'} );
- JSON->new->allow_singlequote(0);
- }
-}
-
-
-sub test {
- my ($coder, $str) = @_;
- my $rv;
- return $rv if eval { $rv = $coder->decode($str); 1 };
- chomp( my $e = $@ );
- return "died with \"$e\"";
-};
-
-
-