如何模拟Perl的内置backticks操作符?

你可以 模仿内置的 readpipe 功能。当遇到backticks或 qx 表情。

BEGIN {
  *CORE::GLOBAL::readpipe = \&mock_readpipe
};

sub mock_readpipe {
  wantarray ? ("foo\n") : "foo\n";
}

print readpipe("ls -R");
print `ls -R`;
print qx(ls -R);

$ perl mock-readpipe.pl
foo
foo
foo

^* -如果你有 perl version 5.8.9 或者更晚。

capture IPC::System::Simple

# application
use IPC::System::Simple qw(capture);
my $stuff = capture("some command");

# test script
{
     package IPC::System::Simple;
     sub capture
     {
         # do something else; perhaps a call to ok()
     }
}

# ... rest of unit test here