tests/testthat/test-sf_availability.R

In ggseg.formats: Brain Atlas Data Structures for the 'ggsegverse' Ecosystem

describe("has_sf()", {
  it("returns a logical scalar", {
    expect_type(has_sf(), "logical")
    expect_length(has_sf(), 1)
  })

  it("reports FALSE when sf is not installed", {
    local_mocked_bindings(
      is_installed = function(...) FALSE,
      .package = "rlang"
    )
    expect_false(has_sf())
  })
})

describe("require_sf()", {
  it("returns invisible TRUE when sf is installed", {
    skip_if_not_installed("sf")
    expect_invisible(require_sf("an operation"))
    expect_true(require_sf("an operation"))
  })

  it("aborts with a pointer to the polygon alternative when sf is missing", {
    local_mocked_bindings(
      is_installed = function(...) FALSE,
      .package = "rlang"
    )
    expect_error(require_sf("atlas_sf()"), "sf")
  })
})