tests/testthat/test-google_place_details.R

In googleway: Accesses Google Maps APIs to Retrieve Data and Plot Maps

context("Google places details")


test_that("language is valid", {

  expect_error(google_place_details(language = c("english", "french")),
               "language must be a single string")

})

test_that("google place details is set",{

  g <- google_place_details(place_id = "abc", key = "abc")
  expect_true("html_attributions" %in% names(g))


})