tests/testthat/test-makeLabel.R

In steinbaugh/syntactic: Syntactically Valid Names

test_that("makeLabel", {
    expect_identical(
        object = vapply(
            X = mw,
            FUN = makeLabel,
            FUN.VALUE = character(1L),
            USE.NAMES = FALSE
        ),
        expected = c(
            "log10 genes per UMI",
            "mito vs. coding",
            "words already",
            "NASA",
            "n gene"
        )
    )
})