tests/testthat/test-utils.R

In matt-dray/emojiscape: Randomised Emoji Scenes

test_that("get_emoji() works", {

  expect_identical(class(.get_emoji("arable")), "list")
  expect_identical(class(.get_emoji("city")), "list")
  expect_identical(class(.get_emoji("desert")), "list")
  expect_identical(class(.get_emoji("forest")), "list")
  expect_identical(class(.get_emoji("garden")), "list")
  expect_identical(class(.get_emoji("liminal")), "list")
  expect_identical(class(.get_emoji("mountains")), "list")
  expect_identical(class(.get_emoji("ocean")), "list")
  expect_identical(class(.get_emoji("pastoral")), "list")
  expect_identical(class(.get_emoji("polar")), "list")
  expect_identical(class(.get_emoji("rainforest")), "list")
  expect_identical(class(.get_emoji("sky")), "list")
  expect_identical(class(.get_emoji("space")), "list")
  expect_identical(class(.get_emoji("suburbs")), "list")
  expect_identical(class(.get_emoji("traffic")), "list")
  expect_identical(class(.get_emoji("undergrowth")), "list")
  expect_identical(class(.get_emoji("woods")), "list")

  expect_identical(length(.get_emoji("arable")), 3L)
  expect_identical(length(.get_emoji("city")), 3L)
  expect_identical(length(.get_emoji("desert")), 3L)
  expect_identical(length(.get_emoji("forest")), 3L)
  expect_identical(length(.get_emoji("garden")), 3L)
  expect_identical(length(.get_emoji("liminal")), 3L)
  expect_identical(length(.get_emoji("mountains")), 3L)
  expect_identical(length(.get_emoji("ocean")), 3L)
  expect_identical(length(.get_emoji("pastoral")), 3L)
  expect_identical(length(.get_emoji("polar")), 3L)
  expect_identical(length(.get_emoji("rainforest")), 3L)
  expect_identical(length(.get_emoji("sky")), 3L)
  expect_identical(length(.get_emoji("space")), 3L)
  expect_identical(length(.get_emoji("suburbs")), 3L)
  expect_identical(length(.get_emoji("traffic")), 3L)
  expect_identical(length(.get_emoji("undergrowth")), 3L)
  expect_identical(length(.get_emoji("woods")), 3L)

})

test_that(".get_sample() works", {

  emoji_set <- .get_emoji("ocean")

  grid_size <- 10
  prob_common <- 0.96
  prob_uncommon <- 0.03
  prob_rare <- 0.01

  emoji_sample <- .get_sample(
    emoji_set, grid_size, prob_common, prob_uncommon, prob_rare
  )

  expect_identical(class(emoji_sample), "character")
  expect_identical(length(emoji_sample), 100L)

})

test_that(".get_matrix() works", {

  emoji_set <- .get_emoji("ocean")

  grid_size <- 10
  prob_common <- 0.96
  prob_uncommon <- 0.03
  prob_rare <- 0.01

  emoji_sample <- .get_sample(
    emoji_set, grid_size, prob_common, prob_uncommon, prob_rare
  )

  emoji_matrix <- .get_matrix(emoji_sample, grid_size)

  expect_identical(class(emoji_matrix), c("matrix", "array"))
  expect_identical(length(emoji_matrix), 100L)

})