通过testthat::expect_equal()测试绝对差异的优雅方法

Question

我目前正在用testthat::expect_equal()实现单元测试。对于testthat版本3，除非输入值之间的差异非常小，否则这会测试相对差异，在这种情况下，测试是基于绝对差度量的。是否有一种优雅的方法来强迫expect_equal使用绝对距离度量，即使$x$和$y$之间的差异并不小？

下面是一个链接，介绍expect_equal的文档。

谢谢!

Answer 1

当然，检验绝对差异的一种方法是通过expect_true() --例如，假设X = 1、Y = 1.05和绝对差允许为0.1。

然后你就可以写

library(testthat)

X <- 1
Y <- 1.05
tolerance <- 0.1
expect_true(abs(X - Y) < tolerance)