tests/testthat/test-get_SIS_info.R

In r4ss/r4ss: R Code for Stock Synthesis

context("Run get_SIS_info() on simple_small model output")

example_path <- system.file("extdata", package = "r4ss")
# create a temporary directory location to write files to.
# to view the temp_path location, you can add a browser() statement after
# creating the temp_path directory and see what temp_path is. R should write
# to the same location for the same R session (if you restart R, temp_path will)
# change.
temp_path <- file.path(tempdir(), "test_basics")
dir.create(temp_path, showWarnings = FALSE)
# remove all artifacts created from testing. (developers: simply comment out
# the line below if you want to keep artifacts for troubleshooting purposes)
on.exit(unlink(temp_path, recursive = TRUE), add = TRUE)

# get model output (already tested in test-basics.R)
simple_small <- SS_output(file.path(example_path, "simple_small"),
  verbose = FALSE, printstats = FALSE
)

# run function
get_SIS_info(simple_small, dir = temp_path, month = 1)

test_that("get_SIS_info() runs on simple_small model", {
  expect_true("StockName_2023_SIS_info_values.csv" %in% dir(temp_path))
  expect_true("StockName_2023_SIS_info_timeseries.csv" %in% dir(temp_path))
})