tests/testthat/test_string.R

In AstraZeneca/qscheck: qscheck

test_that("variableBeingAString", {
  expect_true(is_string_value("ada"))
  expect_true(is_string_value(""))
  expect_false(is_string_value("", allow_empty = FALSE))
  expect_true(is_string_value(NA_character_, allow_na = TRUE))
  expect_false(is_string_value(2))
  expect_false(is_string_value(NA_character_, allow_na = FALSE))
  expect_false(is_string_value(NA_character_))
  # check for non-string NA (logical in this case.
  # Should return false as it's not a string)
  expect_false(is_string_value(NA, allow_na = TRUE))
  expect_false(is_string_value(c("foo", "bar")))

  expect_error(
    assertthat::assert_that(is_string_value(4)),
    "4 must be a string. Passed value is not a character"
  )
})

test_that("variableVectorStrings", {
  v <- c("foo", "bar", "baz")
  expect_true(is_string_vector(v))
  expect_false(is_string_vector(NULL))
  expect_true(is_string_vector(NULL, allow_null = TRUE))
  expect_false(is_string_vector(v, exact_length = 4))
  expect_false(is_vector(v, min_length = 4))
  expect_true(is_vector(v, max_length = 4))
  expect_false(is_vector(v, max_length = 2))
  expect_true(is_vector(v, exact_length = 3, max_length = 2))

  v2 <- "hello"
  expect_true(is_string_vector(v2))

  expect_error(
    assertthat::assert_that(is_string_vector(v, exact_length = 4)),
    paste0("v must be a string vector of exact length 4 with no NAs. ",
    "Passed vector length is 3 instead of the expected 4"))

  expect_error(
    assertthat::assert_that(is_string_vector(v, min_length = 4)),
    paste0(
      "v must be a string vector of length not less than 4",
      " with no NAs.",
      " Passed vector length is 3 but must be at least 4"))

  expect_error(
    assertthat::assert_that(is_string_vector(v, max_length = 2)),
    paste0(
    "v must be a string vector of length not greater than 2",
    " with no NAs.",
    " Passed vector length is 3 but must be at most 2"))

  expect_error(
    assertthat::assert_that(
      is_string_vector(v, min_length = 4, max_length = 8)),
    paste0(
      "v must be a string vector of length between 4 and 8 inclusive",
      " with no NAs.",
      " Passed vector length is 3 but must be at least 4"))
})