tests/testthat/test-str_col_names.R

In pfc5098/analystrpc: This package is like a junior analyst assistant

test_that("str_col_names works", {
  expect_equal(
    purrr::map(
      c("Sepal", "Petal", "Length", "Width"),
      ~ str_col_names(iris, .x)
    ),
    list(
      c("Sepal.Length", "Sepal.Width"),
      c("Petal.Length", "Petal.Width"),
      c("Sepal.Length", "Petal.Length"),
      c("Sepal.Width", "Petal.Width")
    )
  )
})