tests/testthat/test-2.R

In gdauby/ConR: Computation of Parameters Used in Preliminary Assessment of Species Conservation Status

library(ConR)

dummy_ex <- 
  data.frame(ddlat = rnorm(10)*10, 
             ddlon = rnorm(10)*10, taxa = rep("taxa", 10))

context("Test that subpop.comp outputs are correct length and objects")

test_that("subpop.comp", {
  
  SUB <- subpop.comp(XY = dummy_ex, resol_sub_pop = 25)
  
  expect_equal(length(SUB), 2)
  expect_equal(SUB$subpop, 10)

})