cpan/JSON-PP - Update to version 4.13, more features faster parallel tests

22 files changed, 80 insertions, 9 deletions

diff --git a/MANIFEST b/MANIFEST
index 618694d914..5a329b6ee5 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -1291,7 +1291,23 @@ cpan/JSON-PP/t/020_unknown.t
 cpan/JSON-PP/t/021_evans.t
 cpan/JSON-PP/t/022_comment_at_eof.t
 cpan/JSON-PP/t/052_object.t
-cpan/JSON-PP/t/099_binary.t
+cpan/JSON-PP/t/099_binary.pl
+cpan/JSON-PP/t/099_binary00.t
+cpan/JSON-PP/t/099_binary01.t
+cpan/JSON-PP/t/099_binary02.t
+cpan/JSON-PP/t/099_binary03.t
+cpan/JSON-PP/t/099_binary04.t
+cpan/JSON-PP/t/099_binary05.t
+cpan/JSON-PP/t/099_binary06.t
+cpan/JSON-PP/t/099_binary07.t
+cpan/JSON-PP/t/099_binary08.t
+cpan/JSON-PP/t/099_binary09.t
+cpan/JSON-PP/t/099_binary10.t
+cpan/JSON-PP/t/099_binary11.t
+cpan/JSON-PP/t/099_binary12.t
+cpan/JSON-PP/t/099_binary13.t
+cpan/JSON-PP/t/099_binary14.t
+cpan/JSON-PP/t/099_binary15.t
 cpan/JSON-PP/t/104_sortby.t
 cpan/JSON-PP/t/105_esc_slash.t
 cpan/JSON-PP/t/106_allow_barekey.t
diff --git a/META.json b/META.json
index 0ab2841d35..b55d172b4d 100644
--- a/META.json
+++ b/META.json
@@ -120,5 +120,5 @@
       }
    },
    "version" : "5.037008",
-   "x_serialization_backend" : "JSON::PP version 4.12"
+   "x_serialization_backend" : "JSON::PP version 4.13"
 }
diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl
index ffc3d90ec2..1f89b7fd51 100755
--- a/Porting/Maintainers.pl
+++ b/Porting/Maintainers.pl
@@ -683,7 +683,7 @@ use File::Glob qw(:case);
     },
 
     'JSON::PP' => {
-        'DISTRIBUTION' => 'ISHIGAKI/JSON-PP-4.12.tar.gz',
+        'DISTRIBUTION' => 'ISHIGAKI/JSON-PP-4.13.tar.gz',
         'FILES'        => q[cpan/JSON-PP],
     },
 
diff --git a/cpan/JSON-PP/lib/JSON/PP.pm b/cpan/JSON-PP/lib/JSON/PP.pm
index 732c5339d1..c2195d128b 100644
--- a/cpan/JSON-PP/lib/JSON/PP.pm
+++ b/cpan/JSON-PP/lib/JSON/PP.pm
@@ -14,7 +14,7 @@ use JSON::PP::Boolean;
 use Carp ();
 #use Devel::Peek;
 
-$JSON::PP::VERSION = '4.12';
+$JSON::PP::VERSION = '4.13';
 
 @JSON::PP::EXPORT = qw(encode_json decode_json from_json to_json);
 
diff --git a/cpan/JSON-PP/lib/JSON/PP/Boolean.pm b/cpan/JSON-PP/lib/JSON/PP/Boolean.pm
index 66f7e516fb..afcae4c419 100644
--- a/cpan/JSON-PP/lib/JSON/PP/Boolean.pm
+++ b/cpan/JSON-PP/lib/JSON/PP/Boolean.pm
@@ -11,7 +11,7 @@ overload::import('overload',
     fallback => 1,
 );
 
-$JSON::PP::Boolean::VERSION = '4.12';
+$JSON::PP::Boolean::VERSION = '4.13';
 
 1;
 
diff --git a/cpan/JSON-PP/t/099_binary.t b/cpan/JSON-PP/t/099_binary.pl
index a1bce5d2f9..d0747da6ab 100644
--- a/cpan/JSON-PP/t/099_binary.t
+++ b/cpan/JSON-PP/t/099_binary.pl
@@ -3,7 +3,15 @@
 use strict;
 use warnings;
 use Test::More;
-BEGIN { plan tests => 24576 };
+BEGIN {
+    if (defined(my $n= $ENV{JSONPP_CHUNK})) {
+        $ENV{JSONPP_FROM}= 1 + $n * 48;
+        $ENV{JSONPP_TO}= (1 + $n) * 48;
+    }
+    $ENV{JSONPP_FROM} = 1 unless defined $ENV{JSONPP_FROM};
+    $ENV{JSONPP_TO}   = 768 unless defined $ENV{JSONPP_TO};
+}
+BEGIN { plan tests => 32 * ($ENV{JSONPP_TO} - $ENV{JSONPP_FROM} + 1) };
 
 BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
 
@@ -34,12 +42,11 @@ sub test($) {
    ok ($_[0] eq JSON::PP->new->shrink->decode ($js)->[0], " - 7");
 }
 
-srand 0; # doesn't help too much, but its at least more deterministic
+srand $ENV{JSONPP_FROM}; # doesn't help too much, but its at least more deterministic
 
-for (1..768) {
+for ($ENV{JSONPP_FROM} .. $ENV{JSONPP_TO}) {
    test join "", map chr ($_ & 255), 0..$_;
    test join "", map chr rand 255, 0..$_;
    test join "", map chr ($_ * 97 & ~0x4000), 0..$_;
    test join "", map chr (rand (2**20) & ~0x800), 0..$_;
 }
-
diff --git a/cpan/JSON-PP/t/099_binary00.t b/cpan/JSON-PP/t/099_binary00.t
new file mode 100644
index 0000000000..9fa1c26517
--- /dev/null
+++ b/cpan/JSON-PP/t/099_binary00.t
@@ -0,0 +1,3 @@
+$0=~/binary(\d\d)/ or die "Could not detect chunk from '$0'";
+$ENV{JSONPP_CHUNK} = 0+$1;
+do "./t/099_binary.pl";
diff --git a/cpan/JSON-PP/t/099_binary01.t b/cpan/JSON-PP/t/099_binary01.t
new file mode 100644
index 0000000000..9fa1c26517
--- /dev/null
+++ b/cpan/JSON-PP/t/099_binary01.t
@@ -0,0 +1,3 @@
+$0=~/binary(\d\d)/ or die "Could not detect chunk from '$0'";
+$ENV{JSONPP_CHUNK} = 0+$1;
+do "./t/099_binary.pl";
diff --git a/cpan/JSON-PP/t/099_binary02.t b/cpan/JSON-PP/t/099_binary02.t
new file mode 100644
index 0000000000..9fa1c26517
--- /dev/null
+++ b/cpan/JSON-PP/t/099_binary02.t
@@ -0,0 +1,3 @@
+$0=~/binary(\d\d)/ or die "Could not detect chunk from '$0'";
+$ENV{JSONPP_CHUNK} = 0+$1;
+do "./t/099_binary.pl";
diff --git a/cpan/JSON-PP/t/099_binary03.t b/cpan/JSON-PP/t/099_binary03.t
new file mode 100644
index 0000000000..9fa1c26517
--- /dev/null
+++ b/cpan/JSON-PP/t/099_binary03.t
@@ -0,0 +1,3 @@
+$0=~/binary(\d\d)/ or die "Could not detect chunk from '$0'";
+$ENV{JSONPP_CHUNK} = 0+$1;
+do "./t/099_binary.pl";
diff --git a/cpan/JSON-PP/t/099_binary04.t b/cpan/JSON-PP/t/099_binary04.t
new file mode 100644
index 0000000000..9fa1c26517
--- /dev/null
+++ b/cpan/JSON-PP/t/099_binary04.t
@@ -0,0 +1,3 @@
+$0=~/binary(\d\d)/ or die "Could not detect chunk from '$0'";
+$ENV{JSONPP_CHUNK} = 0+$1;
+do "./t/099_binary.pl";
diff --git a/cpan/JSON-PP/t/099_binary05.t b/cpan/JSON-PP/t/099_binary05.t
new file mode 100644
index 0000000000..9fa1c26517
--- /dev/null
+++ b/cpan/JSON-PP/t/099_binary05.t
@@ -0,0 +1,3 @@
+$0=~/binary(\d\d)/ or die "Could not detect chunk from '$0'";
+$ENV{JSONPP_CHUNK} = 0+$1;
+do "./t/099_binary.pl";
diff --git a/cpan/JSON-PP/t/099_binary06.t b/cpan/JSON-PP/t/099_binary06.t
new file mode 100644
index 0000000000..9fa1c26517
--- /dev/null
+++ b/cpan/JSON-PP/t/099_binary06.t
@@ -0,0 +1,3 @@
+$0=~/binary(\d\d)/ or die "Could not detect chunk from '$0'";
+$ENV{JSONPP_CHUNK} = 0+$1;
+do "./t/099_binary.pl";
diff --git a/cpan/JSON-PP/t/099_binary07.t b/cpan/JSON-PP/t/099_binary07.t
new file mode 100644
index 0000000000..9fa1c26517
--- /dev/null
+++ b/cpan/JSON-PP/t/099_binary07.t
@@ -0,0 +1,3 @@
+$0=~/binary(\d\d)/ or die "Could not detect chunk from '$0'";
+$ENV{JSONPP_CHUNK} = 0+$1;
+do "./t/099_binary.pl";
diff --git a/cpan/JSON-PP/t/099_binary08.t b/cpan/JSON-PP/t/099_binary08.t
new file mode 100644
index 0000000000..9fa1c26517
--- /dev/null
+++ b/cpan/JSON-PP/t/099_binary08.t
@@ -0,0 +1,3 @@
+$0=~/binary(\d\d)/ or die "Could not detect chunk from '$0'";
+$ENV{JSONPP_CHUNK} = 0+$1;
+do "./t/099_binary.pl";
diff --git a/cpan/JSON-PP/t/099_binary09.t b/cpan/JSON-PP/t/099_binary09.t
new file mode 100644
index 0000000000..9fa1c26517
--- /dev/null
+++ b/cpan/JSON-PP/t/099_binary09.t
@@ -0,0 +1,3 @@
+$0=~/binary(\d\d)/ or die "Could not detect chunk from '$0'";
+$ENV{JSONPP_CHUNK} = 0+$1;
+do "./t/099_binary.pl";
diff --git a/cpan/JSON-PP/t/099_binary10.t b/cpan/JSON-PP/t/099_binary10.t
new file mode 100644
index 0000000000..9fa1c26517
--- /dev/null
+++ b/cpan/JSON-PP/t/099_binary10.t
@@ -0,0 +1,3 @@
+$0=~/binary(\d\d)/ or die "Could not detect chunk from '$0'";
+$ENV{JSONPP_CHUNK} = 0+$1;
+do "./t/099_binary.pl";
diff --git a/cpan/JSON-PP/t/099_binary11.t b/cpan/JSON-PP/t/099_binary11.t
new file mode 100644
index 0000000000..9fa1c26517
--- /dev/null
+++ b/cpan/JSON-PP/t/099_binary11.t
@@ -0,0 +1,3 @@
+$0=~/binary(\d\d)/ or die "Could not detect chunk from '$0'";
+$ENV{JSONPP_CHUNK} = 0+$1;
+do "./t/099_binary.pl";
diff --git a/cpan/JSON-PP/t/099_binary12.t b/cpan/JSON-PP/t/099_binary12.t
new file mode 100644
index 0000000000..9fa1c26517
--- /dev/null
+++ b/cpan/JSON-PP/t/099_binary12.t
@@ -0,0 +1,3 @@
+$0=~/binary(\d\d)/ or die "Could not detect chunk from '$0'";
+$ENV{JSONPP_CHUNK} = 0+$1;
+do "./t/099_binary.pl";
diff --git a/cpan/JSON-PP/t/099_binary13.t b/cpan/JSON-PP/t/099_binary13.t
new file mode 100644
index 0000000000..9fa1c26517
--- /dev/null
+++ b/cpan/JSON-PP/t/099_binary13.t
@@ -0,0 +1,3 @@
+$0=~/binary(\d\d)/ or die "Could not detect chunk from '$0'";
+$ENV{JSONPP_CHUNK} = 0+$1;
+do "./t/099_binary.pl";
diff --git a/cpan/JSON-PP/t/099_binary14.t b/cpan/JSON-PP/t/099_binary14.t
new file mode 100644
index 0000000000..9fa1c26517
--- /dev/null
+++ b/cpan/JSON-PP/t/099_binary14.t
@@ -0,0 +1,3 @@
+$0=~/binary(\d\d)/ or die "Could not detect chunk from '$0'";
+$ENV{JSONPP_CHUNK} = 0+$1;
+do "./t/099_binary.pl";
diff --git a/cpan/JSON-PP/t/099_binary15.t b/cpan/JSON-PP/t/099_binary15.t
new file mode 100644
index 0000000000..9fa1c26517
--- /dev/null
+++ b/cpan/JSON-PP/t/099_binary15.t
@@ -0,0 +1,3 @@
+$0=~/binary(\d\d)/ or die "Could not detect chunk from '$0'";
+$ENV{JSONPP_CHUNK} = 0+$1;
+do "./t/099_binary.pl";