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