tests/testthat/test-crawl.R

test_that("crawl works (paging search results w > 200 hits)", {
  t1 <- xsearch_crawl(query = "corona", database = "swepub")$content
  expect_gt(nrow(t1), 200)
})
KTH-Library/XsearchLIBRIS documentation built on Jan. 29, 2025, 5:14 p.m.