tests/testthat/test-create-activate-deactivate.r

In kaneplusplus/envi: Manage R Environments

context("Create, activate, and deactive.")

tempdir_ro <- paste0(tempdir(), "-read-only")

suppressWarnings(dir.create(tempdir_ro, mode = "0444"))

set_envi_path(file.path(tempdir_ro, "read-only-error"))

expect_true(set_envi_path(tempdir()))

el <- envi_list()

expect_true(nrow(el) == 0)

expect_true(envi_init("test-env-1", "testing-environment-number-1"))

expect_error(envi_init("test-env-1"))

expect_true(envi_current_handle() == "test-env-1")

el <- envi_list()

expect_true(el$handle[1] == "test-env-1")

expect_true(basename(el$path[1]) == "testing-environment-number-1")

expect_warning(envi_init("test-env-2"))

expect_true(envi_current_handle() == "test-env-2")

el <- envi_list()

expect_true(el$handle[2] == "test-env-2")

expect_true(basename(el$path[2]) == "test-env-2")

#envi_deactivate(confirm = FALSE)

is.null(envi_current_handle())

expect_warning(envi_uninstall("test-env-1"))
envi_uninstall("test-env-2")

#unlink(get_envi_path(), recursive = TRUE, force = TRUE)

suppressWarnings(envi_deactivate())