函數expect_that從testthat遇到錯誤

Question

任何人都可以幫助我解釋為什么expect_that如果[]被添加到停止消息時不起作用，即f1有效，但f2沒有。

library(testthat)
f1 <- function(x){
  if(  x >= 1 ){
    stop("error 1")
  }
}
expect_that(f1(x=1.4), throws_error("error 1"))
f2 <- function(x){
  if(  x >= 1 ){
    stop("error [1]")
  }
}
expect_that(f2(x=1.4), throws_error("error [1]"))

Answer 1

expect_that正在尋找一個匹配錯誤的正則表達式 ，所以你需要轉義方括號，以便它們按字面解釋而不是作為模式定義：

expect_that(f2(x=1.4), throws_error("error \\[1\\]"))

似乎工作。

或者您可以指定fixed=TRUE ：

expect_that(f2(x=1.4), throws_error("error [1]", fixed = TRUE))