Я хотел бы провести модульное тестирование моей программы Perl, использующей обратные кавычки. Есть ли способ издеваться над обратными кавычками, чтобы они делали что-то отличное от выполнения внешней команды?
Другой вопрос показывает, что мне нужно, но на Ruby. К сожалению, я не могу использовать Ruby для этого проекта и не хочу избегать обратных кавычек.
Вы можете* имитировать встроенную функцию readpipe. Perl вызовет вашу фиктивную функцию, когда встретит обратные кавычки или выражение 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 версии 5.8.9 или новее.
readpipe(...), а не для обратных кавычек или qx. Работает, как показано в 5.10.1.
- person Eric Strom; 09.09.2010
Вместо обратных кавычек вы можете использовать capture из IPC::System::Simple, а затем напишите фиктивную версию Capture() в своем модульном тесте.
# 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
