tests/testthat/test-enum.R

test_that("Check key-value mappings work", {
  myEnum <- enum(c(a = "b"))

  expect_equal(
    enumPutList("c", "d", myEnum),
    list(a = "b", c = "d")
  )

  expect_equal(
    enumPutList("c", list(12, 2, "a"), myEnum),
    list(a = "b", c = list(12, 2, "a"))
  )

  expect_equal(
    enumPutList("a", list(12, 2, "a"), myEnum, overwrite = TRUE),
    list(a = list(12, 2, "a"))
  )

  expect_error(enumPutList("a", list(12, 2, "a"), myEnum))

  expect_error(enumPutList(c("c", "d", "g"), list(12, 2, "a"), myEnum, overwrite = TRUE))
})
esqLABS/esqlabsR documentation built on April 17, 2025, 10:51 a.m.