tests/testthat/test_poolProvider.R

context("test pool provider")

test_that("synapser uses Synapse Python Client pool provider for single thread", {

  callback <- function(name, def) {
    setGeneric(name, def)
  }
  reticulate::py_run_string("import sys")
  reticulate::py_eval(sprintf("sys.path.insert(0, '%s')", getwd()))
  reticulate::py_run_string("import testPoolProvider")
  generateRWrappers(pyPkg = "testPoolProvider",
                                    container = "testPoolProvider",
                                    setGenericCallback = callback)

  test()
})
Sage-Bionetworks/synapseclient documentation built on Feb. 9, 2024, 4:26 p.m.