perl - Perl 单元测试只针对模块而不是程序吗？

Question

我在网上找到的文档和我的书 Perl Testing 都说或建议通常在创建模块时对 Perl 进行单元测试。

这是真的吗？有没有办法使用 Test::More 和 cousins 对实际程序进行单元测试？

Answer 1

当然，您可以使用 Test::More 测试脚本.这只是更难，因为大多数脚本需要作为一个单独的进程运行，您可以从中捕获输出，然后根据预期输出对其进行测试。

这就是开发modulinos(参见第 17 章:brian d foy、Mastering Perl，第二版，O'Reilly，2014 年)的原因。 modulino 是一个脚本，也可以用作模块。这使得测试更容易，因为您可以将 modulino 加载到测试脚本中，然后像测试常规模块一样测试其功能。

modulino 的主要特征是:

#! /usr/bin/perl
package App::MyName; # put it in a package

run() unless caller; # Run program unless loaded as a module

sub run {
  ... # your program here
}

函数不必调用run；如果你是 C 程序员，你可以使用 main。您通常还会根据需要运行调用额外的子例程。

然后您的测试脚本可以使用require "path/to/script" 加载您的modulino 并执行其功能。由于许多脚本涉及写入输出，并且通常更容易打印而不是执行 print sub_that_returns_big_string()，您可能会发现 Test::Output有用。