Adapt tests to the new DeReKo-KorAP-2026-II release
Co-Authored-By: Claude Opus 5 <noreply@anthropic.com>
Change-Id: I3825fbc5a5f34f1117ce69eb8418169c1a605a90
diff --git a/tests/testthat/test-collocations.R b/tests/testthat/test-collocations.R
index 5b4db98..ee72c65 100644
--- a/tests/testthat/test-collocations.R
+++ b/tests/testthat/test-collocations.R
@@ -115,8 +115,10 @@
),
"access token"
)
- expect_gt(df$O, df$E)
- expect_gt(df$logDice, -1)
+ expect_true(all(df$O > df$E))
+ reine <- df[df$collocate == "reine", ]
+ expect_equal(nrow(reine), 1)
+ expect_gt(reine$logDice, -1)
})
test_that("collocationAnalysis on unaccounted strings does not error out", {