tests/testthat/test-demand.R

In aemo: Download Australian Energy Market Operator Data

test_that("aemo_demand validates region", {
  expect_error(aemo_demand("ACT1", "2024-06-01", "2024-06-02"))
})

test_that("aemo_demand validates measure", {
  expect_error(aemo_demand("NSW1", "2024-06-01", "2024-06-02",
                           measure = "instantaneous"))
})

test_that("aemo_demand live fetch", {
  skip_on_cran()
  skip_if_offline()
  skip_if(Sys.getenv("AEMO_LIVE_TESTS") != "true",
          "Live network tests disabled by default.")
  d <- aemo_demand("VIC1", "2024-06-01", "2024-06-01 01:00:00")
  expect_s3_class(d, "aemo_tbl")
})