pair.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
#!./perl -w
#
# test for $Data::Dumper::Pair AKA Data::Dumper->new([ ... ])->Pair('...')
#
BEGIN {
chdir 't' if -d 't';
print "1..0 # Skip: Data::Dumper was not built\n";
exit 0;
}
}
}
use strict;
require_ok 'Data::Dumper';
$want_colon = $want_comma = $WANT;
$want_colon =~ s/=>/:/g;
$want_comma =~ s/ => /,/g;
####################### XS Tests #####################
SKIP: {
'XS: Data::Dumper->new([ $HASH ])->Pair(",")->Dumpxs()');
};
###################### Perl Tests ####################
{
'Perl: Data::Dumper->new([ $HASH ])->Pair(",")->Pair() eq ","');
}