tests/testthat/test-shps-converters.R

In EBukin/devPTIpack: Development environment for Precise Index Targeting analysis

test_that("maping table is generated from shapes file", {
  
  expect_gt({
    devPTIpack::ukr_shp %>% 
      devPTIpack::clean_geoms() %>% 
      length()
    }, 0)
  
  
  expect_gt({
    devPTIpack::ukr_shp %>% devPTIpack::get_mt() %>% length()
  }, 2)
  
  
  expect_equal({
    devPTIpack::ukr_shp %>% devPTIpack::get_mt() %>% devPTIpack::get_adm_levels() %>%  class
  }, "character")
  
  
})