4、Perl 测试技巧与方法全解析

Perl 测试技巧与方法全解析

跳过所有测试

在某些情况下，我们可能需要跳过整个测试文件的执行。例如，在平台 Y 上测试平台 X 特定的功能可能不会产生有意义的结果。 Test::More 模块为此提供了有用的语法。

操作步骤如下：
1. 使用 plan 函数来确定测试计划，而不是在 use 语句中指定测试数量。
2. 以下是一个示例代码 skip_all.t ，用于检查当前是否为周二，如果不是则跳过所有测试：

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' );

3. Tuesday.pm 文件代码如下：

package Tuesday;
sub new
{
    bless { }, shift;
}
# wear a coat only on Tuesday
su