view release on metacpan or  search on metacpan

t/04-stdio.t  view on Meta::CPAN

test_stdio('--input' => '-', '--output' => '-');
test_stdio('--input' => '-',                  );
test_stdio(                  '--output' => '-');
test_stdio(                                   );

sub test_stdio {
  my(@opts) = @_;

  my @args = ($^X, libs(), $csv_bin, @opts);
  diag("run @args");
  run \@args, \$input, \my $actual_output, \my $stderr or die "run: $?";

  is($actual_output, $expected_output,
      "actual commandline invocation produces correct results");
  is($stderr, "", "nothing on stderr");
}

sub libs { map { ('-I' => $_) } @INC }
sub slurp { local $/; local @ARGV = pop; <> }