stem_words.r tested

DataS-DHSC · Dec 2, 2024 · b748e24 · b748e24
1 parent 6aabbaa
commit b748e24
Showing 1 changed file with 13 additions and 0 deletions.
diff --git a/tests/testthat/test-stem_words.R b/tests/testthat/test-stem_words.R
@@ -0,0 +1,13 @@
+test_that("stemming works", {
+  x <- c("win", "winning", "winner", NA)
+
+  # test with no exceptions
+
+  expect_equal(stem_words(x), c("win", "win", "winner", NA))
+
+  # test with single exception
+  expect_equal(
+    stem_words(x, exceptions = "winning"),
+    c("win", "winning", "winner", NA)
+  )
+})