Revert 205057 "Add JSON.pm to third_party"

trunk/src/third_party/JSON/JSON-2.59/t/06_pc_pretty.t

-#! perl
-
-# copied over from JSON::PC and modified to use JSON
-# copied over from JSON::XS and modified to use JSON
-
-use strict;
-use Test::More;
-BEGIN { plan tests => 9 };
-
-BEGIN { $ENV{PERL_JSON_BACKEND} = "JSON::backportPP"; }
-
-use JSON;
-
-my ($js,$obj,$json);
-my $pc = new JSON;
-
-$obj = {foo => "bar"};
-$js = $pc->encode($obj);
-is($js,q|{"foo":"bar"}|);
-
-$obj = [10, "hoge", {foo => "bar"}];
-$pc->pretty (1);
-$js = $pc->encode($obj);
-is($js,q|[
-   10,
-   "hoge",
-   {
-      "foo" : "bar"
-   }
-]
-|);
-
-$obj = { foo => [ {a=>"b"}, 0, 1, 2 ] };
-$pc->pretty(0);
-$js = $pc->encode($obj);
-is($js,q|{"foo":[{"a":"b"},0,1,2]}|);
-
-
-$obj = { foo => [ {a=>"b"}, 0, 1, 2 ] };
-$pc->pretty(1);
-$js = $pc->encode($obj);
-is($js,q|{
-   "foo" : [
-      {
-         "a" : "b"
-      },
-      0,
-      1,
-      2
-   ]
-}
-|);
-
-$obj = { foo => [ {a=>"b"}, 0, 1, 2 ] };
-$pc->pretty(0);
-$js = $pc->encode($obj);
-is($js,q|{"foo":[{"a":"b"},0,1,2]}|);
-
-
-$obj = {foo => "bar"};
-$pc->indent(3); # original -- $pc->indent(1);
-is($pc->encode($obj), qq|{\n   "foo":"bar"\n}\n|, "nospace");
-$pc->space_after(1);
-is($pc->encode($obj), qq|{\n   "foo": "bar"\n}\n|, "after");
-$pc->space_before(1);
-is($pc->encode($obj), qq|{\n   "foo" : "bar"\n}\n|, "both");
-$pc->space_after(0);
-is($pc->encode($obj), qq|{\n   "foo" :"bar"\n}\n|, "before");
-