[p5sagit/Data-Dumper-ToXS.git] / t / basic.t

use strictures 1;
use Test::More;
use Data::Dumper::ToXS::Test;
use Data::Dumper;

my @fix = do 't/fixtures.pl' or die "t/fixtures.pl: $@";

$Data::Dumper::Sortkeys = 1;

foreach my $f (@fix) {
  my $d = Dumper($f->[1]);
  my $l = Dumper(Data::Dumper::ToXS::Test->can($f->[0])->());
  is($l, $d, "Round tripped ${\$f->[0]} ok");
}

done_testing;
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;