tests/testthat/test-issue-50.R

In RxODE: Facilities for Simulating from ODE-Based Models

rxodeTest(
  {
    context("Test Issue #50")
    test_that("Issue #50", {
      .file <- test_path("rxodedemo_ode.txt")

      sink(.file)
      cat("C2 = centr/V2;
C3 = peri/V3;
d/dt(depot) =-KAdepot;
d/dt(centr) = KAdepot - CLC2 - QC2 + QC3;
d/dt(peri) = QC2 - QC3;
d/dt(eff) = Kin - Kout(1-C2/(EC50+C2))*eff;")
      sink()

      expect_true(file.exists(.file))
      m1 <- try(RxODE(filename = .file, modName = test_path("m1")))
      expect_false(is(class(m1), "RxODE"))
      expect_true(file.exists(.file))

      sink(.file)
      cat("C2 = centr/V2;
C3 = peri/V3;
d/dt(depot) =-KA*depot;
d/dt(centr) = KA*depot - CL*C2 - Q*C2 + Q*C3;
d/dt(peri)  =                    Q*C2 - Q*C3;
d/dt(eff)  = Kin - Kout*(1-C2/(EC50+C2))*eff;")
      sink()

      expect_true(file.exists(.file))
      m1 <- RxODE(filename = .file, modName = test_path("m1"))
      expect_true(is(m1, "RxODE"))
      expect_true(file.exists(test_path("rxodedemo_ode.txt")))

      rxDelete(m1)
      unlink(test_path("rxodedemo_ode.txt"))
      if (dir.exists(test_path("m1.d"))) unlink(test_path("m1.d"), recursive = TRUE)
    })
  },
  silent = TRUE,
  test = "cran"
)