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"))
})
Generated by dwww version 1.15 on Fri May 24 02:35:51 CEST 2024.