tests/testthat/test-track-change.R

In folkehelseprofil/norgeo: Tracking Geo Code Change of Regional Granularity in Norway

test_that("Track change", {
  dtOut <- readRDS(system.file("test-data", "trackChangeFylke_2017_2018.rds", package = "norgeo"))
  dtKomm <- readRDS(system.file("test-data", "trackChangeKomm_2010_2015.rds", package = "norgeo"))

  expect_equal(track_change("fylke", 2017, 2018, names = F, fix = FALSE), dtOut)
  expect_equal(track_change("kommune", 2010, 2015, names = F, fix = FALSE), dtKomm)
})

test_that("Track split", {
  dtOut <- readRDS(system.file("test-data", "split_2018_2020.rds", package = "norgeo"))
  expect_equal(track_split("k", 2018, 2020, names = F), dtOut)
})

test_that("Track merge", {
  dtOut <- readRDS(system.file("test-data", "merge_2016_2018.rds", package = "norgeo"))
  expect_equal(track_merge("k", 2016, 2018, names = F), dtOut)
})