diff --git a/tests/testthat/test-derekovecs.R b/tests/testthat/test-derekovecs.R
index 7fd4980..d007f4e 100644
--- a/tests/testthat/test-derekovecs.R
+++ b/tests/testthat/test-derekovecs.R
@@ -38,3 +38,7 @@
   expect_true(freq %>% is.numeric & freq > 0)
 })
 
+test_that("corpusSize works", {
+  size <- corpusSize()
+  expect_true(size %>% is.numeric & size > 1000)
+})