tests/testthat/test_api_response.R

test_that("Testing api response", {
  skip_on_cran()
  expect_error(get_forms("XXX"), regexp = "403")
}
)

test_that("Testing get_api", {
  skip_on_cran()
  if (nchar(Sys.getenv("typeform_api2")) == 0) return(invisible(TRUE))
  api2 = Sys.getenv("typeform_api2")
  expect_equal(get_api(), Sys.getenv("typeform_api2"))
  Sys.unsetenv("typeform_api2")

  expect_error(get_api())
  Sys.setenv("typeform_api" = 10)

  expect_error(get_api(), regexp = "Old")
  expect_equal(get_api("test"), "test")

  Sys.setenv("typeform_api2" = api2)

})
csgillespie/rtypeform documentation built on Feb. 5, 2025, 5:14 a.m.