tests/testthat/test_remBoot.R

In arcaravaggi/remBoot: Random Encounter Modelling for Density Estimation and Variance

context("remBoot")

test_that("remBoot produces a reasonable result", {
  # This is just a very basic regression test
  
  data(hDat)
  tm <- 1800
  v <- 0.89
  nboots <- 1000

  output <- remBoot(hDat, tm, v, nboots, error_stat = c("sd"))
  
  expect_is(output, "list")
  expect_length(output, 1)
  expect_named(output, "sd")
  expect_length(output$sd, 5)
  expect_true(all(output$sd < 1))
})