tests/testthat/test-nyc_nypd_hate_crimes.R

In nycOpenData: Convenient Access to NYC Open Data API Endpoints

test_that("nyc_nypd_hate_crimes returns a tibble and respects limits", {
  # This 'cassette' will be saved in tests/fixtures/nyc_311_test.yml
  vcr::use_cassette("nyc_nypd_hate_crimes_test", {

    # We use a small limit (2) to keep the recording file small
    results <- nyc_nypd_hate_crimes(limit = 2)

    # Assertions: What should be true?
    expect_s3_class(results, "tbl_df")
    expect_equal(nrow(results), 2)
  })
})

test_that("nyc_nypd_hate_crimes throws errors for bad inputs", {
  # This touches the new 'stop' lines you just added
  expect_error(nyc_nypd_hate_crimes(limit = "a string"))
  expect_error(nyc_nypd_hate_crimes(filters = "not a list"))
})