tests/testthat/test-lookup_muni.R

In geobr: Download Official Spatial Data Sets of Brazil

context("lookup_muni")

# skip tests because they take too much time
skip_if(Sys.getenv("TEST_ONE") != "")
testthat::skip_on_cran()


# Reading the data -----------------------


test_that("lookup_muni", {

  # read data
  test_sf <- lookup_muni(name_muni = "fortaleza")
  test_sf2 <- lookup_muni(code_muni=2304400)
  test_sf3 <- lookup_muni(name_muni="all")
  test_sf4 <- lookup_muni(code_muni="all")

  # check sf object
  expect_true(is(test_sf, "data.frame"))
  expect_true(is(test_sf2, "data.frame"))
  expect_true(is(test_sf3, "data.frame"))
  expect_true(is(test_sf4, "data.frame"))

  # check number of cols
  expect_equal( ncol(test_sf), 13)

  # When using two arguments (supposed to give a warning)
  expect_warning(lookup_muni(name_muni="fortaleza", code_muni=2304400))
  expect_warning( lookup_muni(name_muni="arroz", code_muni=2304400) )

})


# ERRORS and messagens  -----------------------
test_that("lookup_muni", {

   expect_error(lookup_muni())

  # Wrong name
   expect_error(lookup_muni(name_muni="arroz"))

  # Wrong code
   expect_error(lookup_muni(code_muni=99999999))

})