Perl：測試輸入閱讀器？

Question

有一種自動測試使用標準測試等模塊Perl程序是否從例如讀取輸入STDIN正確嗎？例如。測試一個從STDIN中讀取兩個整數並打印它們的總和的程序。

Answer 1

這不是100％清楚你的意思，我會asnswer假設你想要寫一個測試腳本，測試你的主程序，它作爲測試的一部分，需要有通過STDIN通過測試輸入數據是什麼。

您可以輕鬆地做到這一點，如果你的程序輸出是什麼讀取。你不需要特殊的測試模塊 - 簡單地說：

1. 打電話給你的程序通過系統調用your're測試

   • 測試程序都重定向STDIN和STDOUT到你的測試腳本，使用

     • IPC::Open2模塊經由管道文件句柄打開兩側，

     • ...或者，建立你的命令，從文件重定向到/和讀/寫文件的測試腳本從您在上一步中收集到的測試程序

2. 檢查STDOUT確保打印出正確的值。

Answer 2

如果你想測試，如果標準輸入連接到終端，使用-t，如：

if(-t STDIN){ 
    print "Input from a terminal\n"; 
}else{ 
    print "Input from a file or pipe\n"; 
} 

見http://perldoc.perl.org/perlfunc.html#Alphabetical-Listing-of-Perl-Functions