diff --git a/tests/testthat/test-derekovecs.R b/tests/testthat/test-derekovecs.R
index 91ec5d1..25778cf 100644
--- a/tests/testthat/test-derekovecs.R
+++ b/tests/testthat/test-derekovecs.R
@@ -23,3 +23,12 @@
   cosSim <- cosineSimilarity("Test", "testen")
   expect_true(cosSim >= 0 & cosSim <= 1.0)
 })
+
+test_that("wordEmbedding works", {
+  expect_equal(wordEmbedding("Test") %>% length, 200)
+})
+
+test_that("frequencyRank works", {
+  rank <- frequencyRank("Test")
+  expect_true(rank %>% is.numeric & rank > 0)
+})