Commit | Line | Data |
---|---|---|
d34e9bd9 | 1 | #!perl |
2bc27c6c | 2 | |
d34e9bd9 MS |
3 | use strict; |
4 | use warnings; | |
5 | ||
d34e9bd9 | 6 | use Data::Dumper; |
dd9e86b4 | 7 | use Test::More tests => 10; |
3bd791fa JK |
8 | use lib qw( ./t/lib ); |
9 | use Testing qw( _dumptostr ); | |
10 | ||
d34e9bd9 MS |
11 | |
12 | my $hash = { foo => 42 }; | |
13 | ||
14 | for my $useperl (0..1) { | |
15 | my $dumper = Data::Dumper->new([$hash]); | |
16 | $dumper->Terse(1); | |
17 | $dumper->Indent(2); | |
18 | $dumper->Useperl($useperl); | |
19 | ||
20 | is $dumper->Dump, <<'WANT', "Terse(1), Indent(2), Useperl($useperl)"; | |
21 | { | |
22 | 'foo' => 42 | |
23 | } | |
24 | WANT | |
25 | } | |
3bd791fa | 26 | |
3bd791fa JK |
27 | my $dumper; |
28 | ||
29 | $dumper = Data::Dumper->new([$hash]); | |
dd9e86b4 | 30 | my $dumpstr_noterse = _dumptostr($dumper); |
3bd791fa JK |
31 | |
32 | $dumper = Data::Dumper->new([$hash]); | |
33 | $dumper->Terse(); | |
dd9e86b4 | 34 | is _dumptostr($dumper), $dumpstr_noterse; |
3bd791fa JK |
35 | |
36 | $dumper = Data::Dumper->new([$hash]); | |
37 | $dumper->Terse(0); | |
dd9e86b4 | 38 | is _dumptostr($dumper), $dumpstr_noterse; |
3bd791fa JK |
39 | |
40 | $dumper = Data::Dumper->new([$hash]); | |
41 | $dumper->Terse(1); | |
dd9e86b4 | 42 | isnt _dumptostr($dumper), $dumpstr_noterse; |
3bd791fa JK |
43 | |
44 | $dumper = Data::Dumper->new([$hash]); | |
dd9e86b4 Z |
45 | is $dumper->Terse(1), $dumper; |
46 | is $dumper->Terse, 1; | |
47 | is $dumper->Terse(undef), $dumper; | |
48 | is $dumper->Terse, undef; | |
49 | is _dumptostr($dumper), $dumpstr_noterse; |