r - 包中的expect_not_equal :testthat

Question

我想使用“testthat”来测试两个值是否不相等。我可以使用类似的东西来测试相等性

expect_that(x, equals(y))

但是，如果我期望它们不相等呢？我可以用

expect_false(x == y)

这是正确的方法还是有类似的东西

expect_that(x, not_equals(y))

Answer 1

函数testthat::equals()真的是一个包装all.equal .所以你可以像这样构建你的测试:

x <- 1:5
y <- 2:6
expect_false(isTRUE(all.equal(x, y)))
expect_false(isTRUE(all.equal(x+1, y)))
Error: isTRUE(all.equal(x + 1, y)) isn't false

您需要使用 isTRUE在那里，因为 all.equal如果其参数不相等，则返回一个字符串。