Perl 中浮点等价的单元测试答案

【问题标题】：Unit Testing for Floating-Point Equivalence in PerlPerl 中浮点等价的单元测试
【发布时间】：2012-06-26 08:45:01
【问题描述】：

我正在使用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 继续我的生活？

【问题讨论】：

【解决方案1】：

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

【讨论】：

【解决方案2】：

请参阅num function in Test::Deep。

【讨论】：