模拟 perl 反引号的返回码和输出

Question

我正在尝试在 perl 中编写一个单元测试用例，我需要模拟通过反引号运行的命令输出及其返回码两次。

考虑如下代码流

sub foo {
  my $out = `ls -R`;
  my $ret = $?;

  if( $ret == 0 ) {
    $out = `ls -R > foo.txt`;
  } elsif {
    # some retry logic
    # i want to cover this code path
  }
  return ($ret, $out);
}

现在我需要模拟非零返回码。 我怎样才能做到这一点？

我有类似下面的东西，但这只是模拟输出，但返回码总是 0

BEGIN {
  *CORE::GLOBAL::readpipe = sub($) {
    my $var = $_[0];
    return 1;
  }
};

我正在使用 Perl 5.10。而且我无法使用反引号更改执行命令。

Answer 1

Backticks/readpipe 在$? 中返回退出状态，因此您只需在模拟的读取管道函数中设置$?。

BEGIN {
  *CORE::GLOBAL::readpipe = \&mock_readpipe
};
sub mock_readpipe {
  my $var = $_[0];
  if ($var =~ /cat|dog/) {
      $? = 1 >> 8;  # simulate exit code 1
      return;
  } else if (wantarray) {
      $? = 0;
      return ("foo\n", "bar\n");
  } else {
      $? = 0;
      return "foo\nbar\n";
  }
}