tests/testthat/test-path-list.R

In babelomics/hipathia: HiPathia: High-throughput Pathway Analysis

## Marta R. Hidalgo

library(hipathia)
context("Get pathway list")

data("comp")
mgi <- load_pathways("hsa", pathways_list = c("hsa03320", "hsa04012"))
paths <- get_pathways_list(mgi)

test_that("Class is correct", {
    expect_is(paths, "character")
})

test_that("Length is correct", {
    expect_equal(length(paths), length(mgi$pathigraphs))
})

test_that("Pathways are correct", {
    expect_true(all(paths %in% names(mgi$pathigraphs)))
})