Perl中浮点等价的单元测试

Question

我正在使用Test::More在Perl中编写单元测试。我已经习惯了cxxunit中的一些结构，特别是我缺少TS_ASSERT_DELTA。对于那些没有见过TS_ASSERT_DELTA的人来说，它看起来像这样：

TS_ASSERT_DELTA( 1.0, 1.1, 0.5 );   // this test will pass
TS_ASSERT_DELTA( 1.0, 1.1, 1e-10 ); // this test will fail

是否有Perl等效的浮点比较？或者每个人都为此写了一个明显的功能？我目前正在处理这个问题：

sub compare_float_delta {
    my $n1    = shift;
    my $n2    = shift;
    my $delta = shift;
    return( abs($n1-$n2) < $delta );
}

对我来说，这似乎是测试框架应该提供的东西。这个想法是正确的，还是我应该调用float_compare_delta继续我的生活？

Answer 1

您可以使用CPAN中的特定模块：Test::Number::Delta

Answer 2

请参阅num function in Test::Deep。