tests/testthat/test-create_virtualenv.R

In stressor: Algorithms for Testing Models under Stress

test_that("Raise an error when python isn't available", {
  expect_error(create_virtualenv(NULL), "No python found on this computer.")
})
test_that("create a virtual environment", {
  skip_if_no_python()
  path <- create_virtualenv()
  expect_true(is.character(path))
})

test_that("path exists", {
  skip_if_no_python()
  path <- create_virtualenv()
  expect_true(all(file.exists(path)))
})