tests/testthat/test-simulation-run-options.R

In Open-Systems-Pharmacology/OSPSuite-R: R package to manipulate OSPSuite Models

# SimulationRunOptions

runOptions <- SimulationRunOptions$new()
test_that("It has the expected default value", {
  expect_true(runOptions$checkForNegativeValues)
  expect_equal(runOptions$numberOfCores, getOSPSuiteSetting("numberOfCores"))
})

test_that("It can set the basic options parameters", {
  runOptions$checkForNegativeValues <- FALSE
  expect_false(runOptions$checkForNegativeValues)

  runOptions$numberOfCores <- 5
  expect_equal(runOptions$numberOfCores, 5)
})