tests/testthat/test-get_file_styles.R

In Rigma: Access to the 'Figma' API

test_that("GET file styles is OK!", {
  skip_on_cran()
  file_key <- "sFHgQh9dL6369o5wrZHmdR"
  resp <- get_file_styles(file_key = file_key)
  expect_s3_class(resp, "rigma_get_file_styles")
  expect_error(
    get_file_components(file_key = "foo"),
    "Not found"
  )
  expect_setequal(names(resp),  c("error", "status", "meta", "i18n"))
})