Nothing
context("city list")
test_that("search by city name", {
# prepare
city <- "Kassel"
# act
result <- search_city_list(city)
# assert
country_code_expected <- "DE"
expect_equal(result$countryCode, country_code_expected)
})
test_that("search by city name and country code", {
# prepare
city <- "^Malaga"
country_code <- "ES"
# act
result <- search_city_list(city, country_code)
# assert
lng_expected <- -4.42034
expect_equal(result$lon, lng_expected)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.