tests/testthat/test-single_value.R

In janitor: Simple Tools for Examining and Cleaning Dirty Data

test_that("single_value", {
  expect_equal(single_value(1), 1)
  expect_equal(single_value(c(1, NA)), 1)
  expect_equal(single_value(c(1, NA, 1)), 1)
  expect_equal(single_value(NA_real_), NA)
  expect_equal(single_value(NA, missing=NA_real_), NA_real_)

  # Order of `missing` affects the output
  expect_equal(single_value("", missing = c(NA, "")), NA_character_)
  expect_equal(single_value(NA, missing = c("", NA)), "")

  # Check warn_if_all_missing
  expect_silent(single_value(NA))
  expect_warning(
    single_value(NA, warn_if_all_missing = TRUE),
    regexp = "All values are missing"
  )

  expect_error(
    single_value(1:2),
    regexp="More than one (2) value found (1, 2)",
    fixed=TRUE
  )
  expect_error(
    single_value(1:2, info="multiple"),
    regexp="More than one (2) value found (1, 2): multiple",
    fixed=TRUE
  )
})