tests/testthat/test_seqinfo.R

context("seqinfo")
test_that("seqinfo", {
  pv <- PreprocessViews2()
  expect_identical(seqlevels(pv), character())
  expect_is(seqinfo(pv), "Seqinfo")
  seqinfo(pv) <- Seqinfo()
})
cancer-genomics/trellis documentation built on Feb. 2, 2023, 7:04 p.m.