tests/testthat/test_get_fixed_parameters.R

In InsightRX/PKPDsim: Tools for Performing Pharmacokinetic-Pharmacodynamic Simulations

test_that("get_fixed_parameters returns fixed params listed in model def", {
  def <- list(
    parameters = list(
      CL = 5.312,
      V = 42.52,
      V2 = 41.68,
      Q = 3.222
    ),
    fixed = "Q"
  )
  expect_equal(get_fixed_parameters(def), "Q")
})

test_that("get_fixed_parameters returns fixed params listed in model def even if null/empty", {
  j1 <- '{"fixed": null}'
  j2 <- '{"fixed": []}'
  res1 <- get_fixed_parameters(jsonlite::fromJSON(j1))
  res2 <- get_fixed_parameters(jsonlite::fromJSON(j2))
  expect_null(res1)
  expect_equal(res2, list())
})

test_that("get_fixed_parameters errors if fixed params are not present", {
  def <- list(
    parameters = list(
      CL = 5.312,
      V = 42.52,
      V2 = 41.68,
      Q = 3.222
    )
  )

  expect_error(get_fixed_parameters(def))
})