tests/testthat/test-colnames.R

In checkr: Check the Properties of Common R Objects

context("colnames")

test_that("colnames", {
  
  data <- data.frame(x = 1, y = 2, z = 0)
  expect_identical(check_colnames(data, c("y", "x")), data)
  
  expect_error(check_colnames(data, c("y", "x"), exclusive = TRUE), "data column names must include and only include 'y' and 'x'")
  expect_error(check_colnames(data, c("y", "x"), order = TRUE), "data column names must include 'y' and 'x' in that order") 
  expect_error(check_colnames(data, c("a")), "data column names must include 'a'")
  
  expect_identical(check_colnames(data), data)
  expect_error(check_colnames(data, exclusive = TRUE), "data must not have any columns")
  
  data <- data.frame()
  expect_identical(check_colnames(data), data)
  expect_identical(check_colnames(data, exclusive = TRUE), data)
})