tests/testthat/test-move_jpn_rs.R

In uribo/kuniezu: Assistance on the National Geography of Japan

test_that("multiplication works", {
  res <-
    move_jpn_rs(jgd2011_bbox)
  expect_equal(
    dim(res),
    c(17, 3))
  expect_equal(
    as.character(res$system),
    as.character(as.roman(seq_len(19)[-c(18, 19)]))
  )
  x <-
    jgd2011_bbox$geometry[17] + c(5.2, 15.0)
  sf::st_crs(x) <- 6668
  res <-
    move_jpn_rs(jgd2011_bbox, clip = FALSE)
  expect_equal(
    dim(res),
    c(19, 3))
})