tests/testthat/test-owid_get_catalog.R

In owidapi: Access the Our World in Data Chart API

test_that("owid_get_catalog returns expected catalog structure", {
  skip_if_offline()

  result <- owid_get_catalog()

  expect_s3_class(result, "tbl_df")
  expect_gt(nrow(result), 0)
})

test_that("owid_get_catalog handles snake_case", {
  skip_if_offline()

  result <- owid_get_catalog(snake_case = FALSE)

  expect_s3_class(result, "tbl_df")
  expect_gt(nrow(result), 0)
})

test_that("owid_get_catalog handles request errors gracefully", {
  with_mocked_bindings(
    req_perform = function(...) {
      cli_abort("Mocked network error")
    },
    {
      expect_message(
        owid_get_catalog(),
        regexp = "Failed to retrieve data from Our World in Data\\."
      )
    }
  )
})