PERL单元测试简易框架

本来是写个测试脚本来测试函数是否正确,写着写着就把输出写的漂亮了些,于是将代码抽出来,做成一个公共框架。

说是框架,非常王婆卖瓜,因为就一百五十行SHELL脚本,PERL本是有单元测试的,但是我认为几行代码用那单元测试有点小题大做,最关键是,我的需求非常少,就是要跑几句代码,检测一下返回值,并且匹配一下预期数据,然后列出测试结果而已。

我之前喜欢这样简单测试PERL函数代码:

这样跑一遍,或者加-d调试一下,函数是否有问题,一下就能看出来,唯一的问题是,测试多组输入参数和输出的时候,每次都要靠双眼来对比结果是否符合预期。
继续阅读