tests/testthat/test-fetch.R

In RKorAPClient: 'KorAP' Web Service Client Package

test_that("fetchNext works with maxFetch", {
  skip_if_offline()
  kco <- KorAPConnection(verbose = TRUE, cache = FALSE, accessToken = NULL)
  q <- kco %>% corpusQuery("Test", "pubDate since 2014", fields = c("sigle"))
  q <- fetchNext(q, maxFetch = 75)
  expect_equal(nrow(q@collectedMatches), 75)
  cat("\n")
  q <- fetchNext(q, maxFetch = 100)
  expect_equal(nrow(q@collectedMatches), 175)
})

test_that("fetchNext works with randomizePageOrder", {
  skip_if_offline()
  kco <- KorAPConnection(verbose = TRUE, cache = FALSE, accessToken = NULL)
  q <- kco %>% corpusQuery("Test", "pubDate since 2014", fields = c("sigle"))
  q <- fetchNext(q, maxFetch = 175, randomizePageOrder = T)
  expect_equal(nrow(q@collectedMatches), 175)
  cat("\n")
  q <- fetchNext(q, maxFetch = 50, randomizePageOrder = T)
  expect_equal(nrow(q@collectedMatches), 225)
})