tests/testthat/test-fixCompartments.R

In biobenkj/compartmentalizer: Higher-order chromatin domain inference in single samples from methylation arrays and single cells from scRNA-seq and scATAC-seq

test_that("flipper", {
  gr <- GRanges(c("chr1:1-10", "chr1:10-20"))
  cols <- list('b' = c(1, 2))
  mcols(gr) <- cols
  expect_error(
    compartmap:::flipper(gr, min.conf = 0.8),
    "Bootstrapping was not performed. Cannot fix compartments.",
    fixed = TRUE
  )

  #gr.conf <- gr
  #cols.conf <- list('conf.est' = c(1, 2))
  #mcols(gr.conf) <- cols.conf
})