r - 如何使用 testthat 包使测试失败？

Question

我有一个测试，如果不满足先决条件（例如，丢失文件或其他东西），我想让它失败。

只是为了澄清，这是我想做的一个例子：

test_that("...", {
    if ( ... precondition to execute the test is not met... ) {
        expect_true(FALSE) # Make it fail without going further
    }

    expect_that( ... real test here ...)
})

现在我的问题是：在testthat包中是否有类似fail()的期望，或者我必须一直写？expect_true(FALSE)

Answer 1

暂时没有fail功能testthat。我想你想要类似的东西

fail <- function(message = "Failure has been forced.", info = NULL, label = NULL)
{
  expect_that(
    NULL,
    function(message)
    {
      expectation(FALSE, message) 
    },
    info,
    label
  )
}

用法是，例如，

test_that("!!!", fail())

Answer 2

失败不是一种选择...

尝试使用stop：

test_that("testingsomething", {
  if(file.exists("foo.txt")){
      stop("foo.txt already exists")
   }
  foo = writeFreshVersion("foo.txt")
  expect_true(file.exists("foo.txt"))
}
)