1 files changed, 69 insertions, 0 deletions
diff --git a/t/06_pc_pretty.t b/t/06_pc_pretty.t
new file mode 100644
index 0000000..c910f3a
--- /dev/null
+++ b/t/06_pc_pretty.t
@@ -0,0 +1,69 @@
+#! 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");
+