tests/testthat/test-read_labels_file.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)
  check_labels_table(labels_table)
})

test_that("abuse", {
  expect_error(
    read_labels_file(labels_filename = "abs.ent"),
    "abs.ent"
  )
})