tests/testthat/test-install_netMHCpan_from_files.R

In tzina97/netMHCpanW: Interface to 'NetMHCpan'

test_that("install NetMHCpan to a custom location", {

  if (!is_url_valid()) return()

  # Binary tarball: use local version if available
  netmhcpan_bin_tarfile_path <- tempfile()
  if (file.exists("~/netmhcpan-4.1.Linux.tar.gz")) {
    file.copy(
      from = "~/netmhcpan-4.1.Linux.tar.gz",
      netmhcpan_bin_tarfile_path
    )

  } else {
    download_netmhcpan_bin(
      netmhcpan_bin_tarfile_path = netmhcpan_bin_tarfile_path
    )
  }
  expect_true(file.exists(netmhcpan_bin_tarfile_path))

  netmhcpan_folder_name <- tempfile(pattern = "netmhcpan_")
  expect_false(dir.exists(netmhcpan_folder_name))
  netmhcpan_data_url = get_netmhcpan_data_url()

  # Data tarball: use local version if available
  netmhcpan_data_tarfile_path <- tempfile()
  if (file.exists("~/data.Linux.tar.gz")) {
    file.copy(
      from = "~/data.Linux.tar.gz",
      netmhcpan_data_tarfile_path
    )
  } else {
    download_netmhcpan_data(
      netmhcpan_data_tarfile_path = netmhcpan_data_tarfile_path
    )
  }
  expect_true(file.exists(netmhcpan_data_tarfile_path))


  expect_silent(
    install_netmhcpan_from_files(
      netmhcpan_bin_tarfile_path = netmhcpan_bin_tarfile_path,
      netmhcpan_data_tarfile_path = netmhcpan_data_tarfile_path,
      netmhcpan_folder_name = netmhcpan_folder_name
    )
  )
  expect_true(
    is_netmhcpan_installed(
      netmhcpan_folder_name = netmhcpan_folder_name
    )
  )
  expect_silent(
    check_netmhcpan_installation(
      netmhcpan_folder_name = netmhcpan_folder_name
    )
  )
  expect_silent(
    netmhcpan_self_test(
      netmhcpan_folder_name = netmhcpan_folder_name
    )
  )
  expect_silent(
    uninstall_netmhcpan(
      netmhcpan_folder_name = netmhcpan_folder_name
    )
  )
  expect_false(dir.exists(netmhcpan_folder_name))
})