tests/testthat/test-timing.R

In nlmixr2est: Nonlinear Mixed Effects Models in Population PK/PD, Estimation Routines

nmTest({
  test_that("test timing engine", {
    skip_on_os("mac")
    env <- new.env(parent = emptyenv())
    env$time <- data.frame(t0 = 1)

    nlmixrWithTiming(
      "time1",
      {
        Sys.sleep(0.25)
        # note this can be nested, time1 will exclude the timing from time2
        nlmixrWithTiming(
          "time2",
          {
            Sys.sleep(0.25)
            nlmixrWithTiming(
              "t0",
              {
                Sys.sleep(0.1)
              },
              envir = env
            )
          },
          envir = env
        )
      },
      envir = env
    )

    expect_true(env$time$time2 < 0.4)
    expect_true(env$time$time1 < 0.4)
    expect_true(env$time$t0 > 1)

    nlmixrAddTiming(env, "time2", 3)

    expect_true(env$time$time2 > 3)

    nlmixrAddTiming(env, "new", 3.5)

    expect_true(env$time$new > 3)
  })
})