tests/testthat/test-get_status.R

In maestro: Orchestration of Data Pipelines

test_that("get_status returns a data.frame", {
  schedule <- build_schedule(test_path("test_pipelines_run_all_good"), quiet = TRUE)
  schedule <- run_schedule(schedule, orch_frequency = "hourly")

  expect_s3_class(
    get_status(schedule),
    "data.frame"
  )
}) |>
  suppressMessages()

test_that("errors if schedule is not a MaestroSchedule", {
  expect_error({
    get_status(iris)
  }, regexp = "Schedule must be an object")
})