tests/testthat/test-add_col.R

In kelly-sovacool/foofactors: Make Factors Nice to Work With

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)
    )
})