tests/testthat/test_bootstrap.r

In Certara.NLME8: Utilities for Certara's Nonlinear Mixed-Effects Modeling Engine

test_that("running performBootstrap ", {
  skip_on_cran()

  action <- "performBootstrap"

  resultsPattern <- "out"
  resultsName <- paste0(resultsPattern, ".expected")

  INSTALLDIR <- Sys.getenv("INSTALLDIR")
  if (INSTALLDIR == "") {
    # the variable is not set
    stop("cannot start the test, INSTALLDIR variable is not specified.")
  }

  NLME_ROOT_DIRECTORY <-
    file.path(tempdir(TRUE), paste(action, "dd"))
  dir.create(NLME_ROOT_DIRECTORY)
  Sys.setenv("NLME_ROOT_DIRECTORY" = NLME_ROOT_DIRECTORY)

  DataLocation <- system.file(file.path("extdata", action),
    package = "Certara.NLME8",
    mustWork = TRUE
  )

  DataFiles <- list.files(DataLocation, pattern = "*")
  file.copy(file.path(DataLocation, DataFiles),
    NLME_ROOT_DIRECTORY,
    overwrite = TRUE
  )
  Sys.setenv(NLME_SKIP_INITIAL_BOOTSTRAP_RUN = TRUE)
  args <- list(
    args = c(
      "multicore",
      INSTALLDIR,
      NLME_ROOT_DIRECTORY,
      NLME_ROOT_DIRECTORY,
      3,
      1000,
      5,
      2,
      "test.mdl",
      "cols1.txt",
      "data1.txt",
      1234,
      "jobArgsCombined.txt",
      "jobArgsCombined.txt data1.txt cols1.txt test.mdl",
      2,
      95,
      action
    ),
    reportProgress = FALSE
  )

  do.call(action, args)
  results <- read.csv(file.path(
    NLME_ROOT_DIRECTORY,
    paste0(resultsPattern, ".csv")
  ))

  oldResults <- read.csv(file.path(
    NLME_ROOT_DIRECTORY,
    resultsName
  ))
  testthat::expect_equal(results, oldResults)
})