test_that("status works (skipped on CRAN)", {
  testthat::skip_on_cran()
  testthat::skip_if_not(nzchar(Sys.getenv("SCREENSHOTBASE_API_KEY", unset = "")), "No API key")
  expect_silent({
    res <- screenshotbase_status()
  })
})

test_that("take validates inputs without network", {
  expect_error(screenshotbase_take(123), "is.character")
  expect_error(screenshotbase_take("https://example.com", format = "bmp"), "Invalid format")
  expect_error(screenshotbase_take("https://example.com", quality = "hi"), "quality must be a single number")
})
test_that("status works (skipped on CRAN)", {
  testthat::skip_on_cran()
  testthat::skip_if_not(nzchar(Sys.getenv("SCREENSHOTBASE_API_KEY", unset = "")), "No API key")
  expect_silent({
    res <- screenshotbase_status()
  })
})

test_that("take validates inputs without network", {
  expect_error(screenshotbase_take(123), "is.character")
  expect_error(screenshotbase_take("https://example.com", format = "bmp"), "Invalid format")
  expect_error(screenshotbase_take("https://example.com", quality = "hi"), "quality must be a single number")
})