Commit | Line | Data |
---|---|---|
a231da50 | 1 | use strictures 1; |
2 | use Test::More; | |
3 | use Data::Dumper::ToXS::Test; | |
4 | use Data::Dumper; | |
5 | ||
6 | my @fix = do 't/fixtures.pl' or die "t/fixtures.pl: $@"; | |
7 | ||
8 | $Data::Dumper::Sortkeys = 1; | |
9 | ||
10 | foreach my $f (@fix) { | |
11 | my $d = Dumper($f->[1]); | |
12 | my $l = Dumper(Data::Dumper::ToXS::Test->can($f->[0])->()); | |
13 | is($l, $d, "Round tripped ${\$f->[0]} ok"); | |
14 | } | |
15 | ||
16 | done_testing; |