tests/testthat/test-make_encoding_key.R

test_that("make_encoding_key() returns a vector of the correct length", {
  expect_vector(make_encoding_key(c("Mammal", "Bird", "Mammal", "Fish")), size = 3)
})

test_that("key returned by make_encoding_key() contains all the input values", {
  expect_setequal(names(make_encoding_key(c("Mammal", "Bird", "Mammal", "Fish"))), c("Bird", "Fish", "Mammal"))
})
JonasEngstrom/primr documentation built on June 9, 2022, 9:43 p.m.