test_that("check_font is working", { # skip_on_os("windows") # skip_on_os("mac") skip_on_cran() expect_error(quanteda.textplots:::check_font("XXXXX"), "XXXXX is not found on your system") # expect_equal(quanteda.textplots:::check_font("Ubuntu"), "Ubuntu") expect_equal(quanteda.textplots:::check_font("sans"), "sans") expect_equal(quanteda.textplots:::check_font("serif"), "serif") expect_equal(quanteda.textplots:::check_font("mono"), "mono") })