library("stanza")

#
# testing_levels = c("minimal" = 1L, default" = 2L, "download" = 3L, "install" = 4L, "all" = 5L)
#
CLEANUP <- as.logical(Sys.getenv("STANZA_TEST_CLEANUP", FALSE))
if ((stanza_options("testing_level") >= 3L) && CLEANUP) {
    library("reticulate")
    envs <- grep("stanza", virtualenv_list(), value = TRUE)
    for (stanza_env in envs) {
        virtualenv_remove(stanza_env, confirm = TRUE)
    }
}


if (stanza_options("testing_level") >= 4L) {
    virtualenv_install_stanza()
}