context("search_by_latlng")
#input validation
test_that("Wrong input throws an error.", {
expect_error(search_by_latlng("100", 1000))
expect_error(search_by_latlng(100, "1000"))
expect_error(search_by_latlng(TRUE, "1000"))
expect_error(search_by_latlng(c(1,2,3), c(3,3,3)))
})
#validation function
test_that("API: search_by_latlng().", {
expect_is(search_by_latlng, class = "function",
info = "Object 'search_by_latlng' is not a function.")
})
#validation of lengthoutput
test_that("output is correct", {
result <- search_by_latlng(23.9000025,90.5091047)
expect_equal(length(result) , 5,1)
})
#validation of lengthoutput
test_that("invalid long input", {
result <- search_by_latlng(23.9000025,90.5091047)
expect_equal(length(result) , 5,1)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.