tests/testthat/helper.R

In pointblank: Data Validation and Organization of Metadata for Local and Remote Tables

expect_equal_unlist <- function(object, expected, ...) {
  expect_equal(
    unlist(object),
    expected
  )
}

skip_if_not_utf8 <- function() {
  # likely on Windows for R < 4.2
  skip_if_not(l10n_info()$`UTF-8`)
}