| Marc Kupietz | 623d712 | 2025-05-25 12:46:12 +0200 | [diff] [blame] | 1 | test_that("fetchNext works with maxFetch", { |
| 2 | skip_if_offline() |
| Marc Kupietz | 5170411 | 2025-06-26 14:32:16 +0200 | [diff] [blame^] | 3 | kco <- KorAPConnection(verbose = TRUE, cache = FALSE, accessToken = NULL) |
| Marc Kupietz | 623d712 | 2025-05-25 12:46:12 +0200 | [diff] [blame] | 4 | q <- kco %>% corpusQuery("Test", "pubDate since 2014", fields = c("sigle")) |
| 5 | q <- fetchNext(q, maxFetch = 75) |
| 6 | expect_equal(nrow(q@collectedMatches), 75) |
| 7 | cat("\n") |
| 8 | q <- fetchNext(q, maxFetch = 100) |
| 9 | expect_equal(nrow(q@collectedMatches), 175) |
| 10 | }) |
| 11 | |
| 12 | test_that("fetchNext works with randomizePageOrder", { |
| 13 | skip_if_offline() |
| Marc Kupietz | 5170411 | 2025-06-26 14:32:16 +0200 | [diff] [blame^] | 14 | kco <- KorAPConnection(verbose = TRUE, cache = FALSE, accessToken = NULL) |
| Marc Kupietz | 623d712 | 2025-05-25 12:46:12 +0200 | [diff] [blame] | 15 | q <- kco %>% corpusQuery("Test", "pubDate since 2014", fields = c("sigle")) |
| 16 | q <- fetchNext(q, maxFetch = 175, randomizePageOrder = T) |
| 17 | expect_equal(nrow(q@collectedMatches), 175) |
| 18 | cat("\n") |
| 19 | q <- fetchNext(q, maxFetch = 50, randomizePageOrder = T) |
| 20 | expect_equal(nrow(q@collectedMatches), 225) |
| 21 | }) |