commit ff43863ffb860e24b54ba35f229d182a62cc1240
author „feldmueller“ <„feldmueller@posteo.de“> Tue Oct 24 17:17:04 2023 +0200
committer „feldmueller“ <„feldmueller@posteo.de“> Tue Oct 24 17:17:04 2023 +0200
tree 3f5a0034566b4776eee9d68ab140dd9170cb3699
parent db9bb1a203113817c0f391d04f168c01741f6dd7

add tests for wordEmbedding and frequencyRank

Change-Id: I9076607123ac33e4f690bceadedf6ffc6f6c4ed1

tests/testthat/test-derekovecs.R

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)
+})