4

我正在使用 Perl 编写单元测试Test::More。我已经习惯了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 并继续我的生活?

4

2 回答 2

7

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

于 2012-06-26T08:56:25.400 回答
6

请参阅 中的num函数Test::Deep

于 2012-06-26T10:33:47.753 回答