tests/testthat/test-seam.R

In geomander: Geographic Tools for Studying Gerrymandering

test_that('seam_rip works', {
  adj <- adjacency(o_and_r)

  a <- seam_rip(adj, o_and_r, 'county', c('071', '087')) %>%
    unlist() %>%
    length()
  e <- 3772

  expect_equal(a, e)
})

test_that('seam_geom works', {
  adj <- adjacency(o_and_r)

  a <- seam_geom(adj, o_and_r, 'county', c('071', '087')) %>% nrow()
  e <- 24

  expect_equal(a, e)
})

test_that('seam_adj works', {
  adj <- adjacency(o_and_r)

  a <- seam_adj(adj, o_and_r, 'county', c('071', '087')) %>%
    unlist() %>%
    length()
  e <- 32

  expect_equal(a, e)
})

test_that('seam_sew works', {
  a <- seam_sew(o_and_r, 'county', c('071', '087')) %>%
    unlist() %>%
    length()
  e <- 98

  expect_equal(a, e)
})