tests/testthat/test-basic.R

In nlmixrdevelopment/RxODE: Facilities for Simulating from ODE-Based Models

rxodeTest(
  {
    td <- tempdir()

    .rxWithWd(td, {
      context("Basic Tests")
      test.dir <- tempfile("Rx_base-")
      dir.create(test.dir)
      ode <- "d/dt(y) = r * y * (1.0 - y/K);"
      fn <- file.path(test.dir, "exam3.1.txt")
      writeLines(ode, fn)

      m1 <- RxODE(model = ode, modName = "m1")

      test_that("ODE inside a string", {
        expect_equal(class(m1), "RxODE")
      })

      m2 <- RxODE(filename = fn, modName = "f1")
      test_that("ODE inside a text file", {
        expect_equal(class(m2), "RxODE")
      })

      test_that("arguments model= and filename= are mutually exclusive.", {
        expect_error(RxODE(model = ode, filename = fn), "must specify exactly one of 'model' or 'filename'")
      })

      unlink(test.dir, recursive = TRUE)
    })
  },
  silent = TRUE,
  test = "cran"
)