view release on metacpan or  search on metacpan

t/plplot_library_tests.t  view on Meta::CPAN

    cmp_files($perlfile, $reffile);
  }
};
}
}

done_testing;

sub cmp_files {
  my ($perlfile, $reffile) = @_;
  my $perldata = do { local( @ARGV, $/ ) = $perlfile; <> } ; # slurp!
  my $refdata  = do { local( @ARGV, $/ ) = $reffile; <> } ; # slurp!
  s/-0\./0./g for $perldata, $refdata; # zap spurious negative-zero differences
  ok $perldata eq $refdata, "Output file $perlfile matches C output"
    or diag "$perlfile: " . length($perldata) . ", $reffile: " . length($refdata);
}

# Local Variables:
# mode: cperl
# End: