tests/integrated/test-misc.R

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

test_that("audit_logs work", {
  logs <- client$audit_logs()
  expect_gt(length(logs$results), 0)

  logs2 <- client$audit_logs(nxt = logs$paging$cursors$`next`)
  expect_gt(length(logs2$results), 0)
})

test_that("server_settings work", {
  ss <- client$server_settings()

  expect_gt(length(ss), 0)
})