tests/testthat/test-mermaid_get_sites.R

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

test_that("mermaid_get_sites returns a data frame of sites with the correct names", {
  skip_if_offline()
  skip_on_ci()
  skip_on_cran()
  output <- mermaid_get_sites(limit = 10)
  expect_named(output, sites_columns)
  expect_true(nrow(output) == 10)
  expect_is(output, "tbl_df")
})

test_that("mermaid_get_sites fails without authentication", {
  skip_if_offline()
  skip_on_ci()
  skip_on_cran()
  expect_error(mermaid_get_sites(token = NULL), "Unauthorized")
})