tests/testthat/test-zc_readings.R

In rzentra: Client for the 'ZENTRA Cloud' API

context("zc_readings")

token <- Sys.getenv("ZC_TOKEN")
test_that("zc_statuses returns errors", {
  expect_error(zc_readings(token = "aaa", sn = "z6-00033"),
               regexp = "Invalid token.")
  skip_if(token == "")
  expect_error(zc_readings(token = token, sn = "aaa"),
               regexp = "Missing query string parameter.")
})

skip_if(token == "")
readings <- zc_readings(token = token,
                        sn = "z6-00033",
                        start_time = as.numeric(as.POSIXct(Sys.Date(), origin = "1970-01-01"))
)

test_that("zc_statuses works as expected", {
  expect_is(readings, "list")
  expect_true(
    all(names(readings) %in% c("device", "get_readings_ver", "created")))
})