¿Cómo me burlo del operador de patillas integradas de Perl?

Question

Me gustaría poner a prueba un programa mío de Perl que está utilizando palos de retroceso. ¿Hay alguna forma de burlarse de los backticks para que hagan algo diferente de ejecutar el comando externo?

Another question shows what I need, pero en Ruby. Desafortunadamente, no puedo elegir usar Ruby para este proyecto, ni quiero evitar los backticks.

Answer 1

Puede ^* simulacro de la incorporada en el readpipe función. Perl llamará a su función de simulación cuando encuentre una expresión de backticks o 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 

^* - si tiene perl version 5.8.9 o posterior.

Answer 2

En lugar de utilizar marcadores, puede usar capture desde IPC::System::Simple, y luego escribir una versión simulada de captura() en su prueba de unidad.

# 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