tests/testthat/testModelLibrary.R

library(testthat)

context("Test model library")

test_that("Templates can be loaded successfully", {
  
  model <- model_suite$testing$nonmem$advan1_trans1
  expect_true(model@parameters %>% contains(Theta(index=1, name="K")))
})
Calvagone/campsismod documentation built on June 2, 2025, 1:11 a.m.