tests/testthat/test-CleverWordCloud.R

In UBC-MDS/clevercloudr: Creating Meaningful and Visually Appealing Word Clouds!

test_that("Non-string input value for CleverWordCloud should throw an error", {
  expect_error(CleverWordCloud(2, 6))
  expect_error(CleverWordCloud(list("text", c("a", "k"))))
})

test_that("When vectors are passed as strings, it should return an empty wordcloud", {
  expect_visible(CleverWordCloud("Victor Amelia Billy Arushi Adrianne", list("Billy")))
})