tests/testthat/test-listPathways.R

In wikipathways/rWikiPathways: rWikiPathways - R client library for the WikiPathways API

library(rWikiPathways)
context("Lists")

test_that("pathways are found", {
  pathways = listPathways()
  expect_gt(length(pathways), 0)
})

test_that("Anopheles gambiae pathways are found", {
    pathways = listPathways(organism="Anopheles gambiae")
    expect_gt(length(pathways), 0)
})