tests/testthat/test-delay-load.R

In rstudio/reticulate: Interface to 'Python'

context("delay-load")

test_that("imported module can be customized via delay_load", {

  # ensure RETICULATE_PYTHON is set for sub-process so that
  # the expected version of Python is loaded
  config <- py_config()
  withr::local_envvar(RETICULATE_PYTHON = config$python)

  # run in a separate process, since we want the attempted module
  # load to trigger initialization of Python and so have get_module
  # handled specially
  result <- callr::r(function() {

    sys <- reticulate::import(
      "invalid_module_name",
      delay_load = list(get_module = function() { "sys" })
    )

    stopifnot(isTRUE(reticulate:::py_is_module_proxy(sys)))

    print(sys)
    stopifnot(isTRUE(reticulate:::py_is_module_proxy(sys)))
    stopifnot(isFALSE(reticulate::py_available()))

    out <- as.character(sys$byteorder)

    stopifnot(isFALSE(reticulate:::py_is_module_proxy(sys)))
    stopifnot(isTRUE(reticulate::py_available()))

    out
  })

  # validate expected result
  expect_true(result %in% c("little", "big"))

})


test_that("[[ loads delayed modules", {

  # https://github.com/rstudio/reticulate/issues/1688
  config <- py_config()
  withr::local_envvar(RETICULATE_PYTHON = config$python)

  result <- callr::r(function() {
    time <- reticulate::import('time', delay_load = TRUE)
    stopifnot(isFALSE(reticulate::py_available()))

    result <- time[['time']]()
    stopifnot(isTRUE(reticulate::py_available()))
    result
  })

  # validate expected result
  expect_true(typeof(result) %in% c("double", "integer"))
  expect_true((result - import("time")$time()) < 10)

})