Perl 测试模式

使用 Test2::V0、Test::More、prove 和 TDD 方法论为 Perl 应用程序提供全面的测试策略。

何时激活

• 编写新的 Perl 代码（遵循 TDD：红、绿、重构）
• 为 Perl 模块或应用程序设计测试套件
• 审查 Perl 测试覆盖率
• 设置 Perl 测试基础设施
• 将测试从 Test::More 迁移到 Test2::V0
• 调试失败的 Perl 测试

TDD 工作流程

始终遵循 RED-GREEN-REFACTOR 循环。

# Step 1: RED — Write a failing test
# t/unit/calculator.t
use v5.36;
use Test2::V0;

use lib 'lib';
use Calculator;

subtest 'addition' => sub {
    my $calc = Calculator->new;
    is($calc->add(2, 3), 5, 'adds two numbers');
    is($calc->add(-1, 1), 0, 'handles negatives');
};

done_testing;

# Step 2: GREEN — Write minimal implementation
# lib/Calculator.pm
package Calculator;
use v5.36;
use Moo;

sub add($self, $a, $b) {
    return $a + $b;
}

1;

# Step 3: REFACTOR — Improve while tests stay green
# Run: prove -lv t/unit/calculator.t

Test::More 基础

标准的 Perl 测试模块 —— 广泛使用，随核心发行。

基本断言

use v5.36;
use Test::More;

# Plan upfront or use done_testing
# plan tests => 5;  # Fixed plan (optional)

# Equality
is($result, 42, 'returns correct value');
isnt($result, 0, 'not zero');

# Boolean
ok($user->is_active, 'user is active');
ok(!$user->is_banned, 'user is not banned');

# Deep comparison
is_deepl…