view release on metacpan or  search on metacpan

t/m4.t  view on Meta::CPAN

#
my $fhfoo = File::Temp->new();
print $fhfoo "bar\n";
close($fhfoo);
my $echo = File::Spec->catfile('inc', 'echo.pl');
my $tmpfile = File::Spec->catfile(File::Spec->tmpdir(), 'fooXXXXXX');

foreach (grep {/: input/} sort {$a cmp $b} __PACKAGE__->section_data_names) {
  my $testName = $_;
  my $inputRef = __PACKAGE__->section_data($testName);
  local @ARGV = ();
  if ($testName =~ /: input\((.+)\)/) {
    @ARGV = eval "($1)";
  }
  $testName =~ s/: input.*//;
  my $testIsCmp = 0;
  my $outputRef = __PACKAGE__->section_data("$testName: ANYoutput");
  if (! defined($outputRef)) {
    $outputRef = __PACKAGE__->section_data("$testName: output");
    $testIsCmp = 1;
  }