tests/testthat/test-helpers.R

In broom.helpers: Helpers for Model Coefficients Tibbles

test_that(".update_vector()", {
  # y vector must be named
  expect_error(
    .update_vector(letters, LETTERS)
  )
  expect_error(
    .update_vector(
      c(a = 2, b = 3),
      c(a = 1, d = 5, 4)
    )
  )
})

test_that(".superscript_numbers ()", {
  # works with non character vector
  expect_error(
    .superscript_numbers(1:4),
    NA
  )
})