tests/testthat/test-is_netmhc2pan_installed.R

In richelbilderbeek/netmhc2pan: Interface to 'NetMHCIIpan'

test_that("use", {
  expect_silent(is_netmhc2pan_installed())
  is_netmhc2pan_installed(verbose = TRUE)
})

test_that("use", {
  if (!is_on_ci()) return()
  if (!is_url_valid()) return()

  if (is_netmhc2pan_installed()) {
    uninstall_netmhc2pan()
    expect_false(is_netmhc2pan_installed())
    install_netmhc2pan()
    expect_true(is_netmhc2pan_installed())
  } else  {
    testit::assert(!is_netmhc2pan_installed())
    install_netmhc2pan()
    expect_true(is_netmhc2pan_installed())
    uninstall_netmhc2pan()
    expect_false(is_netmhc2pan_installed())
  }

})

test_that("uninstall NetMHCIIpan from a custom location", {

  if (!is_on_ci()) return()
  if (!is_url_valid()) return()

  netmhc2pan_folder_name <- tempfile(pattern = "netmhc2pan_")
  install_netmhc2pan(netmhc2pan_folder_name = netmhc2pan_folder_name)
  expect_silent(
    uninstall_netmhc2pan(netmhc2pan_folder_name = netmhc2pan_folder_name)
  )
  expect_false(dir.exists(netmhc2pan_folder_name))
})