tests/testthat/test-get_more.R

test_that("get_more works", {
  testthat::expect_true(get_more(0L, NULL))
  testthat::expect_true(get_more(1000L, NULL))
  testthat::expect_true(get_more(9L, 10))
  testthat::expect_false(get_more(10L, 10))
})

# usethis::use_r("get_more")
dbca-wa/wastdr documentation built on Nov. 20, 2022, 12:25 p.m.