Jak kpić z wbudowanego operatora backlitów Perla?

Question

Chciałbym przetestować mój program w Perlu, który używa backticks. Czy istnieje sposób na kpiny z backticksów, aby zrobili coś innego niż wykonanie zewnętrznego polecenia?

Another question shows what I need, ale w języku Rubin. Niestety, nie mogę użyć Ruby do tego projektu, ani nie chcę tego uniknąć.

Answer 1

Można ^* mock wbudowanej readpipe funkcji. Perl wywoła twoją fałszywą funkcję, gdy napotkasz wyrażenie backticks lub 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 

^* - jeśli masz perl version 5.8.9 lub później.

Answer 2

Zamiast używać odrzutów, można użyć capture z IPC::System::Simple, a następnie napisać fałszywą wersję funkcji capture() w teście jednostki.

# 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