我在’网和我所拥有的书,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很有用.
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。