tests/testthat/test-system_fonts.R

In systemfonts: System Native Font Finding

context("Font listing")

test_that("System fonts can be listed", {
  fonts <- system_fonts()
  expect_is(fonts, 'data.frame')
  expect_gt(nrow(fonts), 0)
  expect_named(fonts, c("path", "index", "name", "family", "style", "weight",
                        "width", "italic", "monospace"))
})