मैं पर्ल के अंतर्निर्मित बैकटिक्स ऑपरेटर का नकल कैसे करूं?

Question

मैं बैकटिक्स का उपयोग कर मेरे एक पर्ल प्रोग्राम का परीक्षण करना चाहता हूं। बैकटिक्स का नकल करने का कोई तरीका है ताकि वे बाहरी कमांड को निष्पादित करने से कुछ अलग कर सकें?

Another question shows what I need, लेकिन रूबी में। दुर्भाग्य से, मैं इस परियोजना के लिए रूबी का उपयोग नहीं करना चुन सकता, न ही मैं बैकटिक्स से बचना चाहता हूं।

Answer 1

आप कर सकते हैं ^* नकली निर्मित readpipe कार्य करते हैं। पर्ल आपके मॉक फ़ंक्शन को कॉल करेगा जब यह बैकटिक्स या 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 या बाद की है।

Answer 2

बैकटीक्स का उपयोग करने के बजाय, आप captureIPC::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