在 Perl 中进行单元测试期间提示用户

Question

我正在编写一个模块，该模块具有需要运行某个外部服务器程序的单元测试，如果是，则需要知道主机名和端口。

我想在运行测试套件时提示输入此信息，并在用户拒绝提供时跳过这些测试。

处理这个问题的最佳方法是什么？

谢谢

Answer 1

您是否在寻找ExtUtils::MakeMaker::prompt？

其他方便的功能

提示

my $value = prompt($message);
my $value = prompt($message, $default);

prompt() 函数提供了一种简单的方法来请求用于编写 makefile 的用户输入。它显示 $message 作为输入提示。如果提供了 $default ，它将被用作默认值。该函数返回用户选择的$值。

如果prompt()检测到它没有以交互方式运行并且STDIN上没有任何内容，或者如果PERL_MM_USE_DEFAULT环境变量设置为true，则将使用$default而不提示。这可以防止自动化进程阻塞用户输入。

如果没有提供 $default，将使用空字符串。

Answer 2

我将对此采取不同的策略。为什么您需要用户作为中间人 - 特别是对于自动化测试？一个明显更好的方法（根据我自己的经验）是执行以下操作之一：

• 使服务器（主机名/端口）可以通过测试以某种方式发现。它可以是真正的可发现性，或者让服务器自行注册，或者，哎呀，一些配置服务。考虑到现实世界中服务器的客户端需要能够连接到服务器，这样的发现逻辑（同样，最坏的情况是某些配置文件）应该已经存在。

• 对于真正高级的情况，允许测试工具能够在测试端口上启动服务器的测试实例（如果服务器的测试实例未运行）。

请注意，如果您的服务器由于某种原因无法进行检测以允许上述任何一种方法，那么套接字木偶的答案是最好的方法。