tests/testthat/test-api.R

In medrxivr: Access and Search MedRxiv and BioRxiv Preprint Data

test_that("Check data inputs return the same no. of results", {
  skip_on_cran()
  skip_if_offline()
  skip_if_api_message()

  mx1 <-
    mx_search(
      data = mx_snapshot("6c4056d2cccd6031d92ee4269b1785c6ec4d555b"),
      query = "dementia",
      from_date = "2019-01-01",
      to_date = "2020-01-01"
    )

  mx_data <-
    mx_api_content(
      from_date = "2019-01-01",
      to_date = "2020-01-01",
      include_info = TRUE
    )

  mx2 <-
    mx_search(
      data = mx_data,
      query = "dementia"
    )

  expect_equal(nrow(mx1), nrow(mx2))
})

test_that("Check number of columns in include_info output", {
  skip_on_cran()
  skip_if_offline()
  skip_if_api_message()
  mx_data <-
    mx_api_content(
      from_date = "2019-01-01",
      to_date = "2020-01-01",
      include_info = TRUE
    )
  expect_equal(ncol(mx_data), 20)
})

test_that("Check number of columns in output", {
  skip_on_cran()
  skip_if_offline()
  skip_if_api_message()
  expect_equal(ncol(mx_api_doi("10.1101/2020.02.25.20021568")), 14)
})

test_that("Server not recognised", {
  skip_if_offline()
  expect_error(mx_api_content(server = "medRxiv"))
  expect_error(mx_api_doi(server = "medRxiv"))
})