开始学习perl的单元测试

学习perl有不少时间了，perl与正则表达式的完美结合，所以我经常用它来处理数据文件。

既然是说到测试，就慢慢积累下perl单元测试的知识。每个语言都有自己的单元测试框架，java的是JUnit，还没去了解，有空再多去看。

先从自己擅长的perl开始。

我电脑上的perl版本，环境如下

This is perl, v5.8.8 built for MSWin32-x86-multi-thread

perl单元测试要用到的包是，Test::Simple, Test::Class,Test::Unit等

先从入门开始，

#!/usr/bin/perl

use strict;
use warnings;

use Test::Simple tests => 1;

sub hello_world {
 return "Hello,world!";
}

ok( hello_world() eq "Hello,world!");

上述这个代码就是测试，hello_world()这个函数是否按照预期输出了Hello,world!

运行结果如下

D:\loveperl>prove TestHello.pl
TestHello....ok
All tests successful.
Files=1, Tests=1,  1 wallclock secs ( 0.00 cusr +  0.00 csys =  0.00 CPU)

预期结果与实际输出结果一致，这个单元测试通过。