r - testthat 中的否定条件

Question

是否可以在 test_that() 或 expect_XXX() 调用中写入否定条件？具体来说，我想测试一个不包含子字符串的字符串，比如：

expect_that("Apples, Oranges, Banana", !matches('Onion'))

或者

expect_not_match("Apples, Oranges, Banana", 'Onion')

我知道我可以将 expect_true() 与例如 grep 结合使用：

expect_true(length(grep("Onion", "Apples, Oranges, Banana")) == 0)

但这似乎不太可读。

Answer 1

怎么样testthat::not？

expect_that("Apples, Oranges, Banana", not(matches('Onion')))​​​​​​