tests/testthat/test-utils.R

context("sfheaders")

test_that("index_correct works",{

  x <- 1:4
  res <- sfheaders:::index_correct( x )
  expect_equal( x - 1, res )

})
dcooley/sfheaders documentation built on July 31, 2024, 5:43 p.m.