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