tests/testthat/test-fonts.R

context("fonts")

test_that("font function returns vector of fonts", {
  x <- show_trekfonts()
  expect_is(x, "character")
  expect_equal(length(x), length(trekfonts))
  expect_equal(length(x), 107)
})

Try the trekfont package in your browser

Any scripts or data that you put into this service are public.

trekfont documentation built on June 1, 2021, 5:10 p.m.