tests/testthat/test-subdivide.R

In jpgrid: Functions for the Grid Square Codes in Japan

test_that("subdivide", {
  # 1km
  grid_1km <- parse_grid("53396354", "1km")

  # 1km -> 1km
  expect_equal(grid_subdivide(grid_1km, "1km")[[1]], grid_1km)
  expect_equal(grid_subdivide(grid_1km, 1000)[[1]], grid_1km)
  expect_equal(grid_subdivide(grid_1km, units::set_units(1, km))[[1]], grid_1km)

  # 1km -> 500m
  expect_true(setequal(as.character(grid_subdivide(grid_1km, "500m")[[1]]),
                       stringr::str_c(grid_1km, 1:4)))
})

test_that("zoomout", {
  # 1km
  grid_1km <- parse_grid("53396354", "1km")

  # 1km -> 1km
  expect_equal(grid_convert(grid_1km, "1km"), grid_1km)
  # 1km -> 10km
  expect_equal(as.character(grid_convert(grid_1km, "10km")), stringr::str_sub(grid_1km, 1, 6))
})