tests/testthat/test-is_unique_colum.R

In vvauditor: Creates Assertion Tests

test_that("returns TRUE for a column with unique values", {
  data_frame <- data.frame(id = c(1, 2, 3, 4, 5))
  expect_true(is_unique_column("id", data_frame))
})

test_that("returns FALSE for a column with duplicate values", {
  data_frame <- data.frame(id = c(1, 2, 3, 4, 5, 1))
  expect_false(is_unique_column("id", data_frame))
})