tests/testthat/test-task.R

In connectapi: Utilities for Interacting with the 'Posit Connect' Server API

without_internet({
  test_that("Query params to get task", {
    con <- Connect$new(server = "https://connect.example", api_key = "fake")
    expect_GET(
      con$task("asdf"),
      "https://connect.example/__api__/v1/tasks/asdf?first=0&wait=5"
    )
  })
})