tests/testthat/test-states_random.R

test_that("states_random()", {
  test <- states_random(usa_state_map)
  states <- unique(usa_state_map$region)
  expect_length(test, 2)
  expect_true(test[1] %in% states)
  expect_true(test[2] %in% states)
})
etc5523-2020/r-package-assessment-AbhishekSinha28 documentation built on Jan. 1, 2021, 1:09 a.m.