tests/testthat/test-native_cmd.R

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

test_that("Native run conda command", {
  testthat::skip_if_offline()
  testthat::skip_on_cran()

  px_res <- native_cmd("--help", verbose = FALSE)
  expect_equal(
    object = px_res$status,
    expected = 0
  )

  px_res <- native_cmd("env", "list", verbose = FALSE)
  expect_equal(
    object = px_res$status,
    expected = 0
  )

  px_res <- native_cmd("--version", verbose = FALSE)
  expect_equal(
    object = px_res$status,
    expected = 0
  )
})