tests/testthat/test-02-wrapper.R

In lepennec/ggwordcloud: A Word Cloud Geom for 'ggplot2'

context("test-wrapper")

data("love_words_latin_small")

test_that("ggwordcloud does not crash", {
  expect_is({
    set.seed(42)
    print(ggwordcloud(love_words_latin_small$word, love_words_latin_small$speakers))
  }, "ggplot")
})

test_that("ggwordcloud works with random.color = TRUE", {
  expect_is({
    set.seed(42)
    print(ggwordcloud(love_words_latin_small$word, love_words_latin_small$speakers, random.color = TRUE))
  }, "ggplot")
})

test_that("ggwordcloud works with random.order = FALSE", {
  expect_is({
    set.seed(42)
    print(ggwordcloud(love_words_latin_small$word, love_words_latin_small$speakers, random.order = FALSE))
  }, "ggplot")
})

test_that("ggwordcloud2 does not crash", {
  expect_is({
    set.seed(42)
    print(ggwordcloud2(love_words_latin_small[, c("word", "speakers")]))
  }, "ggplot")
})

test_that("ggwordcloud2 works with random-light color", {
  expect_is({
    set.seed(42)
    print(ggwordcloud2(love_words_latin_small[, c("word", "speakers")],
      color = "random-light"
    ))
  }, "ggplot")
})

test_that("ggwordcloud2 works with explicit colors", {
  expect_is({
    set.seed(42)
    print(ggwordcloud2(love_words_latin_small[, c("word", "speakers")],
      color = sample(c("black", "red", "green"),
        nrow(love_words_latin_small),
        replace = TRUE
      )
    ))
  }, "ggplot")
})