tests/testthat/test-check-lga-name.R

In njtierney/conmat: Builds Contact Matrices using GAMs and Population Data

test_that("check_lga_name() returns the right shape", {
  expect_silent(check_lga_name("Albury (C)"))
})

test_that("check_lga_name() errors when there's an incorrect name", {
  expect_snapshot(
    error = TRUE,
    check_lga_name("Imaginary World")
  )
})

test_that("check_lga_name() errors when the name is ambiguous", {
  expect_snapshot(
    error = TRUE,
    check_lga_name("Sydney")
  )
})