tests/testthat/test-mermaid_get_project_sites.R

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

test_that("mermaid project sites 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_sites(p, limit = 5)
  expect_named(output, c("project", cols_without_covars(project_sites_columns, covars_cols)))
})

test_that("mermaid project sites returns covariate cols if covariate = TRUE", {
  skip_if_offline()
  skip_on_ci()
  skip_on_cran()
  p <- mermaid_get_my_projects(limit = 2)
  output <- mermaid_get_project_sites(p, limit = 5, covariates = TRUE)
  expect_named(output, c("project", project_sites_columns))
})