commit 5170411a03c08fb33d206418bc1a5c55048521f6
author Marc Kupietz <kupietz@ids-mannheim.de> Thu Jun 26 14:32:16 2025 +0200
committer Marc Kupietz <kupietz@ids-mannheim.de> Thu Jun 26 15:40:50 2025 +0200
tree d0b7faee124aa53f2a7d7c5469c44959747c1b39
parent e70faf42710491c677e111d427adae1c1e9c0345

Tests: make sure accessToken is NULL

Change-Id: I9cc4407cdeaf0a10e2b209f7604943f3a4a38bde

tests/testthat/test-fetch.R

diff --git a/tests/testthat/test-fetch.R b/tests/testthat/test-fetch.R
index 33d18f9..f374f46 100644
--- a/tests/testthat/test-fetch.R
+++ b/tests/testthat/test-fetch.R
@@ -1,6 +1,6 @@
 test_that("fetchNext works with maxFetch", {
   skip_if_offline()
-  kco <- KorAPConnection(verbose = TRUE, cache = FALSE)
+  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)
@@ -11,7 +11,7 @@
 
 test_that("fetchNext works with randomizePageOrder", {
   skip_if_offline()
-  kco <- KorAPConnection(verbose = TRUE, cache = FALSE)
+  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)
@@ -19,4 +19,3 @@
   q <- fetchNext(q, maxFetch = 50, randomizePageOrder = T)
   expect_equal(nrow(q@collectedMatches), 225)
 })
-