tests/testthat/test-check_labels_table.R

In richelbilderbeek/gcaer: Interface to GCAE

test_that("use", {
  labels_filename <- get_gcaer_filename("gcae_input_files_1_labels.csv")
  labels_table <- read_labels_file(labels_filename = labels_filename)
  expect_silent(check_labels_table(labels_table))
})

test_that("use", {
  labels_table <- get_test_labels_table()
  labels_table$population <- "A"
  expect_error(
    check_labels_table(labels_table),
    "All populations must be unique"
  )
})