tests/testthat/test-mermaid_get_project_managements.R

In data-mermaid/mermaidr: Interface to the 'MERMAID' API

test_that("mermaid project managements return with the correct columns", {
  skip_if_offline()
  skip_on_ci()
  skip_on_cran()
  p <- mermaid_get_my_projects(limit = 2)
  output <- mermaid_get_project_managements(p, limit = 5)
  expect_named(output, c("project", project_managements_columns))
})