tests/testthat/test-grangesUtils.R

In jsemple19/nanodsmf: Analyse nanopore dual enzyme single molecule footprinting data (nanoDSMF)

library(testthat)
library(nanodsmf)

context("The DNAstringset2gr function")
test_that("The conversion works",{
  expect_equal(DNAstringset2gr(genomeFile),genomeGR)
})



context("The BSgenome2gr function")
test_that("The conversion works",{
  expect_equal(BSgenome2gr(BSgenome.Celegans.UCSC.ce11::Celegans),genomeGR)
})