global CV support

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

diff --git a/t/basic.t b/t/basic.t
index 0512d62..0e46ba9 100644 (file)
--- a/t/basic.t
+++ b/t/basic.t
@@ -6,10 +6,13 @@ 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($f->[1]);
-  my $l = Dumper(Data::Dumper::ToXS::Test->can($f->[0])->());
+  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");
 }