tests/testthat/test_epmc_search.r

In njahn82/rebi: R Interface to the Europe PubMed Central RESTful Web Service

context("testing epmc_search")

test_that("epmc_search returns", {
  skip_on_cran()
  a <- epmc_search(query='Gabi-Kat')
  b <- epmc_search(query = 'DOI:10.1007/bf00197367')
  c <- epmc_search(query = 'EXT_ID:22246381')
  d <- epmc_search(query = 'ISSN:1553-7404 HAS_EMBL:y')
  e <- epmc_search(query = 'ISSN:1553-7404', output = 'id_list',
                   limit = 250)
  f <- epmc_search(query = 'ISSN:1553-7404 HAS_EMBL:y', limit = 25)
 # g <- epmc_search(query = 'aspirin', synonym = TRUE)
  h <- epmc_search(query = 'ISSN:1932-6203', sort = 'cited')
  i <- epmc_search('gabi-kat', limit = 125, output = 'raw')
  j <- epmc_search('123haha')
  k <- lapply(c('kdkdkdkdkdkd', 'najko'),
              function(x) epmc_search(x, output = 'raw'))
  l <- epmc_search(query = 'ISSN:	1932-6203', sort = 'date')



  #correct class metadata
  expect_is(a, "data.frame")
  expect_is(b, "data.frame")
  expect_is(c, "data.frame")
  expect_is(d, "data.frame")
  expect_is(e, "data.frame")
#  expect_is(g, "data.frame")
  expect_is(h, "data.frame")
  expect_is(i, "list")
  expect_is(k, "list")
  expect_is(l, "data.frame")

  #are diminsions correct?
  expect_equal(nrow(e), 250)
  expect_equal(ncol(e), 4)
  expect_equal(nrow(f), 25)
  expect_equal(nrow(h), 100)
  expect_equal(length(i), 125)
  expect_equal(nrow(l), 100)


  # fails correctly
  expect_message(epmc_search("123haha"),
                 "There are no results matching your query")
  expect_null(j)
  expect_error(epmc_search(query = "malaria", limit = TRUE))
  expect_error(epmc_search(query = "malaria", verbose = "kdk"))
  expect_error(epmc_search(query = "malaria", synonym = "yes"))
  expect_error(epmc_search(query = "malaria", output = "djd"))
})

test_that("epmc_search synonym parameter works", {
  skip_on_cran()
  a <- epmc_search("malaria")
  b <- epmc_search("malaria", synonym = FALSE)
  c <- epmc_search("jupyter")
  d <- epmc_search("jupyter", synonym = FALSE)

  expect_gte(attr(a, "hit_count"), attr(b, "hit_count"))
  expect_gte(attr(c, "hit_count"), attr(d, "hit_count"))
})