tests/testthat/test-add_col.R

In hadley/hadcol: Hadley's utilities for adding columns

context("test-add_col")

test_that("where controls position", {
  df <- data.frame(x = 1)
  
  expect_equal(
    add_col(df, "y", 2, where = 1),
    data.frame(y = 2, x = 1)
  )
  expect_equal(
    add_col(df, "y", 2, where = 2),
    data.frame(x = 1, y = 2)
  )
})