tests/testthat/test-system-file.R

In mark: Miscellaneous, Analytic R Kernels

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))
})