tests/testthat/test-output-selections.R

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

sim <- loadTestSimulation("S1")

outputSelections <- sim$outputSelections
# OutputSelections

test_that("It remove all outputs when outputs are cleared", {
  addOutputs("Organism|Weight", sim)
  expect_gt(length(outputSelections$allOutputs), 0)

  outputSelections$clear()
  expect_equal(length(outputSelections$allOutputs), 0)
})

test_that("It can print the output selections", {
  expect_error(capture.output(outputSelections$print()), NA)
})