tests/testthat/test-find_location.R

In jcrodriguez1989/rflights: Query Plane Tickets using the 'Kiwi' API

context("find_location")

test_that("can find Cordoba location", {
  skip_if_offline()
  skip_on_cran()
  loc <- find_location("Cordoba")
  expect_true(nrow(loc) > 0)
})

test_that("no locations for wrong char", {
  skip_if_offline()
  skip_on_cran()
  loc <- find_location("WrongLocation")
  expect_true(length(loc) == 0)
})