tests/testthat/test-column_map.R

In ropensci/qualtRics: Download 'Qualtrics' Survey Data

test_that("column_map() retrieves survey column mapping", {

  vcr::use_cassette("column_map", {
    x <- column_map("SV_5BJRo2RGHajIlOB")
  })

  expect_s3_class(x, c("tbl_df","tbl","data.frame"))
  expect_named(x, c("qname", "qid", "choice", "textEntry"))
  expect_type(x$qname, "character")
  expect_type(x$qid, "character")
  expect_type(x$choice, "character")
  expect_type(x$textEntry, "character")

})