tests/testthat/test-is_python_package_with_version_installed.R

In richelbilderbeek/ormr: Work With Python Installed At A Custom Location

test_that("conda, use, 'last' is not installed", {
  expect_equal(1 + 1, 2) # Prevents testthat warning for empty test
  if (!is_conda_installed()) return()

  ormr_folder_name <- create_default_conda_env()
  t <- get_installed_python_packages(ormr_folder_name = ormr_folder_name)
  expect_equal(sum(t$package == "last"), 0)
  expect_false(
    is_python_package_with_version_installed(
      ormr_folder_name = ormr_folder_name,
      package_name = "last",
      package_version = "==1.0.0"
    )
  )
})

test_that("conda, use, check versions", {
  expect_equal(1 + 1, 2) # Prevents testthat warning for empty test
  if (!is_conda_installed()) return()

  ormr_folder_name <- create_default_conda_env()
  t <- get_installed_python_packages(ormr_folder_name = ormr_folder_name)

  installed_pip_version <- t$version[t$package == "pip"]

  # Actual version
  expect_true(
    is_python_package_with_version_installed(
      ormr_folder_name = ormr_folder_name,
      package_name = "pip",
      package_version = paste0("==", installed_pip_version)
    )
  )
  expect_true(
    is_python_package_with_version_installed(
      ormr_folder_name = ormr_folder_name,
      package_name = "pip",
      package_version = paste0(">=", installed_pip_version)
    )
  )
  expect_true(
    is_python_package_with_version_installed(
      ormr_folder_name = ormr_folder_name,
      package_name = "pip",
      package_version = paste0("<=", installed_pip_version)
    )
  )

  # Older version
  expect_false(
    is_python_package_with_version_installed(
      ormr_folder_name = ormr_folder_name,
      package_name = "pip",
      package_version = "==1.0"
    )
  )
  expect_true(
    is_python_package_with_version_installed(
      ormr_folder_name = ormr_folder_name,
      package_name = "pip",
      package_version = ">=1.0"
    )
  )
  expect_false(
    is_python_package_with_version_installed(
      ormr_folder_name = ormr_folder_name,
      package_name = "pip",
      package_version = "<=1.0"
    )
  )

  # Newer version
  expect_false(
    is_python_package_with_version_installed(
      ormr_folder_name = ormr_folder_name,
      package_name = "pip",
      package_version = "==1234567"
    )
  )
  expect_false(
    is_python_package_with_version_installed(
      ormr_folder_name = ormr_folder_name,
      package_name = "pip",
      package_version = ">=1234567"
    )
  )
  expect_true(
    is_python_package_with_version_installed(
      ormr_folder_name = ormr_folder_name,
      package_name = "pip",
      package_version = "<=1234567"
    )
  )

  # Without an operator
  expect_true(
    is_python_package_with_version_installed(
      ormr_folder_name = ormr_folder_name,
      package_name = "pip",
      package_version = installed_pip_version
    )
  )


  expect_error(
    is_python_package_with_version_installed(
      ormr_folder_name = ormr_folder_name,
      package_name = "pip",
      package_version = "><1234567"
    ),
    "Cannot convert 'package_version' to a valid 'semver' string"
  )
})



















test_that("no conda, use, 'last' is not installed", {

  ormr_folder_name <- "python3"
  t <- get_installed_python_packages(ormr_folder_name = ormr_folder_name)
  expect_equal(sum(t$package == "last"), 0)
  expect_false(
    is_python_package_with_version_installed(
      ormr_folder_name = ormr_folder_name,
      package_name = "last",
      package_version = "==1.0.0"
    )
  )
})

test_that("no conda, use, check versions", {
  ormr_folder_name <- "python3"
  t <- get_installed_python_packages(ormr_folder_name = ormr_folder_name)

  installed_pip_version <- t$version[t$package == "pip"]

  # Actual version
  expect_true(
    is_python_package_with_version_installed(
      ormr_folder_name = ormr_folder_name,
      package_name = "pip",
      package_version = paste0("==", installed_pip_version)
    )
  )
  expect_true(
    is_python_package_with_version_installed(
      ormr_folder_name = ormr_folder_name,
      package_name = "pip",
      package_version = paste0(">=", installed_pip_version)
    )
  )
  expect_true(
    is_python_package_with_version_installed(
      ormr_folder_name = ormr_folder_name,
      package_name = "pip",
      package_version = paste0("<=", installed_pip_version)
    )
  )

  # Older version
  expect_false(
    is_python_package_with_version_installed(
      ormr_folder_name = ormr_folder_name,
      package_name = "pip",
      package_version = "==1.0"
    )
  )
  expect_true(
    is_python_package_with_version_installed(
      ormr_folder_name = ormr_folder_name,
      package_name = "pip",
      package_version = ">=1.0"
    )
  )
  expect_false(
    is_python_package_with_version_installed(
      ormr_folder_name = ormr_folder_name,
      package_name = "pip",
      package_version = "<=1.0"
    )
  )

  # Newer version
  expect_false(
    is_python_package_with_version_installed(
      ormr_folder_name = ormr_folder_name,
      package_name = "pip",
      package_version = "==1234567"
    )
  )
  expect_false(
    is_python_package_with_version_installed(
      ormr_folder_name = ormr_folder_name,
      package_name = "pip",
      package_version = ">=1234567"
    )
  )
  expect_true(
    is_python_package_with_version_installed(
      ormr_folder_name = ormr_folder_name,
      package_name = "pip",
      package_version = "<=1234567"
    )
  )

  # Without an operator
  expect_true(
    is_python_package_with_version_installed(
      ormr_folder_name = ormr_folder_name,
      package_name = "pip",
      package_version = installed_pip_version
    )
  )


  expect_error(
    is_python_package_with_version_installed(
      ormr_folder_name = ormr_folder_name,
      package_name = "pip",
      package_version = "><1234567"
    ),
    "Cannot convert 'package_version' to a valid 'semver' string"
  )
})