tests/testthat/test-utilities-as-utf8.R

In jeanmathieupotvin/blueprint: Efficient data schemas generator for R

# Encoding returns UTF-8 for UTF-8 marked characters.
# ASCII character are never marked. Encoding() returns unknown for them.


test_that("as_utf8() generic works",
{
    # Test dispatch.
    # Any non UTF-8 R values should just be returned as is.
    expect_identical(as_utf8(list()), list())
    expect_identical(as_utf8(character()), character())
    expect_identical(as_utf8(double()), double())
})


test_that("as_utf8() works on atomic structures",
{
    struct <- c(unknown = "eagjh", unknown = "1234", `UTF-8` = "éèë½¾")

    # Test normal usage. Ensure encoding is UTF-8.
    expect_identical(as_utf8(struct), struct)
    expect_identical(Encoding(as_utf8(struct)), names(struct))
})


test_that("as_utf8() works on recursive structures",
{
    struct <- list(
        unknown = "eagjh",
        unknown = "1234",
        `UTF-8` = "é",
        recurse = list(
            `UTF-8` = "éèë½¾",
            `UTF-8` = "ê",
            unknown = "+-"
        )
    )
    encodings <- list(
        unknown = "unknown",
        unknown = "unknown",
        `UTF-8` = "UTF-8",
        recurse = list(
            `UTF-8` = "UTF-8",
            `UTF-8` = "UTF-8",
            unknown = "unknown"
        )
    )

    # Test normal usage. Ensure encoding is UTF-8.
    expect_identical(as_utf8(struct), struct)
    expect_identical(encodings, rapply(as_utf8(struct), Encoding, how = "replace"))
})