1#!./perl -w 2# 3# test for $Data::Dumper::Pair AKA Data::Dumper->new([ ... ])->Pair('...') 4# 5 6use strict; 7use warnings; 8 9our ($want_colon, $want_comma); 10use Test::More tests => 9; 11 12no warnings qw(once); 13 14require_ok 'Data::Dumper'; 15 16my $HASH = { alpha => 'beta', gamma => 'vlissides' }; 17my $WANT = q({'alpha' => 'beta','gamma' => 'vlissides'}); 18 19$Data::Dumper::Useperl = 1; 20$Data::Dumper::Indent = 0; 21$Data::Dumper::Terse = 1; 22$Data::Dumper::Sortkeys = 1; 23 24$want_colon = $want_comma = $WANT; 25$want_colon =~ s/=>/:/g; 26$want_comma =~ s/ => /,/g; 27 28####################### XS Tests ##################### 29 30SKIP: { 31 skip 'XS extension not loaded', 3 unless (defined &Data::Dumper::Dumpxs); 32 is (Data::Dumper::DumperX($HASH), $WANT, 33 'XS: Default hash key/value separator: " => "'); 34 local $Data::Dumper::Pair = ' : '; 35 is (Data::Dumper::DumperX($HASH), $want_colon, 'XS: $Data::Dumper::Pair = " : "'); 36 my $dd = Data::Dumper->new([ $HASH ])->Pair(','); 37 is ($dd->Dumpxs(), $want_comma, 38 'XS: Data::Dumper->new([ $HASH ])->Pair(",")->Dumpxs()'); 39}; 40 41###################### Perl Tests #################### 42 43{ 44 is ($Data::Dumper::Pair, ' => ', 'Perl: $Data::Dumper::Pair eq " => "'); 45 is (Data::Dumper::Dumper($HASH), $WANT, 46 'Perl: Default hash key/value separator: " => "'); 47 local $Data::Dumper::Pair = ' : '; 48 is (Data::Dumper::Dumper($HASH), $want_colon, 'Perl: $Data::Dumper::Pair = " : "'); 49 my $dd = Data::Dumper->new([ $HASH ])->Pair(','); 50 is ($dd->Pair(), ',', 51 'Perl: Data::Dumper->new([ $HASH ])->Pair(",")->Pair() eq ","'); 52 is ($dd->Dump(), $want_comma, 'Perl: Data::Dumper->new([ $HASH ])->Pair(",")->Dump()'); 53} 54