tests/testthat/test-utils.R

In fmesher: Triangle Meshes and Related Geometry Tools

test_that("Call stack utilities", {
  fun_ok <- function() {
    1 + 1
  }
  fun_not_ok <- function() {
    stop("An error test")
  }

  expect_equal(fm_try_callstack(fun_ok()), 2)
  expect_equal(class(fm_try_callstack(fun_not_ok())), "try-error")
})

test_that("Package requirements handling", {
  expect_message(
    {
      require_fmesher <- fmesher:::fm_require_message("fmesher")
    },
    NA
  )
  expect_equal(require_fmesher, TRUE)

  expect_message(
    {
      require_unknown <- fmesher:::fm_require_message("this_package_really_should_not_exist")
    },
    "Please install 'this_package_really_should_not_exist'"
  )
  expect_equal(require_unknown, FALSE)

  expect_error(
    {
      fmesher:::fm_require_stop("this_package_really_should_not_exist")
    },
    "Please install 'this_package_really_should_not_exist'"
  )
})