Explicitly set accessToken to NULL in all tests
Change-Id: Id98d918b9668a8ea5720e790835a34604c52b350
diff --git a/tests/testthat/test-KorAPConnection.R b/tests/testthat/test-KorAPConnection.R
index b62aba2..0755b08 100644
--- a/tests/testthat/test-KorAPConnection.R
+++ b/tests/testthat/test-KorAPConnection.R
@@ -1,5 +1,5 @@
test_that("KorAPConnection fails gracefully on unresolvable host", {
- expect_message(new("KorAPConnection", apiUrl="http://xxx.asdhsahdsadhvgas.org"), "No internet|Could not resolve")
+ expect_message(new("KorAPConnection", accessToken = NULL, apiUrl="http://xxx.asdhsahdsadhvgas.org"), "No internet|Could not resolve")
})
test_that("KorAPConnection fails gracefully on timeout", {
@@ -11,13 +11,13 @@
})
test_that("KorAPConnection is printable", {
- kco <- new("KorAPConnection", timeout = 1)
+ kco <- new("KorAPConnection", accessToken = NULL, timeout = 1)
skip_if(is.null(kco@welcome))
expect_error(print(kco), NA)
})
test_that("Opening KorAPConnection prints some message.", {
- expect_message(new("KorAPConnection"), "KorAP")
+ expect_message(new("KorAPConnection", accessToken = NULL), "KorAP")
})
test_that("Opening KorAPConnection with invalid apiToken fails gracefully", {
@@ -26,7 +26,7 @@
})
test_that("Persisting null apiToken fails", {
- kco <- new("KorAPConnection", timeout = 3)
+ kco <- new("KorAPConnection", accessToken = NULL, timeout = 3)
skip_if_not(is.null(kco@accessToken))
skip_if(is.null(kco@welcome))
expect_error(persistAccessToken(kco),
@@ -35,8 +35,8 @@
})
test_that("Opening KorAPConnection with KorAPUrl works", {
- kco <- new("KorAPConnection", KorAPUrl="https://korap.ids-mannheim.de", timeout = 1)
+ kco <- new("KorAPConnection", accessToken = NULL, KorAPUrl="https://korap.ids-mannheim.de", timeout = 1)
expect_equal(kco@apiUrl, paste0("https://korap.ids-mannheim.de/api/", kco@apiVersion, "/"))
- kco <- new("KorAPConnection", KorAPUrl="https://korap.ids-mannheim.de/", timeout = 1)
+ kco <- new("KorAPConnection", accessToken = NULL, KorAPUrl="https://korap.ids-mannheim.de/", timeout = 1)
expect_equal(kco@apiUrl, paste0("https://korap.ids-mannheim.de/api/", kco@apiVersion, "/"))
})