tests/testthat/test-micromamba_user_installed.R

testthat::test_that("micromamba not on system", {
  withr::with_path(
    new = getwd(),
    code = {
      umamba_sys_path <- micromamba_user_installed()
    },
    action = "replace"
  )
  testthat::expect_true(umamba_sys_path == "")
})

Try the condathis package in your browser

Any scripts or data that you put into this service are public.

condathis documentation built on April 12, 2025, 2:01 a.m.