diff --git a/tests/testthat/test-CriteriaComparison.R b/tests/testthat/test-CriteriaComparison.R
index 5d1ff874..8856adbb 100644
--- a/tests/testthat/test-CriteriaComparison.R
+++ b/tests/testthat/test-CriteriaComparison.R
@@ -1,9 +1,11 @@
 test_that("TADA_PairForCriteriaCalc function does not grow dataset", {
+  
   testdat1 <- TADA_RandomTestingData(
-    choose_random_state = FALSE,
+    choose_random_state = TRUE,
     number_of_days = 1,
-    autoclean = 
+    autoclean = TRUE
   )
+  
   testdat2 <- TADA_PairForCriteriaCalc(testdat1)
   expect_true(dim(testdat1)[1] == dim(testdat2)[1])
 })