Commit | Line | Data |
---|---|---|
d34e9bd9 MS |
1 | #!perl |
2 | use strict; | |
3 | use warnings; | |
4 | ||
5 | use Test::More tests => 2; | |
6 | ||
7 | use Data::Dumper; | |
8 | ||
9 | my $hash = { foo => 42 }; | |
10 | ||
11 | for my $useperl (0..1) { | |
12 | my $dumper = Data::Dumper->new([$hash]); | |
13 | $dumper->Terse(1); | |
14 | $dumper->Indent(2); | |
15 | $dumper->Useperl($useperl); | |
16 | ||
17 | is $dumper->Dump, <<'WANT', "Terse(1), Indent(2), Useperl($useperl)"; | |
18 | { | |
19 | 'foo' => 42 | |
20 | } | |
21 | WANT | |
22 | } |