tests/testthat/test-getPathwayInfo.R

library(rWikiPathways)
context("Pathway")

test_that("get WP4", {
  info = getPathwayInfo("WP4")
  expect_that(info$id, equals("WP4"))
})

test_that("get WP4 (again)", {
  info = getPathwayInfo(pathway="WP4")
  expect_that(info$id, equals("WP4"))
})
egonw/rwikipathways documentation built on May 12, 2021, 1:40 a.m.