tests/testthat/test-surveys.R

context("surveys")

test_that("surveys() gives expected output", {
  svy_tbl <- surveys()
  expect_named(svy_tbl, c("id", "name", "owner_id", "last_modified",
      "is_active"), ignore.order = TRUE)
})
jamesdunham/qsurvey documentation built on May 18, 2019, 11:20 a.m.