tests/testthat/test-python-info.R

In reticulate: Interface to 'Python'

test_that("python_info() accepts system python", {

  if (file.exists("/usr/bin/python")) {

    info <- python_info("/usr/bin/python")

    expected <- list(
      python = "/usr/bin/python",
      type = "system",
      root = "/usr/bin"
    )

    expect_equal(info, expected)

  }

  if (file.exists("/usr/bin/python3")) {

    info <- python_info("/usr/bin/python3")

    expected <- list(
      python = "/usr/bin/python3",
      type = "system",
      root = "/usr/bin"
    )

    expect_equal(info, expected)

  }
})