tests/testthat/test-format.R

In gcfrench/store: Store commonly used functions and lookups

# extract_comma_delimited_list
test_that("comma delimited list extracted", {
  expect_equal(extract_comma_delimited_list(tibble::tibble(last_three_letters = c("x", "y", "z")),
                                            column_name = "last_three_letters"),
               "x, y, z")
})

test_that("comma delimited list excludes NA", {
  expect_equal(extract_comma_delimited_list(tibble::tibble(last_three_letters = c("x", NA_character_)),
                                            column_name = "last_three_letters"),
               "x")
})

test_that("NA returns NA", {
  expect_true(is.na(extract_comma_delimited_list(tibble::tibble(last_three_letters = c(NA_character_)),
                                           column_name = "last_three_letters")))
})

test_that("comma delimited list sorts string", {
  expect_equal(extract_comma_delimited_list(tibble::tibble(last_three_letters = c("y", "x")),
                                            column_name = "last_three_letters", sort = TRUE),
               "x, y")
})

test_that("comma delimited list returns unique string", {
  expect_equal(extract_comma_delimited_list(tibble::tibble(last_three_letters = c("x", "x")),
                                            column_name = "last_three_letters", unique_list = TRUE),
               "x")
})

test_that("delimiter text added to the last two items", {
  expect_equal(extract_comma_delimited_list(tibble::tibble(last_three_letters = c("x", "y", "z")),
                                            column_name = "last_three_letters", last_delimiter = " and "),
               "x, y and z")
})

# extract_semicolon_delimited_list
test_that("semi-colon delimited list extracted", {
  expect_equal(extract_semicolon_delimited_list(tibble::tibble(last_three_letters = c("x", "y", "z")),
                                            column_name = "last_three_letters"),
               "x; y; z")
})

# extract_space_delimited_list
test_that("space delimited list extracted", {
  expect_equal(extract_space_delimited_list(tibble::tibble(last_three_letters = c("x", "y", "z")),
                                                column_name = "last_three_letters"),
               "x y z")
})

# add_tibble_to_list
test_that("tibble added to list", {
  expect_equal(add_tibble_to_list(tibble::tibble(last_three_letters = c("x", "y", "z")),
                                  .name = "last_three_letters"),
               list(last_three_letters = tibble::tibble(last_three_letters = c("x", "y", "z"))))
})