test_that("alert works", {
  expect_error(use_labels(qualtrics_numeric), "Data frame does not have proper Qualtrics labels")
  expect_error(use_labels(qualtrics_fetch, NA))
})

test_that("labels are correct", {
  expect_true(colnames(qualtrics_numeric)[1] == "StartDate")
  expect_true(colnames(qualtrics_fetch)[1] == "StartDate")
  expect_true(colnames(use_labels(qualtrics_fetch))[1] == "Start Date")
  expect_true(colnames(qualtrics_fetch)[16] == "Q1_Resolution")
  expect_true(colnames(use_labels(qualtrics_fetch))[16] == "Resolution")
})

test_that("dataframes without resolution are OK", {
  expect_no_error(use_labels(qualtrics_fetch %>% dplyr::select(!contains("Resolution"))))
})