tests/testthat/test-featured-event.R

In richierocks/yelp: Interface to the Yelp Fusion API

# Keeping this test for now, but it's flaky because the featured events are
# curated, and there isn't always a featured event for any given location.

context("featured_event")

old_token <- set_token()
old_locale <- set_yelp_locale()

# Try a few cities until one works
for(city in c("new york", "los angeles", "chicago", "houston", "phoenix")) {
  feat_event <- featured_event(city)
  if(nrow(feat_event) > 0) break
}
if(nrow(feat_event) > 0) {
  test_results_have_correct_form(
    feat_event,
    c("event_id", "name", "category", "description", "is_free", "cost",
      "cost_max", "business_id", "event_site_url", "image_url", "tickets_url",
      "interested_count", "attending_count", "time_start", "time_end",
      "is_canceled", "is_official", "latitude", "longitude", "address1",
      "address2", "address3", "city", "zip_code", "state", "country",
      "display_address", "cross_streets"
    ),
    c("character", "character", "character", "character", "logical",
      "numeric", "numeric", "character", "character", "character",
      "character", "integer", "integer", "character", "character",
      "logical", "logical", "numeric", "numeric", "character",
      "character", "character", "character", "character", "character",
      "character", "character", "character"
    ),
    fn_called = "featured_event"
  )
}

set_yelp_locale(old_locale)
unset_token(old_token)