Tests: make sure accessToken is NULL
Change-Id: I9cc4407cdeaf0a10e2b209f7604943f3a4a38bde
diff --git a/tests/testthat/test-page-numbering.R b/tests/testthat/test-page-numbering.R
index 9e2b8ec..a75dba4 100644
--- a/tests/testthat/test-page-numbering.R
+++ b/tests/testthat/test-page-numbering.R
@@ -2,7 +2,7 @@
test_that("page numbering is displayed correctly in sequential mode", {
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"))
# Capture output - we need to use sink to capture the actual console output
@@ -47,7 +47,7 @@
test_that("page numbering and ETA are displayed correctly in randomized mode", {
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"))
# Set a fixed seed for reproducible tests
@@ -95,7 +95,7 @@
test_that("page numbering and ETA are displayed correctly in subsequent calls with randomized mode", {
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"))
# Set a fixed seed for reproducible tests