tests/testthat/test-unifont.R

In trevorld/hexfont: 'GNU Unifont' Hex Fonts

test_that("unifont() works", {
    skip_on_os("windows")
    skip_if_not(l10n_info()[["UTF-8"]])

    # Mandarin Chinese
    verify_output("txt/mandarin.txt", {
        s <- "\uff32\u5f88\u68d2\uff01"
        font <- unifont(ucp = str2ucp(s))
        bm <- as_bm_bitmap(s, font = font)
        print(bm)
    }, unicode = TRUE)

    # Emoji
    verify_output("txt/emoji.txt", {
        s <- "\U0001f42d\U0001f432\U0001f435"
        font <- unifont(ucp = str2ucp(s))
        bm <- as_bm_bitmap(s, font = font)
        print(bm)
    }, unicode = TRUE)
})