PERL单元测试简易框架.PDF

PERL 单元测试简易框架 mnstory.net 本来是写个测试脚本来测试函数是否正确，写着写着就把输出写的漂亮了些，于是将代 码抽出来，做成一个公共框架。 说是框架，非常王婆卖瓜，因为就一百五十行SHELL 脚本，PERL 本是有单元测试的，但 是我认为几行代码用那单元测试有点小题大做，最关键是，我的需求非常少，就是要跑 几句代码，检测一下返回值，并且匹配一下预期数据，然后列出测试结果而已。 我之前喜欢这样简单测试PERL 函数代码： perl -T -w -e use VTP::MutexVMs; use Data::Dumper; print Dumper(VTP::MutexVMs::mutexVMIDs()) 这样跑一遍，或者加-d 调试一下，函数是否有问题，一下就能看出来，唯一的问题是， 测试多组输入参数和输出的时候，每次都要靠双眼来对比结果是否符合预期。 有了此简易框架，两个函数的四条完整单元测试案例，你只需要类似这样写： #!/bin/bash . unitest.sh #自定参数，随意！ MUTEXPATH= /cfs/mutexvms.xml mutexVMIDs() { #设置一个单元测试案例名字 target=$FUNCNAME.readNormal #准备输入参数，例如：准备文件 \cp -f $SCRIPTDIR/in/$target $MUTEXPATH #开始执行PERL 代码，重定向输出到 $SCRIPTDIR/out/$target perl -T -w -e use VTP::MutexVMs; use Data::Dumper; print Dumper(VTP::MutexVMs::mutexVMIDs()) $SCRIPTDIR/out/$target #对比结果，如果不比较返回值，只比较输入输出，用alwaysSuccess，其他的 还有 zeroSuccess equalSuccess nonZeroSuccess alwaysSuccess $target read vmids normal } addMutexGroup() { target=$FUNCNAME.emptyAdd rm -f $MUTEXPATH 2/dev/null errno=`perl -T -w -e use VTP::MutexVMs; print VTP::MutexVMs::addMutexGroup(6105658195070, 6460910776608)` \cp -f $MUTEXPATH $SCRIPTDIR/out/$target #对比返回值，如果返回值为0 表示成功，并且，会对比输出 zeroSuccess $errno $target remove $MUTEXPATH first, then add target=$FUNCNAME.emptyArg errno=`perl -T -w -e use VTP::MutexVMs; print VTP::MutexVMs::addMutexGroup()` \cp -f $MUTEXPATH $SCRIPTDIR/out/$target equalSuccess -1 $errno $target empty argments target=$FUNCNAME.invalidArg errno=`perl -T -w -e use VTP::MutexVMs; print VTP::MutexVMs::addMutexGroup(undef, undef, undef)` \cp -f $MUTEXPATH $SCRIPTDIR/out/$target nonZeroSuccess $errno $target invalid argments } entry() { mutexVMIDs addMutexGroup } main $@ 然后在脚本目录下的 expected 目录准备对应测试案例名称的输出以便对比结果。执行 输出类似： 这是全成功的输出，最后一行可以看出，30 个案例，全部成功。 也有失败的效果： 只有一个成功，23 个