diff --git a/tests/testthat/test-get_regions.R b/tests/testthat/test-get_regions.R index c19dd12..044bd92 100644 --- a/tests/testthat/test-get_regions.R +++ b/tests/testthat/test-get_regions.R @@ -1,8 +1,18 @@ options("iscream.threads" = 1) - regions <- c("chr1:1-6", "chr1:7-10", "chr1:11-14") gr <- GenomicRanges::GRanges(regions) +with_mocked_bindings( + { + expect_error( + get_granges_string(gr), + "The 'GenomicRanges' package must be installed for this functionality" + ) + }, + requireNamespace = function(package, ..., quietly=FALSE) FALSE, + .package="base" +) + test_that("Test GRanges to string", { expect_equal(get_granges_string(gr), regions) })