tests/testthat/test-dict_generate.R

In lyh970817/qualtdict: Generating Variable Dictionaries and Labelled Data Exports of Qualtrics Surveys

test_that("dict_generate", {
  vcr::use_cassette("dict_generate", {
    suppressWarnings(
      x <- dict_generate("SV_0AQg1pFepA0V2d0", name = "easy_name")
    )
  })

  expect_snapshot_value(x, style = "json2")
})