Perl:测试输入阅读器？

Question

有没有一种方法可以使用标准测试等模块自动测试 Perl 程序是否正在读取输入，例如标准输入正确吗？例如。测试从 STDIN 读取两个整数并打印它们之和的程序。

Answer 1

这不是 100% 清楚你的意思，我会假设你想编写一个测试脚本来测试你的主程序，作为测试的一部分需要通过 STDIN 传递测试输入数据。

如果您的程序输出它读取的内容，您就可以轻松做到这一点。您不需要特殊的测试模块 - 只需:

1. 通过系统调用调用您正在测试的程序

   • 将测试程序的 STDIN 和 STDOUT 重定向到您的测试脚本，使用

     • IPC::Open2模块通过管道打开两侧到文件句柄，

     • ... 或者，构建您的命令以重定向到文件/从文件重定向并在测试脚本中读取/写入文件

2. 检查您在上一步中收集的测试程序的 STDOUT，以确保打印出正确的值。