src/third_party/JSON/JSON-2.59/t/xe05_indent_length.t

   1 use strict;
   2 use Test::More;
   3 BEGIN { plan tests => 7 };
   4
   5 BEGIN { $ENV{PERL_JSON_BACKEND} = 1; }
   6
   7 use JSON -support_by_pp;
   8
   9 SKIP: {
  10     skip "can't use JSON::XS.", 7, unless( JSON->backend->is_xs );
  11
  12 my $json = new JSON;
  13
  14
  15 is($json->indent_length(2)->encode([1,{foo => 'bar'}, "1", "/"]), qq|[1,{"foo":"bar"},"1","/"]|);
  16
  17 is($json->indent->encode([1,{foo => 'bar'}, "1", "/"]), qq|[
  18   1,
  19   {
  20     "foo":"bar"
  21   },
  22   "1",
  23   "/"
  24 ]
  25 |);
  26
  27
  28 is($json->escape_slash(1)->pretty->indent_length(2)->encode([1,{foo => 'bar'}, "1", "/"]), qq|[
  29   1,
  30   {
  31     "foo" : "bar"
  32   },
  33   "1",
  34   "\\/"
  35 ]
  36 |);
  37
  38
  39 is($json->escape_slash(1)->pretty->indent_length(3)->encode([1,{foo => 'bar'}, "1", "/"]), qq|[
  40    1,
  41    {
  42       "foo" : "bar"
  43    },
  44    "1",
  45    "\\/"
  46 ]
  47 |);
  48
  49 is($json->escape_slash(1)->pretty->indent_length(15)->encode([1,{foo => 'bar'}, "1", "/"]), qq|[
  50                1,
  51                {
  52                               "foo" : "bar"
  53                },
  54                "1",
  55                "\\/"
  56 ]
  57 |);
  58
  59
  60 is($json->indent_length(0)->encode([1,{foo => 'bar'}, "1", "/"]), qq|[
  61 1,
  62 {
  63 "foo" : "bar"
  64 },
  65 "1",
  66 "\\/"
  67 ]
  68 |);
  69
  70 is($json->indent(0)->space_before(0)->space_after(0)->escape_slash(0)
  71         ->encode([1,{foo => 'bar'}, "1", "/"]), qq|[1,{"foo":"bar"},"1","/"]|);
  72
  73
  74 }
  75
  76