added a new test file

Author: JessUWE

tests/testthat/test-create_virtualenv.R

@@ -0,0 +1,18 @@
+test_that("find_python returns a valid path", {
+  testthat::skip_on_cran()
+  python_path <- Sys.which("python3")
+  if (python_path == "") {
+    python_path <- Sys.which("python")
+  }
+  expect_true(python_path != "")
+})
+
+test_that("install_acro function exists and is callable", {
+  testthat::skip_on_cran()
+  expect_true(is.function(install_acro))
+})
+
+test_that("create_virtualenv function exists and is callable", {
+  testthat::skip_on_cran()
+  expect_true(is.function(create_virtualenv))
+})