tests/testthat/test-read_municipality.R

In geobr: Download Official Spatial Data Sets of Brazil

context("read_municipality")

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


test_that("read_municipality", {

  # read data
  test_1970 <- read_municipality(code_muni=1100205, year=1970)
  test_2010 <- read_municipality(code_muni=1100205, year=2010)

  # check sf object
  testthat::expect_true(is(test_1970, "sf"))
  testthat::expect_true(is(test_2010, "sf"))

  testthat::expect_true(is(  read_municipality( year=1970)  , "sf"))
  testthat::expect_true(is(  read_municipality(code_muni=11, year=1970)  , "sf"))
   # testthat::expect_true(is(  read_municipality(code_muni=11, year=1970, simplified = F) , "sf"))
  # testthat::expect_true(is(  read_municipality(code_muni='all', year=1970) , "sf"))
  # testthat::expect_true(is(  read_municipality(code_muni='all', year=1970, simplified = F) , "sf"))
  testthat::expect_true(is(  read_municipality(code_muni='AC', year=1970) , "sf"))
  testthat::expect_true(is(  read_municipality(code_muni=1100205, year=1970) , "sf"))

  testthat::expect_true(is(  read_municipality() , "sf"))
  testthat::expect_true(is(  read_municipality( year=2010) , "sf"))
  # testthat::expect_true(is(  read_municipality(code_muni=11, year=2010) , "sf"))
  testthat::expect_true(is(  read_municipality(code_muni=11, year=2010, simplified = F) , "sf"))
  # testthat::expect_true(is(  read_municipality(code_muni='all', year=2010) , "sf"))
  # testthat::expect_true(is(  read_municipality(code_muni='all', year=2010, simplified = F) , "sf"))
  testthat::expect_true(is(  read_municipality(code_muni='AC', year=2010)  , "sf"))
  testthat::expect_true(is(  read_municipality(code_muni=1200179, year=2010) , "sf"))

})


# ERRORS
test_that("read_municipality", {

  # Wrong code
  testthat::expect_error(read_municipality(code_muni=9999999, year=2010))
  testthat::expect_error(read_municipality(code_muni=9999999, year=1970))
  testthat::expect_error(read_municipality(code_muni=5201108312313213, year=2010))
  testthat::expect_error(read_municipality(code_muni=5201108312313213, year=1970))
  testthat::expect_error(read_municipality(code_muni=NULL))

  testthat::expect_error(read_municipality(code_muni="RJ_ABC", year=2010))
  testthat::expect_error(read_municipality(code_muni="RJ_ABC", year=1970))
  testthat::expect_error(read_municipality(code_muni="AAA", year=2010))
  testthat::expect_error(read_municipality(code_muni="AAA", year=1970))


  # Wrong year
  testthat::expect_error(read_municipality( year=9999999))
  testthat::expect_error(read_municipality( year='SASa'))
  testthat::expect_error(read_municipality( year=NULL))
  testthat::expect_error(read_municipality( showProgress = 'aaaaa'))
  testthat::expect_error(read_municipality( showProgress = NULL))
  testthat::expect_error(read_municipality( simplified = 'aaaaa'))
  testthat::expect_error(read_municipality( simplified = NULL))

})