This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
new perldelta
[perl5.git] / dist / Data-Dumper / t / terse.t
CommitLineData
d34e9bd9 1#!perl
2bc27c6c 2
d34e9bd9
MS
3use strict;
4use warnings;
5
d34e9bd9 6use Data::Dumper;
dd9e86b4 7use Test::More tests => 10;
3bd791fa
JK
8use lib qw( ./t/lib );
9use Testing qw( _dumptostr );
10
d34e9bd9
MS
11
12my $hash = { foo => 42 };
13
14for 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}
24WANT
25}
3bd791fa 26
3bd791fa
JK
27my $dumper;
28
29$dumper = Data::Dumper->new([$hash]);
dd9e86b4 30my $dumpstr_noterse = _dumptostr($dumper);
3bd791fa
JK
31
32$dumper = Data::Dumper->new([$hash]);
33$dumper->Terse();
dd9e86b4 34is _dumptostr($dumper), $dumpstr_noterse;
3bd791fa
JK
35
36$dumper = Data::Dumper->new([$hash]);
37$dumper->Terse(0);
dd9e86b4 38is _dumptostr($dumper), $dumpstr_noterse;
3bd791fa
JK
39
40$dumper = Data::Dumper->new([$hash]);
41$dumper->Terse(1);
dd9e86b4 42isnt _dumptostr($dumper), $dumpstr_noterse;
3bd791fa
JK
43
44$dumper = Data::Dumper->new([$hash]);
dd9e86b4
Z
45is $dumper->Terse(1), $dumper;
46is $dumper->Terse, 1;
47is $dumper->Terse(undef), $dumper;
48is $dumper->Terse, undef;
49is _dumptostr($dumper), $dumpstr_noterse;