tests/testthat/test-modify_muni_id.R

In il.cbs.muni: Utility Functions to Work with Israeli Central Bureau of Statistics Municipal Data

test_that("municipal id is modified", {
  expect_equal(modify_muni_id("0", "30"), "30")
  expect_equal(modify_muni_id(0, 30), "30")
  expect_equal(modify_muni_id("0", 30), "30")
  expect_equal(modify_muni_id(0, "30"), "30")
  expect_equal(modify_muni_id("99", "30"), "30")
  expect_equal(modify_muni_id(99, 30), "30")
  expect_equal(modify_muni_id("99", 30), "30")
  expect_equal(modify_muni_id(99, "30"), "30")
})

test_that("municipal id is kept", {
  expect_equal(modify_muni_id("10", "30"), "10")
  expect_equal(modify_muni_id(10, 30), "10")
  expect_equal(modify_muni_id("10", 30), "10")
  expect_equal(modify_muni_id(10, "30"), "10")
})

test_that("single digit muni_id is padded", {
  expect_equal(modify_muni_id("1", "1234"), "01")
  expect_equal(modify_muni_id(5, "1234"), "05")
})

test_that("works with vectors", {
  expect_equal(
    modify_muni_id(c("0", "99", "10"), c("100", "200", "300")),
    c("100", "200", "10")
  )
  expect_equal(
    modify_muni_id(c(0, 99, 10), c(100, 200, 300)),
    c("100", "200", "10")
  )
})

test_that("handles NA correctly", {
  expect_equal(modify_muni_id(NA, "1234"), NA_character_)
  expect_equal(modify_muni_id("0", NA), NA_character_)
  expect_equal(modify_muni_id(c(0, NA, 10), c("100", "200", "300")), c("100", NA, "10"))
})

test_that("recycling works", {
  expect_equal(modify_muni_id(0, c("100", "200")), c("100", "200"))
  expect_equal(modify_muni_id(c("0", "99"), "100"), c("100", "100"))
})

test_that("throws error for invalid input types", {
  expect_error(modify_muni_id(TRUE, "1234"), class = "modify_muni_id_invalid_muni_type")
  expect_error(modify_muni_id("0", TRUE), class = "modify_muni_id_invalid_yishuv_type")
  expect_error(modify_muni_id(list(1), "1234"), class = "modify_muni_id_invalid_muni_type")
})

test_that("throws error for length mismatch", {
  expect_error(
    modify_muni_id(c(0, 99), c("100", "200", "300")),
    class = "modify_muni_id_length_mismatch"
  )
  expect_error(
    modify_muni_id(c(0, 99, 10), c("100", "200")),
    class = "modify_muni_id_length_mismatch"
  )
})