perl Testing读书笔记(跳过所有测试）

使用plan()函数，可以直接跳过当前测试文件中所有的测试项目。

接下来的示例用于检查今天是否为星期二，若不是则跳过整个测试。

测试代码 skip_all.pl

#!/usr/bin/perl

use Test::More;

if( [ localtime ] -> [6] != 2 ) {
 plan( skip_all => 'only run these tests on Tuesday' );
}else {
 plan( tests => 1);
}

require Tuesday;
my $day = Tuesday->new();
ok( $day->coat(), 'we brought our coat' );

被测模块   Tuesday.pm

package Tuesday;

sub new {
 bless {}, shift;
}

sub coat {
 return [ localtime ] ->[6] == 2;
}

1;

D:\loveperl>perl skip_all.pl
1..0 # Skip only run these tests on Tuesda

D:\loveperl>perl skip_all.pl
1..1
not ok 1 - we brought our coat
#   Failed test 'we brought our coat'
#   at skip_all.pl line 13.
# Looks like you failed 1 test of 1.

D:\loveperl>perl skip_all.pl
1..1
ok 1 - we brought our coat

运行结果