tests/testthat/test_trends_available.R

In mkearney/rtw: Collecting Twitter Data

context("trends_available")

test_that("trends_available returns data frame", {
	skip_on_cran()

	x <- trends_available()

  expect_equal(is.data.frame(x), TRUE)
  expect_named(x)
  expect_true(all(c("name", "woeid") %in% names(x)))
  expect_gt(nrow(x), 5)
  expect_gt(ncol(x), 2)
	expect_equal(as.integer(subset(x, name == "Worldwide", select = "woeid")), 1)
})