[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;
$Data::Dumper::Deparse = 1;

my (%source, %result);

foreach my $f (@fix) {
  my $d = Dumper($source{$f->[0]} = $f->[1]);
  my $l = Dumper($result{$f->[0]} = 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;
c77361b0	9	$Data::Dumper::Deparse = 1;
	10
	11	my (%source, %result);
a231da50	12
a231da50	13	foreach my $f (@fix) {
c77361b0	14	my $d = Dumper($source{$f->[0]} = $f->[1]);
c77361b0	15	my $l = Dumper($result{$f->[0]} = Data::Dumper::ToXS::Test->can($f->[0])->());
a231da50	16	is($l, $d, "Round tripped ${\$f->[0]} ok");
	17	}
	18
	19	done_testing;