test_that("vanco", {

  ctl <- system.file("vanc/vanc.ctl", package="nonmem2rx")

  f <- nonmem2rx(ctl, save=FALSE)

  print(f)

  ctl <- system.file("vanc.ecs", package="nonmem2rx")


  f <- nonmem2rx(ctl, save=FALSE, extended = TRUE)

})