tests/manual/test-code/test-OM_functions.R

In Blue-Matter/MSEtool: Management Strategy Evaluation Toolkit

testthat::context("test OM_functions")

library(openMSE)

Stock <- Bluefin_tuna
Fleet <- DecE_NDom
Obs <- Imprecise_Biased
Imp <- Overages

types <- c("Stock", "Fleet", "Obs", "Imp")
for (type in types) {
  testthat::test_that(paste("Replace and SubOM work with ", type), {
    OM1 <- MSEtool::testOM
    OM2 <- new("OM", Stock, Fleet, Obs, Imp)
    OMnew <- Replace(OM1, OM2, type)

    newobj <- SubOM(OMnew, type)
    nms <- slotNames(newobj)
    nms <- nms[!nms %in% c("Name", "Species", "Region", "Agency", "Latitude", "Longitude", "Source")]
    for (nm in nms) {
      chk <- is.na(slot(OM2, nm))
      if (!'logical' %in% class(slot(OM2, nm))) {
        slot(OM2, nm)[chk] <- rep(0, sum(chk))
      }
      chk <- is.na(slot(newobj, nm))
      if (!'logical' %in% class(slot(OM2, nm))) {
        slot(newobj, nm)[chk] <- rep(0, sum(chk))
      }
      testthat::expect_equal(slot(newobj, nm), slot(OM2, nm))
    }
  })
}