tests/testthat/test_fake.R

In Pakillo/Carex.bipolar: SDM analyses of bipolar Carex species

library(Carex.bipolar)

context("Fake test")

examplefunction <- function(text){
  return(text)
}

test_that("examplefunction can be run", {
  output <- examplefunction("testing")
  expect_match(output, "testing")
})