tests/testthat/test-read_cbs_muni.R

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

test_that("read a municipal data frame well", {
  df_1 <- read_cbs_muni(
    system.file("extdata", "p_libud_2021.xlsx", package = "il.cbs.muni"),
    year = 2021,
    data_domain = "physical"
  )

  df_2 <- read_cbs_muni(
    system.file("extdata", "p_libud_2021.xlsx", package = "il.cbs.muni"),
    year = 2021,
    data_domain = "budget"
  )

  df_3 <- read_cbs_muni(
    system.file("extdata", "p_libud_2021.xlsx", package = "il.cbs.muni"),
    year = 2021,
    data_domain = "physical",
    cols = c(1:4, dplyr::last_col())
  )

  expect_equal(
    df_1[[1, 1]] |> unlist(),
    "אום אל-פחם"
  )
  expect_equal(
    df_1 |> names() |> dplyr::nth(20),
    "דמוגרפיה_סה\"כ גברים בסוף השנה"
  )
  expect_equal(
    df_1 |> names() |> dplyr::nth(22),
    "דמוגרפיה_אחוז באוכלוסייה בסוף השנה_בני 4-0"
  )

  expect_equal(
    df_2 |> names() |> dplyr::nth(20),
    "ארנונה למגורים: סה\"כ גביות"
  )
  expect_equal(
    df_2 |> names() |> dplyr::nth(22),
    "ארנונה למגורים: יחס גבייה ב-% לכלל החיובים"
  )

  expect_equal(
    df_3 |> names(),
    c("שם הרשות", "כללי_סמל הרשות", "כללי_מחוז", "כללי_מעמד מוניציפלי", "בחירות מוניציפליות וארציות_בחירות לכנסת ה-25 01/11/22_אחוזי הצבעה")
  )
})

test_that("throws error for invalid path", {
  expect_error(
    read_cbs_muni("nonexistent_file.xlsx", year = 2021, data_domain = "physical"),
    class = "read_cbs_muni_path_not_found"
  )
  
  expect_error(
    read_cbs_muni(c("file1.xlsx", "file2.xlsx"), year = 2021, data_domain = "physical"),
    class = "read_cbs_muni_invalid_path"
  )
})

test_that("throws error for invalid year", {
  expect_error(
    read_cbs_muni(
      system.file("extdata", "p_libud_2021.xlsx", package = "il.cbs.muni"),
      year = "2021",
      data_domain = "physical"
    ),
    class = "read_cbs_muni_invalid_year"
  )
  
  expect_error(
    read_cbs_muni(
      system.file("extdata", "p_libud_2021.xlsx", package = "il.cbs.muni"),
      year = c(2021, 2022),
      data_domain = "physical"
    ),
    class = "read_cbs_muni_invalid_year"
  )
})

test_that("throws error for invalid col_names", {
  expect_error(
    read_cbs_muni(
      system.file("extdata", "p_libud_2021.xlsx", package = "il.cbs.muni"),
      year = 2021,
      data_domain = "physical",
      col_names = 123
    ),
    class = "read_cbs_muni_invalid_col_names"
  )
})