1#!./perl -w
2# t/indent.t - Test Indent()
3BEGIN {
4    if ($ENV{PERL_CORE}){
5        require Config; import Config;
6        no warnings 'once';
7        if ($Config{'extensions'} !~ /\bData\/Dumper\b/) {
8            print "1..0 # Skip: Data::Dumper was not built\n";
9            exit 0;
10        }
11    }
12}
13
14use strict;
15
16use Data::Dumper;
17use Test::More tests => 10;
18use lib qw( ./t/lib );
19use Testing qw( _dumptostr );
20
21
22my $hash = { foo => 42 };
23
24my (%dumpstr);
25my $dumper;
26
27$dumper = Data::Dumper->new([$hash]);
28$dumpstr{noindent} = _dumptostr($dumper);
29# $VAR1 = {
30#           'foo' => 42
31#         };
32
33$dumper = Data::Dumper->new([$hash]);
34$dumper->Indent();
35$dumpstr{indent_no_arg} = _dumptostr($dumper);
36
37$dumper = Data::Dumper->new([$hash]);
38$dumper->Indent(undef);
39$dumpstr{indent_undef} = _dumptostr($dumper);
40
41$dumper = Data::Dumper->new([$hash]);
42$dumper->Indent(0);
43$dumpstr{indent_0} = _dumptostr($dumper);
44# $VAR1 = {'foo' => 42}; # no newline
45
46$dumper = Data::Dumper->new([$hash]);
47$dumper->Indent(1);
48$dumpstr{indent_1} = _dumptostr($dumper);
49# $VAR1 = {
50#   'foo' => 42
51# };
52
53$dumper = Data::Dumper->new([$hash]);
54$dumper->Indent(2);
55$dumpstr{indent_2} = _dumptostr($dumper);
56# $VAR1 = {
57#           'foo' => 42
58#         };
59
60is($dumpstr{noindent}, $dumpstr{indent_no_arg},
61    "absence of Indent is same as Indent()");
62is($dumpstr{noindent}, $dumpstr{indent_undef},
63    "absence of Indent is same as Indent(undef)");
64isnt($dumpstr{noindent}, $dumpstr{indent_0},
65    "absence of Indent is different from Indent(0)");
66isnt($dumpstr{indent_0}, $dumpstr{indent_1},
67    "Indent(0) is different from Indent(1)");
68cmp_ok(length($dumpstr{indent_0}), '<=', length($dumpstr{indent_1}),
69    "Indent(0) is more compact than Indent(1)");
70is($dumpstr{noindent}, $dumpstr{indent_2},
71    "absence of Indent is same as Indent(2), i.e., 2 is default");
72cmp_ok(length($dumpstr{indent_1}), '<=', length($dumpstr{indent_2}),
73    "Indent(1) is more compact than Indent(2)");
74
75my $array = [ qw| foo 42 | ];
76$dumper = Data::Dumper->new([$array]);
77$dumper->Indent(2);
78$dumpstr{ar_indent_2} = _dumptostr($dumper);
79# $VAR1 = [
80#           'foo',
81#           '42'
82#         ];
83
84$dumper = Data::Dumper->new([$array]);
85$dumper->Indent(3);
86$dumpstr{ar_indent_3} = _dumptostr($dumper);
87# $VAR1 = [
88#           #0
89#           'foo',
90#           #1
91#           '42'
92#         ];
93
94isnt($dumpstr{ar_indent_2}, $dumpstr{ar_indent_3},
95    "On arrays, Indent(2) is different from Indent(3)");
96like($dumpstr{ar_indent_3},
97    qr/\#0.+'foo'.+\#1.+42/s,
98    "Indent(3) annotates array elements with their indices"
99);
100{
101    no if $] < 5.011, warnings => 'deprecated';
102    is(scalar(split("\n" => $dumpstr{ar_indent_2})) + 2,
103        scalar(split("\n" => $dumpstr{ar_indent_3})),
104        "Indent(3) runs 2 lines longer than Indent(2)");
105}
106
107__END__
108is($dumpstr{noindent}, $dumpstr{indent_0},
109    "absence of Indent is same as Indent(0)");
110isnt($dumpstr{noindent}, $dumpstr{indent_1},
111    "absence of Indent is different from Indent(1)");
112print STDERR $dumpstr{indent_0};
113print STDERR $dumpstr{ar_indent_3};
114