1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
context("test-get_dbs_context")
## Get GRangesList with DBS.
dbs_grl <- readRDS(system.file("states/blood_grl_dbs.rds",
package = "MutationalPatterns"
))
## Set context dbs
output <- get_dbs_context(dbs_grl)
expected <- readRDS(system.file("states/blood_grl_dbs_context.rds",
package = "MutationalPatterns"
))
test_that("Output has correct class", {
expect_true(inherits(output, c("GRanges", "CompressedGRangesList")))
})
test_that("Output is equal to expected", {
expect_equal(output, expected)
})
|
