tests/testthat/test-value-point.R

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

# ValuePoint$print

simple <- loadTestSimulation("simple")
tableParameter <- getParameter("Organism|TableParameter", simple)
tableFormula <- tableParameter$formula
point <- tableFormula$allPoints[[1]]

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