1#!./perl -w 2# 3# test for $Data::Dumper::Pair AKA Data::Dumper->new([ ... ])->Pair('...') 4# 5 6BEGIN { 7 if ($ENV{PERL_CORE}){ 8 chdir 't' if -d 't'; 9 unshift @INC, '../lib'; 10 require Config; import Config; 11 no warnings 'once'; 12 if ($Config{'extensions'} !~ /\bData\/Dumper\b/) { 13 print "1..0 # Skip: Data::Dumper was not built\n"; 14 exit 0; 15 } 16 } 17} 18 19use strict; 20use vars qw($want_colon $want_comma); 21use Test::More tests => 9; 22 23no warnings qw(once); 24 25require_ok 'Data::Dumper'; 26 27my $HASH = { alpha => 'beta', gamma => 'vlissides' }; 28my $WANT = q({'alpha' => 'beta','gamma' => 'vlissides'}); 29 30$Data::Dumper::Useperl = 1; 31$Data::Dumper::Indent = 0; 32$Data::Dumper::Terse = 1; 33$Data::Dumper::Sortkeys = 1; 34 35$want_colon = $want_comma = $WANT; 36$want_colon =~ s/=>/:/g; 37$want_comma =~ s/ => /,/g; 38 39####################### XS Tests ##################### 40 41SKIP: { 42 skip 'XS extension not loaded', 3 unless (defined &Data::Dumper::Dumpxs); 43 is (Data::Dumper::DumperX($HASH), $WANT, 44 'XS: Default hash key/value separator: " => "'); 45 local $Data::Dumper::Pair = ' : '; 46 is (Data::Dumper::DumperX($HASH), $want_colon, 'XS: $Data::Dumper::Pair = " : "'); 47 my $dd = Data::Dumper->new([ $HASH ])->Pair(','); 48 is ($dd->Dumpxs(), $want_comma, 49 'XS: Data::Dumper->new([ $HASH ])->Pair(",")->Dumpxs()'); 50}; 51 52###################### Perl Tests #################### 53 54{ 55 is ($Data::Dumper::Pair, ' => ', 'Perl: $Data::Dumper::Pair eq " => "'); 56 is (Data::Dumper::Dumper($HASH), $WANT, 57 'Perl: Default hash key/value separator: " => "'); 58 local $Data::Dumper::Pair = ' : '; 59 is (Data::Dumper::Dumper($HASH), $want_colon, 'Perl: $Data::Dumper::Pair = " : "'); 60 my $dd = Data::Dumper->new([ $HASH ])->Pair(','); 61 is ($dd->Pair(), ',', 62 'Perl: Data::Dumper->new([ $HASH ])->Pair(",")->Pair() eq ","'); 63 is ($dd->Dump(), $want_comma, 'Perl: Data::Dumper->new([ $HASH ])->Pair(",")->Dump()'); 64} 65