tests/testthat/test-is_micromamba_available_for_arch.R

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

# tests/testthat/test-is_micromamba_available_for_arch.R
test_that("is_micromamba_available_for_arch handles custom sys_arch input correctly", {
  # Test case for Linux-x86_64
  expect_equal(is_micromamba_available_for_arch("Linux-x86_64"), "linux-64")

  # Test case for Darwin-x86_64 or MacOSX-x86_64
  expect_equal(is_micromamba_available_for_arch("Darwin-x86_64"), "osx-64")
  expect_equal(is_micromamba_available_for_arch("MacOSX-x86_64"), "osx-64")

  # Test case for Windows-x86_64
  expect_equal(is_micromamba_available_for_arch("Windows-x86_64"), "win-64")

  # Test case for Darwin-arm64 or MacOSX-arm64
  expect_equal(is_micromamba_available_for_arch("Darwin-arm64"), "osx-arm64")
  expect_equal(is_micromamba_available_for_arch("MacOSX-arm64"), "osx-arm64")

  # Test case for Linux-aarch64
  expect_equal(is_micromamba_available_for_arch("Linux-aarch64"), "linux-aarch64")

  # Test case for Linux-ppc64le
  expect_equal(is_micromamba_available_for_arch("Linux-ppc64le"), "linux-ppc64le")

  # Test case for unsupported architecture
  expect_error(
    is_micromamba_available_for_arch("unsupported-arch"),
    "micromamba is not available for unsupported-arch CPU architecture."
  )
  expect_error(
    is_micromamba_available_for_arch("Unknown-arch"),
    class = "condathis_umamba_not_available_for_arch"
  )
})


# Mocking get_sys_arch to return specific values
mock_get_sys_arch <- function(value) {
  function() value
}

test_that("is_micromamba_available_for_arch returns correct architecture string", {
  with_mocked_bindings(
    get_sys_arch = mock_get_sys_arch("Linux-x86_64"),
    expect_equal(is_micromamba_available_for_arch(), "linux-64")
  )

  with_mocked_bindings(
    get_sys_arch = mock_get_sys_arch("Darwin-x86_64"),
    expect_equal(is_micromamba_available_for_arch(), "osx-64")
  )

  with_mocked_bindings(
    get_sys_arch = mock_get_sys_arch("Windows-x86_64"),
    expect_equal(is_micromamba_available_for_arch(), "win-64")
  )

  with_mocked_bindings(
    get_sys_arch = mock_get_sys_arch("Darwin-arm64"),
    expect_equal(is_micromamba_available_for_arch(), "osx-arm64")
  )

  with_mocked_bindings(
    get_sys_arch = mock_get_sys_arch("Linux-aarch64"),
    expect_equal(is_micromamba_available_for_arch(), "linux-aarch64")
  )

  with_mocked_bindings(
    get_sys_arch = mock_get_sys_arch("Linux-ppc64le"),
    expect_equal(is_micromamba_available_for_arch(), "linux-ppc64le")
  )

  with_mocked_bindings(
    get_sys_arch = mock_get_sys_arch("Unknown-arch"),
    expect_error(is_micromamba_available_for_arch(), class = "condathis_umamba_not_available_for_arch")
  )
})