tests/testthat/test-wbc.R

In nonmem2rx: Converts 'NONMEM' Models to 'rxode2'

test_that("test wbc loading", {
  
  .nonmem2rx <- function(..., save=FALSE) {
    suppressWarnings(suppressMessages(nonmem2rx(..., save=FALSE)))
  }
  
  m1 <- .nonmem2rx(system.file("wbc/wbc.lst", package="nonmem2rx"))
  expect_length(m1$meta$validation, 4L)

})