|
Packit |
dfacfc |
#!perl
|
|
Packit |
dfacfc |
use strict;
|
|
Packit |
dfacfc |
use warnings;
|
|
Packit |
dfacfc |
|
|
Packit |
dfacfc |
use Data::Dumper;
|
|
Packit |
dfacfc |
use Test::More tests => 6;
|
|
Packit |
dfacfc |
use lib qw( ./t/lib );
|
|
Packit |
dfacfc |
use Testing qw( _dumptostr );
|
|
Packit |
dfacfc |
|
|
Packit |
dfacfc |
|
|
Packit |
dfacfc |
my $hash = { foo => 42 };
|
|
Packit |
dfacfc |
|
|
Packit |
dfacfc |
for my $useperl (0..1) {
|
|
Packit |
dfacfc |
my $dumper = Data::Dumper->new([$hash]);
|
|
Packit |
dfacfc |
$dumper->Terse(1);
|
|
Packit |
dfacfc |
$dumper->Indent(2);
|
|
Packit |
dfacfc |
$dumper->Useperl($useperl);
|
|
Packit |
dfacfc |
|
|
Packit |
dfacfc |
is $dumper->Dump, <<'WANT', "Terse(1), Indent(2), Useperl($useperl)";
|
|
Packit |
dfacfc |
{
|
|
Packit |
dfacfc |
'foo' => 42
|
|
Packit |
dfacfc |
}
|
|
Packit |
dfacfc |
WANT
|
|
Packit |
dfacfc |
}
|
|
Packit |
dfacfc |
|
|
Packit |
dfacfc |
my (%dumpstr);
|
|
Packit |
dfacfc |
my $dumper;
|
|
Packit |
dfacfc |
|
|
Packit |
dfacfc |
$dumper = Data::Dumper->new([$hash]);
|
|
Packit |
dfacfc |
$dumpstr{noterse} = _dumptostr($dumper);
|
|
Packit |
dfacfc |
# $VAR1 = {
|
|
Packit |
dfacfc |
# 'foo' => 42
|
|
Packit |
dfacfc |
# };
|
|
Packit |
dfacfc |
|
|
Packit |
dfacfc |
$dumper = Data::Dumper->new([$hash]);
|
|
Packit |
dfacfc |
$dumper->Terse();
|
|
Packit |
dfacfc |
$dumpstr{terse_no_arg} = _dumptostr($dumper);
|
|
Packit |
dfacfc |
|
|
Packit |
dfacfc |
$dumper = Data::Dumper->new([$hash]);
|
|
Packit |
dfacfc |
$dumper->Terse(0);
|
|
Packit |
dfacfc |
$dumpstr{terse_0} = _dumptostr($dumper);
|
|
Packit |
dfacfc |
|
|
Packit |
dfacfc |
$dumper = Data::Dumper->new([$hash]);
|
|
Packit |
dfacfc |
$dumper->Terse(1);
|
|
Packit |
dfacfc |
$dumpstr{terse_1} = _dumptostr($dumper);
|
|
Packit |
dfacfc |
# {
|
|
Packit |
dfacfc |
# 'foo' => 42
|
|
Packit |
dfacfc |
# }
|
|
Packit |
dfacfc |
|
|
Packit |
dfacfc |
$dumper = Data::Dumper->new([$hash]);
|
|
Packit |
dfacfc |
$dumper->Terse(undef);
|
|
Packit |
dfacfc |
$dumpstr{terse_undef} = _dumptostr($dumper);
|
|
Packit |
dfacfc |
|
|
Packit |
dfacfc |
is($dumpstr{noterse}, $dumpstr{terse_no_arg},
|
|
Packit |
dfacfc |
"absence of Terse is same as Terse()");
|
|
Packit |
dfacfc |
is($dumpstr{noterse}, $dumpstr{terse_0},
|
|
Packit |
dfacfc |
"absence of Terse is same as Terse(0)");
|
|
Packit |
dfacfc |
isnt($dumpstr{noterse}, $dumpstr{terse_1},
|
|
Packit |
dfacfc |
"absence of Terse is different from Terse(1)");
|
|
Packit |
dfacfc |
is($dumpstr{noterse}, $dumpstr{terse_undef},
|
|
Packit |
dfacfc |
"absence of Terse is same as Terse(undef)");
|