tests/testthat/test-check-scalar-validNames.R

In acidgenomics/goalie: Assertive Check Functions

test_that("TRUE", {
    ## Dots (periods) and underscores are valid.
    expect_true(validNames(c("sample.1", "sample_1")))
    ## Can't begin with a number.
    expect_false(nocause(validNames("293cells")))
})

test_that("FALSE", {
    ## Spaces, dashes (hyphens), and other non-alphanumerics aren't valid.
    expect_false(nocause(validNames("sample 1")))
    expect_false(nocause(validNames("cell-AAAAAAAA")))
    expect_false(nocause(validNames("GFP+")))
    expect_false(nocause(validNames(c("gene1", "gene1", "gene2", "gene2"))))
})