tests/testthat/test-utils.R

In quanteda.textplots: Plots for the Quantitative Analysis of Textual Data

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")
})