在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,则将使用空字符串.