3 use Data::Dumper::ToXS::Test;
6 my @fix = do 't/fixtures.pl' or die "t/fixtures.pl: $@";
8 $Data::Dumper::Sortkeys = 1;
9 $Data::Dumper::Deparse = 1;
11 my (%source, %result);
13 foreach my $f (@fix) {
14 my $d = Dumper($source{$f->[0]} = $f->[1]);
15 my $l = Dumper($result{$f->[0]} = Data::Dumper::ToXS::Test->can($f->[0])->());
16 is($l, $d, "Round tripped ${\$f->[0]} ok");