tests/testthat/test-regsaude_female_pop.R

In brpop: Brazilian Population Estimatives

test_that("datasus regsaude_female_pop works", {
  res <- regsaude_female_pop(source = "datasus")

  expect_equal(143748, nrow(res))
})

test_that("ufrn regsaude_female_pop works", {
  res <- regsaude_female_pop(source = "ufrn")

  expect_equal(141540, nrow(res))
})

test_that("datasus regsaude_female_pop with reg saude 449 works", {
  res <- regsaude_female_pop(type = "reg_saude_449", source = "datasus")

  expect_equal(178200, nrow(res))
})

test_that("ufrn regsaude_female_pop with reg saude 449 works", {
  res <- regsaude_female_pop(type = "reg_saude_449", source = "ufrn")

  expect_equal(188580, nrow(res))
})