tests/testthat/test_dict.R

In JohnCoene/oRion: Integrate R & Cheetah Mobile Orion

library(oRion)

context("dict family")

test_that("errors", {
  skip_on_cran()
  expect_error(dictCity())
  expect_error(dictState())
})

test_that("locations", {
  skip_on_cran()
  cred <- readRDS("cred.RDS")
  orionOAuth(client.id = cred$client.id, client.secret = cred$clien.secret)
  country <- dictCountry()
  expect_equal(nrow(country), 249)
  states <- dictState(country.code = "US")
  expect_equal(nrow(states), 54)
  set.seed(19880525)
  cities <- dictCity(state.code = sample(states$code, 1))
  expect_equal(nrow(cities), 541)
  set.seed(25051988)
  cities <- dictCity(state.code = sample(states$code, 1))
  expect_equal(nrow(cities), 405)
})

test_that("other", {
  skip_on_cran()
  cred <- readRDS("cred.RDS")
  orionOAuth(client.id = cred$client.id, client.secret = cred$clien.secret)
  expect_equal(nrow(dictBehaviour()), 11)
  expect_equal(nrow(dictDevice()), 47)
  expect_equal(nrow(dictLanguage()), 178)
  expect_more_than(nrow(dictOS()), 13)
  expect_equal(nrow(dictInterest()), 180)
})