perl - 我应该在哪里放置 Perl .t 测试的通用实用函数？

Question

我开始使用 Test::More ，已经有一些 .t 测试脚本。现在我想定义一个函数，它只用于测试，但跨越不同的 .t 文件。放置这样一个函数的最佳位置在哪里？在没有任何测试的情况下定义另一个 .t 并在需要的地方 require 它？ (作为旁注，我使用由 Module::Starter 创建的模块结构)

Answer 1

最好的方法是将您的测试函数像任何其他函数集一样放入一个模块中。然后您可以使用 Test::Builder让您的测试诊断/失败消息表现得好像失败源自 .t 文件，而不是您的模块。

这是一个简单的例子。

package Test::YourModule;

use Test::Builder;
use Sub::Exporter -setup => { exports => ['exitcode_ok'] };  # or 'use Exporter' etc.

my $Test = Test::Builder->new;

# Runs the command and makes sure its exit code is $expected_code. Contrived!
sub exitcode_ok {
    my ($command, $expected_code, $name) = @_;

    system($command);
    my $exit    = $? >> 8;
    my $message = $!;

    my $ok = $Test->is_num( $exit, $expected_code, $name );
    if ( !$ok ) {
        $Test->diag("$command exited incorrectly with the error '$message'");
    }

    return $ok;
}

在你的脚本中:

use Test::More plan => 1;
use Test::YourModule qw(exitcode_ok);
exitcode_ok('date', 0, 'date exits without errors');