tests/testthat/test-suso_gql_questionnaires.R

In susographql: Comprehensive Interface to the Survey Solutions 'GraphQL' API

test_that("check success result", {
  testthat::skip_on_cran()

  ep = Sys.getenv("SUSO_API_EP")
  usr =  Sys.getenv("SUSO_API_USER")
  pass =  Sys.getenv("SUSO_API_PASSWORD")

  testthat::skip_if(suso_gql_pwcheck(ep, usr, pass, workspace = "primary")==400, "No valid connection/credentials.")

  res<-suso_gql_questionnaires(
    endpoint = Sys.getenv("SUSO_API_EP"),
    user =  Sys.getenv("SUSO_API_USER"),
    password =  Sys.getenv("SUSO_API_PASSWORD"),
    workspace = "primary"
  )
  # top level
  expect_equal(names(res), "questionnaires")
  # next one
  expect_equal(names(res$questionnaires), c("totalCount","filteredCount","nodes"))
})