Run CA tests without access token on CC-licensed data
Change-Id: Ic8cdc479639308e88f55d7427d95bca0939b4c1f
diff --git a/tests/testthat/test-collocations.R b/tests/testthat/test-collocations.R
index 0c17144..55eed12 100644
--- a/tests/testthat/test-collocations.R
+++ b/tests/testthat/test-collocations.R
@@ -10,8 +10,20 @@
})
test_that("collocationAnalysis works", {
- kco <- new("KorAPConnection", cache = TRUE, verbose = TRUE)
- df <- collocationAnalysis(kco, "Ameisenplage", leftContextSize=0, rightContextSize=1, topCollocatesLimit=1, exactFrequencies=FALSE)
+ kco <- new("KorAPConnection",
+ accessToken = NULL,
+ verbose = TRUE)
+ df <-
+ collocationAnalysis(
+ kco,
+ "focus([tt/p=ADJA] {Newstickeritis})",
+ vc = "corpusSigle=/W.D17/",
+ leftContextSize = 1,
+ rightContextSize = 0,
+ searchHitsSampleLimit = 100,
+ topCollocatesLimit = 1,
+ exactFrequencies = FALSE
+ )
expect_gt(df$O, df$E)
expect_gt(df$logDice, 1)
})