1#!perl 2 3use strict; 4use warnings; 5 6use Data::Dumper; 7use Test::More tests => 10; 8use lib qw( ./t/lib ); 9use Testing qw( _dumptostr ); 10 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} 26 27my $dumper; 28 29$dumper = Data::Dumper->new([$hash]); 30my $dumpstr_noterse = _dumptostr($dumper); 31 32$dumper = Data::Dumper->new([$hash]); 33$dumper->Terse(); 34is _dumptostr($dumper), $dumpstr_noterse; 35 36$dumper = Data::Dumper->new([$hash]); 37$dumper->Terse(0); 38is _dumptostr($dumper), $dumpstr_noterse; 39 40$dumper = Data::Dumper->new([$hash]); 41$dumper->Terse(1); 42isnt _dumptostr($dumper), $dumpstr_noterse; 43 44$dumper = Data::Dumper->new([$hash]); 45is $dumper->Terse(1), $dumper; 46is $dumper->Terse, 1; 47is $dumper->Terse(undef), $dumper; 48is $dumper->Terse, undef; 49is _dumptostr($dumper), $dumpstr_noterse; 50