tests/testthat/test-24-prepare_newmoons.R

In weecology/portalcasting: Model and Forecast Portal Rodent Dynamics

context(desc = "moons prepping functions")

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

test_that(desc = "prep_moons pulls in moons or throws error", {

  skip_on_cran()

  moons <- prepare_newmoons(main = main2)
  expect_is(moons, "data.frame")

})

test_that(desc = "add_forecast_newmoons skips for 0", {

  skip_on_cran()

  newmoons  <- prepare_newmoons(main = main2)
  newmoons2 <- add_forecast_newmoons(main     = main2,
                                     newmoons = newmoons)

  expect_is(newmoons2, "data.frame")

})