tests/testthat/test-30-prefab_models.R

In weecology/portalcasting: Model and Forecast Portal Rodent Dynamics

context(desc = "prefab model functions")

main1 <- file.path(tempdir(), "testing1")
main2 <- file.path(tempdir(), "testing2")
main3 <- file.path(tempdir(), "testing3")


test_that(desc = "prefab_models creates a vector of model names", {

  pfm <- prefab_models()
  expect_equal(length(pfm), 15)
  expect_is(pfm, "character")

})