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