tests/testthat/test_search_by_latlng.R

In rjkhan/RCourse-lab5: Google geocode Api integration

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)
})