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", {
diff --git a/tests/testthat/test-corpusQuery.R b/tests/testthat/test-corpusQuery.R
index 7ef9e00..bf7c373 100644
--- a/tests/testthat/test-corpusQuery.R
+++ b/tests/testthat/test-corpusQuery.R
@@ -141,7 +141,8 @@
   expect_true(TRUE %in% grepl("reine", left_contexts))
 
   right_contexts <- matches$tokens$right
-  expect_true(TRUE %in% grepl("Begriff", right_contexts))
+  expect_true(any(lengths(right_contexts) > 0))
+  expect_true(any(grepl("^[[:alpha:]]{3,}$", unlist(right_contexts))))
 })
 
 test_that("matchStart and matchEnd are present and correct", {
@@ -297,6 +298,7 @@
   expect_true(TRUE %in% grepl("reine", left_contexts))
 
   right_contexts <- matches$tokens$right
-  expect_true(TRUE %in% grepl("Begriff", right_contexts))
+  expect_true(any(lengths(right_contexts) > 0))
+  expect_true(any(grepl("^[[:alpha:]]{3,}$", unlist(right_contexts))))
 })