tests/testthat/test-reNumber.R

context("reNumber")

test_that("reNumber gives correct output", {
  expect_equal(reNumber(data.frame(x=1:4, y=5:8)[-1,]), data.frame(x=2:4, y=6:8))
})

test_that("reNumber type checks", {
  expect_error(reNumber("rawr"), "x")
})
ecology-rocks/SortieIO documentation built on May 15, 2019, 7:57 p.m.