tests/testthat/test_collapseGenes.R

In steveped/extraChIPs: Additional functions for working with ChIP-Seq data

genes <- c("A10", "A2")

test_that("collapseGenes returns the correct output", {
  x <- collapseGenes(genes)
  expect_true(is(x, "glue"))
  expect_equal(as.character(x), "_A2_ and _A10_")
})

test_that("collapseGenes handles nulls", {
  y <- collapseGenes(NULL)
  expect_true(is(y, "glue"))
  expect_equal(length(y), 0)
})