tests/testthat/test-add-missing-column.R

In poissonconsulting/tidyplus: Additional 'tidyverse' Functions

test_that("add_missing_column same as add_column", {
  data <- tibble::tibble(x = 1:3, y = 3:1)

  expect_identical(
    add_missing_column(data, z = -1:1),
    tibble::add_column(data, z = -1:1)
  )
})

test_that("add_missing_column same as add_column with before", {
  data <- tibble::tibble(x = 1:3, y = 3:1)

  expect_identical(
    add_missing_column(data, z = -1:1, .before = "y"),
    tibble::add_column(data, z = -1:1, .before = "y")
  )
})

test_that("add_missing_column same as add_column with after", {
  data <- tibble::tibble(x = 1:3, y = 3:1)

  expect_identical(
    add_missing_column(data, z = -1:1, .after = "x"),
    tibble::add_column(data, z = -1:1, .after = "x")
  )
})

test_that("add_column errors if present", {
  data <- tibble::tibble(x = 1:3, y = 3:1)

  expect_error(tibble::add_column(data, x = 2:4))
})

test_that("add_missing_column ignores if present", {
  data <- tibble::tibble(x = 1:3, y = 3:1)

  expect_identical(add_missing_column(data, x = 2:4), data)
})