tests/testthat/test-utils.R

In attempt: Tools for Defensive Programming

context("test-utils.R")

test_that("try_catch_builder works", {
  a <- try_catch_builder(log, "a", .e = "error")
  expect_is(a, "call")
  expect_match(as.character(a)[1], "try_catch")
  expect_match(as.character(a)[2], "log")
  a <- try_catch(expr = .Primitive("log")("a"), .e = ~ return(.x))
  expect_is(a, "error")
  a <- try_catch_df_builder(log, "a", .e = "error")
  expect_is(a, "call")
  expect_match(as.character(a)[1], "try_catch")
  expect_match(as.character(a)[2], "log")
})