tests/testthat/test-system-file.R

test_that("make_sf() ~works~ doesn't fail", {
  expect_type(sf0 <- make_sf("foo"), "closure")
  expect_identical(sf0, sf, ignore_function_env = TRUE)
  expect_identical(sf0(23232), "")
  expect_error(sf0(23232, check = TRUE))
})
jmbarbone/jordan documentation built on April 1, 2024, 7:46 p.m.