Fix ETA logging in fetchNext
Change-Id: I8fc6047f3b5c53f00c9da61641e0983cbf24f70d
diff --git a/tests/testthat/test-fetch.R b/tests/testthat/test-fetch.R
new file mode 100644
index 0000000..33d18f9
--- /dev/null
+++ b/tests/testthat/test-fetch.R
@@ -0,0 +1,22 @@
+test_that("fetchNext works with maxFetch", {
+ skip_if_offline()
+ kco <- KorAPConnection(verbose = TRUE, cache = FALSE)
+ 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)
+ 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)
+})
+