tests/testthat/test-utils-idcol_find.R

In dataset: Create Data Frames that are Easier to Exchange and Reuse

test_that("idcol_find() works", {
  expect_equal(idcol_find(iris_dataset, "rowid"), 1)
})

test_that("idcol_find() works", {
  mtcars2 <- mtcars
  mtcars2$rowid <- 1:nrow(mtcars)
  expect_equal(idcol_find(mtcars2, "rowid"), 12)
  expect_error(idcol_find(mtcars2, "bowid"))
})