tests/testthat/test-quantity-selection.R

# QuantitySelection$print

sim <- loadTestSimulation("S1")

test_that("It can print Quantity", {
  quantitySelection <- sim$outputSelections$allOutputs[[1]]
  expect_error(capture.output(quantitySelection$print()), NA)
})
Open-Systems-Pharmacology/OSPSuite-R documentation built on May 8, 2024, 11:36 a.m.