tests/testthat/test-GetPubMedInfoMaker.R

context("createPubMedInfoArtifact")

test_that("getPubMedInfo provides expected output", {
  pubmedIds <- c("28130404", "31491384", "29081779", "26682988", "31636302", "30842675")
  res <- ImmuneSpaceCron:::getPubMedInfo(pubmedIds)
  template <- readRDS("datasets/pubMedInfoResults.rds")
  expect_equivalent(res, template)
})
RGLab/ImmuneSpaceCronjobs documentation built on Jan. 11, 2023, 5:30 a.m.