龙笔记软件测试,perl Testing(读书笔记（标注测试项目为TODO)

如果某些被测试的项目还没有完成，但是测试驱动程序已经完成，那么久将这些还未完成的被测试项目在驱动程序中标注为TODO。测试报告会跟踪这些被测项目的状态，直到开发完成。

被测模块，File::Future，其中函数retrieve还未完成。

package File::Future;

use strict;

sub new {

my ( $class, $filename ) = @_;

bless { filename => $filename }, $class;

}

sub retrieve {

# implement later...

}

1;

测试脚本如下：

#!/usr/bin/perl

use Test::More tests => 4;

use File::Future;

my $file = File::Future->new( 'perl_testing_dn.pod' );

isa_ok( $file, 'File::Future' );

TODO: {

local $TODO = 'continuum not yet harnessed';

ok( my $current = $file->retrieve( 'January 30, 2005' ) );

ok( my $future  = $file->retrieve( 'January 30, 2070' ) );

cmp_ok( length($current), '

}

运行结果如下：

D:\loveperl>perl future.pl

1..4

ok 1 - The object isa File::Future

not ok 2 # TODO continuum not yet harnessed

#   Failed (TODO) test at future.pl line 12.

not ok 3 # TODO continuum not yet harnessed

#   Failed (TODO) test at future.pl line 13.

not ok 4 - ensuring that we added text by 2070 # TODO continuum not yet harnesse

d

#   Failed (TODO) test 'ensuring that we added text by 2070'

#   at future.pl line 15.

#     '0'

#         <

#     '0'

其中的TODO确实失败了，但本来我们的期望就是如此，所以测试报告也是认为这也是测试成功的情况。

如果标注为TODO的测试项目确实通过了测试，这个测试会在报告当中说明这些意外获得成功的测试。