tests/testthat/test-internals.R

In rladies/meetupr: Meetup R API

test_that("meetup_call() success case", {
  vcr::use_cassette("quick_fetch", {
    res <- meetup_call(
      api_path = "rladies-nashville/events",
      event_status = "past"
      )
  })
  expect_equal(names(res), c("result", "headers"))
  expect_equal(res$headers$`content-type`, "application/json; charset=utf-8")
})

# TODO .fetch_results()

# TODO .fetch_results() no api key