tests/testthat/test_getAdmin.R

In womeimingzi11/amapGeocode: An Interface to the 'AutoNavi Maps' API Geocoding Services

# Test whether getAdmin can retrun right class
test_that("Reuturn detailed tibble with correct location", {
  skip_if(is.null(getOption("amap_key")))
  res <- getAdmin("四川省")
  lng_class <-
    class(res$lng)
  lng_is_na <-
    any(is.na(res$lng))
  expect_equal(lng_class, "numeric")
  expect_equal(lng_is_na, FALSE)
})

# Test whether getAdmin can retrun right class withou to_tibble
test_that("Reuturn raw respone with correct location", {
  skip_if(is.null(getOption("amap_key")))
  res <- getAdmin("四川省", output = "JSON")
  res_class <-
    class(res)

  expect_equal(any(stringr::str_detect(res_class, "list")), TRUE)
})

# Test whether getAdmin can retrun right class with wrong location
test_that("Reuturn NA tibble with wrong location", {
  skip_if(is.null(getOption("amap_key")))
  res <- getAdmin("place unkown")
  res_class <-
    class(res)
  expect_equal(any(stringr::str_detect(res_class, "data.frame")), TRUE)
  expect_equal(all(is.na(res)), TRUE)
})