… | |
… | |
22 | 10, |
22 | 10, |
23 | "hoge", |
23 | "hoge", |
24 | { |
24 | { |
25 | "foo" : "bar" |
25 | "foo" : "bar" |
26 | } |
26 | } |
|
|
27 | ] |
27 | ]|); |
28 | |); |
28 | |
29 | |
29 | $obj = { foo => [ {a=>"b"}, 0, 1, 2 ] }; |
30 | $obj = { foo => [ {a=>"b"}, 0, 1, 2 ] }; |
30 | $pc->pretty(0); |
31 | $pc->pretty(0); |
31 | $js = $pc->encode($obj); |
32 | $js = $pc->encode($obj); |
32 | is($js,q|{"foo":[{"a":"b"},0,1,2]}|); |
33 | is($js,q|{"foo":[{"a":"b"},0,1,2]}|); |
… | |
… | |
42 | }, |
43 | }, |
43 | 0, |
44 | 0, |
44 | 1, |
45 | 1, |
45 | 2 |
46 | 2 |
46 | ] |
47 | ] |
|
|
48 | } |
47 | }|); |
49 | |); |
48 | |
50 | |
49 | $obj = { foo => [ {a=>"b"}, 0, 1, 2 ] }; |
51 | $obj = { foo => [ {a=>"b"}, 0, 1, 2 ] }; |
50 | $pc->pretty(0); |
52 | $pc->pretty(0); |
51 | $js = $pc->encode($obj); |
53 | $js = $pc->encode($obj); |
52 | is($js,q|{"foo":[{"a":"b"},0,1,2]}|); |
54 | is($js,q|{"foo":[{"a":"b"},0,1,2]}|); |
53 | |
55 | |
54 | |
56 | |
55 | $obj = {foo => "bar"}; |
57 | $obj = {foo => "bar"}; |
56 | $pc->indent(1); |
58 | $pc->indent(1); |
57 | is($pc->encode($obj), qq|{\n "foo":"bar"\n}|, "nospace"); |
59 | is($pc->encode($obj), qq|{\n "foo":"bar"\n}\n|, "nospace"); |
58 | $pc->space_after(1); |
60 | $pc->space_after(1); |
59 | is($pc->encode($obj), qq|{\n "foo": "bar"\n}|, "after"); |
61 | is($pc->encode($obj), qq|{\n "foo": "bar"\n}\n|, "after"); |
60 | $pc->space_before(1); |
62 | $pc->space_before(1); |
61 | is($pc->encode($obj), qq|{\n "foo" : "bar"\n}|, "both"); |
63 | is($pc->encode($obj), qq|{\n "foo" : "bar"\n}\n|, "both"); |
62 | $pc->space_after(0); |
64 | $pc->space_after(0); |
63 | is($pc->encode($obj), qq|{\n "foo" :"bar"\n}|, "before"); |
65 | is($pc->encode($obj), qq|{\n "foo" :"bar"\n}\n|, "before"); |
64 | |
66 | |