tests/testthat/test-install_micromamba.R

In condathis: Run Any CLI Tool on a 'Conda' Environment

test_that("Micromamba installation", {
  testthat::skip_if_offline()
  testthat::skip_on_cran()
  withr::local_path(new = list(), action = "replace")
  umamba_bin_path <- install_micromamba(force = FALSE)
  testthat::expect_true(fs::file_exists(umamba_bin_path))
})

test_that("Micromamba already installed", {
  testthat::skip_if_offline()
  testthat::skip_on_cran()
  testthat::expect_message(
    object = {
      umamba_bin_path <- install_micromamba(force = FALSE)
    },
    regexp = "installed"
  )
  testthat::expect_true(fs::file_exists(umamba_bin_path))
})

test_that("Connection not available", {
  testthat::local_mocked_bindings(check_connection = function(...) {
    return(FALSE)
  })
  testthat::expect_error(
    object = {
      umamba_bin_path <- install_micromamba(force = TRUE)
    },
    class = "condathis_github_not_reachable"
  )
})

testthat::test_that("Install micromamba from scratch", {
  testthat::skip_if_offline()
  testthat::skip_on_cran()

  if (isTRUE(fs::dir_exists(fs::path(get_install_dir(), "micromamba")))) {
    fs::dir_delete(fs::path(get_install_dir(), "micromamba"))
  }
  testthat::expect_message(
    object = {
      install_micromamba()
    }
  )
  testthat::expect_true(fs::file_exists(micromamba_bin_path()))

  testthat::expect_message(
    install_micromamba(micromamba_version = "1.5.9"),
    regexp = ".*already.*"
  )

  testthat::expect_error(
    object = {
      suppressWarnings(install_micromamba(micromamba_version = "1.5.9", force = TRUE))
    },
    regexp = ".*cannot.*open.*"
  )
})