tests/testthat/test-use_pkg_gfont.R

test_that("use_pkg_gfont works", {

  tag <- use_pkg_gfont("roboto")
  deps <- htmltools::findDependencies(tag)

  expect_is(tag, "shiny.tag")
  expect_is(deps, "list")
  expect_true(length(deps) > 0)
})
dreamRs/gfonts documentation built on Jan. 25, 2023, 7:48 p.m.