tests/testthat/test-fonts.R

test_that("st_font returns as expected when optional packages are installed", {
  skip_on_appveyor()
  skip_on_cran()

  x <- st_font()
  expect_is(x, "character")
  expect_equal(length(x), 107)
  x <- st_font("Federation")
  expect_is(x, c("gg", "ggplot"))
})
leonawicz/rtrek documentation built on Sept. 18, 2023, 11:29 p.m.