Perl中如何进行单元测试

在Perl中进行单元测试通常使用Test::Simple或Test::More模块。以下是一个简单的示例：

use Test::Simple tests => 3;

sub add {
    my ($num1, $num2) = @_;
    return $num1 + $num2;
}

ok(add(1, 2) == 3, 'Adding 1 and 2');
ok(add(5, 5) == 10, 'Adding 5 and 5');
ok(add(-1, 1) == 0, 'Adding -1 and 1');

在这个示例中，我们使用Test::Simple模块来执行3个单元测试。我们定义了一个简单的add函数，然后使用ok函数来检查add函数的返回值是否符合预期。

您也可以使用Test::More模块来进行更高级的单元测试，例如使用diag函数输出调试信息，使用cmp_ok函数进行比较操作等。