Perl Test::Unit::Lite

找了半天,终于找到一个轻量级测试框架Test::Unit::Lite,这个框架只有一个文件,不需要依赖其他文件,如果使用其他测试框架需要下载很多其他依赖模块,如果是手动下载的话基本是mission impossible。


说说它的使用:

首先写一个测试模块,所有的test case 都必须以test_ 开头,运行的时候并不按照编写顺序运行,而是按照字母排列顺序运行,这是和Perl 本身的存储相关的。

package ATest;

use Test::Unit::Lite;
use base 'Test::Unit::TestCase';

sub set_up{
	print "Begin test\n";
}

sub tear_down{
	print "End test\n";
}

sub test_1_two{
	my $self = shift;
	$self->assert_equals('testing','testing');
}

sub test_2_one{
	my $self = shift;
	$self->assert_equals('testing2','testing');
}

1;
接下来可以用TestSuite 包装多个测试模块运行,但是由于这个框架本身还没有很好的完善,运行会出错,我们用最简单的方法TestRunner 来调用。

use Test::Unit::Lite;
my $runner = Test::Unit::TestRunner->new;
$runner->start('ATest');
输出:

.F
Tests run: 2, Failures: 1

FAILURES!!!

------------------------------------------------------------------------------
ATest::test_2_one:

ATest.pm:21 - ATest(test_2_one)
expected 'testinsg', got 'testing'
 at ATest.pm line 21
	ATest::test_2_one('ATest=HASH(0x1a5ac3c)') called at D:/Perl/lib/Test/Unit/Lite.pm line 608
	eval {...} called at D:/Perl/lib/Test/Unit/Lite.pm line 607
	Test::Unit::TestSuite::run('Test::Unit::TestSuite=HASH(0x1a5ac0c)', 'Test::Unit::Result=HASH(0x1a5ab4c)', 'Test::Unit::TestRunner=HASH(0x1a5a68c)') called at D:/Perl/lib/Test/Unit/Lite.pm line 756
	Test::Unit::TestRunner::start('Test::Unit::TestRunner=HASH(0x1a5a68c)', 'ATest') called at D:\Tmp\001.pl line 26

------------------------------------------------------------------------------
还有一种方法是用TestRunner 子类Test::Unit::HarnessUnit 调用,只不过输出的显示不同。

use Test::Unit::Lite;
my $runner = Test::Unit::HarnessUnit->new;
$runner->start('ATest');
输出:

STARTING TEST RUN
1..2
ok PASS ATest::test_1_two
not ok FAILURE ATest::test_2_one
# ATest.pm:21 - ATest(test_2_one)
# expected 'testinsg', got 'testing'
#  at ATest.pm line 21
# 	ATest::test_2_one('ATest=HASH(0x1a32fa4)') called at D:/Perl/lib/Test/Unit/Lite.pm line 608
# 	eval {...} called at D:/Perl/lib/Test/Unit/Lite.pm line 607
# 	Test::Unit::TestSuite::run('Test::Unit::TestSuite=HASH(0x1a5ac2c)', 'Test::Unit::Result=HASH(0x1a5ab6c)', 'Test::Unit::HarnessUnit=HASH(0x1a5a7dc)') called at D:/Perl/lib/Test/Unit/Lite.pm line 756
# 	Test::Unit::TestRunner::start('Test::Unit::HarnessUnit=HASH(0x1a5a7dc)', 'ATest') called at D:\Tmp\001.pl line 26

除此之外,多个测试模块也可以通过命令行运行,把所有测试模块都放到 t/tlib 文件夹下,通过如下命令可以全部运行。

perl -MTest::Unit::Lite -e all_tests

可以自己看看代码,了解一下Unit Test 框架整体是如何运行,尝试去修改完善这个框架。

你可能感兴趣的:(Perl Test::Unit::Lite)