失败时报告来自 test_that 块的额外信息

Question

我想在测试失败的情况下向控制台发送cat() 一些信息（我确信这不会发生，但我无法证明它不会发生），以便我可以调查问题。

现在我的代码大致如下：

testthat::test_that('Maybe fails', {
  seed <- as.integer(Sys.time())
  set.seed(seed)
  
  testthat::expect_true(maybe_fails(runif(100L)))
  testthat::expect_equal(long_vector(runif(100L)), target, tol = 1e-8)

  if (failed()) {
    cat('seed: ', seed, '\n')
  }
})

很遗憾，failed() 不存在。

expect_*() 的返回值似乎没有用，它们只是返回实际参数。

我正在考虑使用all.equal() 再次检查，但这是一个非常丑陋的重复。

Answer 1

除了使用cat，您可以使用testthat 管理的info 参数及其reporters 用于所有expect 函数(argument kept for compatibility reasons)：

library(testthat)

testthat::test_that("Some tests",{
  
  testthat::expect_equal(1,2,info=paste('Test 1 failed at',Sys.time()))
  testthat::expect_equal(1,1,info=paste('Test 2 failed at',sys.time()))

})
#> -- Failure (<text>:5:3): Some tests --------------------------------------------
#> 1 not equal to 2.
#> 1/1 mismatches
#> [1] 1 - 2 == -1
#> Test 1 failed at 2021-03-03 17:25:37