tests/testthat/test-utilities-output-selections.R

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

sim <- loadTestSimulation("S1")
outputSelections <- sim$outputSelections

# addOutputs

test_that("It can add multiple outputs by path", {
  outputSelections$clear()
  addOutputs(c("Organism|Liver|Volume", "Organism|ArterialBlood|Plasma|Caffeine"), sim)
  expect_equal(length(sim$outputSelections$allOutputs), 2)
})

test_that("It can add single output by path", {
  outputSelections$clear()
  path <- "Organism|ArterialBlood|Plasma|Caffeine"
  addOutputs(path, sim)
  expect_equal(length(sim$outputSelections$allOutputs), 1)
  expect_equal(sim$outputSelections$allOutputs[[1]]$path, path)
})

test_that("It can add multiple outputs by reference", {
  outputSelections$clear()
  parameter <- getParameter("Organism|Liver|Volume", sim)
  quantity <- getAllQuantitiesMatching("Organism|ArterialBlood|Plasma|Caffeine", sim)[[1]]
  addOutputs(c(parameter, quantity), sim)
  expect_equal(length(sim$outputSelections$allOutputs), 2)
})

test_that("It can add single output by reference", {
  outputSelections$clear()
  parameter <- getParameter("Organism|Liver|Volume", sim)
  addOutputs(parameter, sim)
  expect_equal(length(sim$outputSelections$allOutputs), 1)
  expect_equal(sim$outputSelections$allOutputs[[1]]$path, parameter$path)
})

test_that("It throws an exception if the parameters do not have the expect type", {
  parameter <- getParameter("Organism|Liver|Volume", sim)
  container <- getContainer("Organism|Liver", sim)
  expect_error(addOutputs(sim, parameter))
  expect_error(addOutputs(parameter, container))
  expect_error(addOutputs(parameter, null))
  expect_error(addOutputs(null, sim))
})


# clearOutputs

test_that("It can clear all outputs of a given simulation", {
  addOutputs(c("Organism|Liver|Volume"), sim)
  expect_gt(length(outputSelections$allOutputs), 0)
  clearOutputs(sim)
  expect_equal(length(outputSelections$allOutputs), 0)
}) # test for setOutputs()
test_that("It can set outputs of a given simulation", {
  addOutputs(c("Organism|Liver|Volume", "Organism|ArterialBlood|Plasma|Caffeine"), sim)
  setOutputs(c("Organism|Liver|Volume"), sim)
  expect_equal(length(outputSelections$allOutputs), 1)
  expect_equal(sim$outputSelections$allOutputs[[1]]$path, "Organism|Liver|Volume")
})

# test for setOutputs()
test_that("It can set outputs of a given simulation", {
  addOutputs(c("Organism|Liver|Volume", "Organism|ArterialBlood|Plasma|Caffeine"), sim)
  setOutputs(c("Organism|Liver|Volume"), sim)
  expect_equal(length(outputSelections$allOutputs), 1)
  expect_equal(sim$outputSelections$allOutputs[[1]]$path, "Organism|Liver|Volume")
})