| Index: trunk/src/third_party/JSON/JSON-2.59/t/xe05_indent_length.t
|
| ===================================================================
|
| --- trunk/src/third_party/JSON/JSON-2.59/t/xe05_indent_length.t (revision 205060)
|
| +++ trunk/src/third_party/JSON/JSON-2.59/t/xe05_indent_length.t (working copy)
|
| @@ -1,76 +0,0 @@
|
| -use strict;
|
| -use Test::More;
|
| -BEGIN { plan tests => 7 };
|
| -
|
| -BEGIN { $ENV{PERL_JSON_BACKEND} = 1; }
|
| -
|
| -use JSON -support_by_pp;
|
| -
|
| -SKIP: {
|
| - skip "can't use JSON::XS.", 7, unless( JSON->backend->is_xs );
|
| -
|
| -my $json = new JSON;
|
| -
|
| -
|
| -is($json->indent_length(2)->encode([1,{foo => 'bar'}, "1", "/"]), qq|[1,{"foo":"bar"},"1","/"]|);
|
| -
|
| -is($json->indent->encode([1,{foo => 'bar'}, "1", "/"]), qq|[
|
| - 1,
|
| - {
|
| - "foo":"bar"
|
| - },
|
| - "1",
|
| - "/"
|
| -]
|
| -|);
|
| -
|
| -
|
| -is($json->escape_slash(1)->pretty->indent_length(2)->encode([1,{foo => 'bar'}, "1", "/"]), qq|[
|
| - 1,
|
| - {
|
| - "foo" : "bar"
|
| - },
|
| - "1",
|
| - "\\/"
|
| -]
|
| -|);
|
| -
|
| -
|
| -is($json->escape_slash(1)->pretty->indent_length(3)->encode([1,{foo => 'bar'}, "1", "/"]), qq|[
|
| - 1,
|
| - {
|
| - "foo" : "bar"
|
| - },
|
| - "1",
|
| - "\\/"
|
| -]
|
| -|);
|
| -
|
| -is($json->escape_slash(1)->pretty->indent_length(15)->encode([1,{foo => 'bar'}, "1", "/"]), qq|[
|
| - 1,
|
| - {
|
| - "foo" : "bar"
|
| - },
|
| - "1",
|
| - "\\/"
|
| -]
|
| -|);
|
| -
|
| -
|
| -is($json->indent_length(0)->encode([1,{foo => 'bar'}, "1", "/"]), qq|[
|
| -1,
|
| -{
|
| -"foo" : "bar"
|
| -},
|
| -"1",
|
| -"\\/"
|
| -]
|
| -|);
|
| -
|
| -is($json->indent(0)->space_before(0)->space_after(0)->escape_slash(0)
|
| - ->encode([1,{foo => 'bar'}, "1", "/"]), qq|[1,{"foo":"bar"},"1","/"]|);
|
| -
|
| -
|
| -}
|
| -
|
| -
|
|
|