我在’网和我所拥有的书,Perl测试中找到的文档要么说或建议对Perl进行单元测试通常在创建模块时完成.
这是真的？有没有办法使用Test :: More和cousins对实际程序进行单元测试？
解决方法
当然,您可以使用
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并运用它的功能.由于许多脚本涉及编写输出,并且通常更容易打印而不是打印sub_that_returns_big_string(),您可能会发现Test::Output很有用.