3 # test for $Data::Dumper::Pair AKA Data::Dumper->new([ ... ])->Pair('...')
9 unshift @INC, '../lib';
10 require Config; import Config;
12 if ($Config{'extensions'} !~ /\bData\/Dumper\b/) {
13 print "1..0 # Skip: Data::Dumper was not built\n";
20 use vars qw($want_colon $want_comma);
21 use Test::More tests => 9;
25 require_ok 'Data::Dumper';
27 my $HASH = { alpha => 'beta', gamma => 'vlissides' };
28 my $WANT = q({'alpha' => 'beta','gamma' => 'vlissides'});
30 $Data::Dumper::Useperl = 1;
31 $Data::Dumper::Indent = 0;
32 $Data::Dumper::Terse = 1;
33 $Data::Dumper::Sortkeys = 1;
35 $want_colon = $want_comma = $WANT;
36 $want_colon =~ s/=>/:/g;
37 $want_comma =~ s/ => /,/g;
39 ####################### XS Tests #####################
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()');
52 ###################### Perl Tests ####################
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(',');
62 'Perl: Data::Dumper->new([ $HASH ])->Pair(",")->Pair() eq ","');
63 is ($dd->Dump(), $want_comma, 'Perl: Data::Dumper->new([ $HASH ])->Pair(",")->Dump()');