tests/testthat/test-install_netMHCpan_data_from_file.R

In tzina97/netMHCpanW: Interface to 'NetMHCpan'

test_that("Reinstall to same location must give error", {

  if (!is_url_valid()) return()

  # Data tarball: use local version if available
  netmhcpan_data_tarfile_path <- tempfile()
  download_netmhcpan_data(
      netmhcpan_data_tarfile_path = netmhcpan_data_tarfile_path
    )

  expect_true(file.exists(netmhcpan_data_tarfile_path))

  netmhcpan_folder_name <- tempdir()

  # Re-install NetMHCpan data
  install_netmhcpan_data_from_file(
    netmhcpan_data_tarfile_path = netmhcpan_data_tarfile_path,
    netmhcpan_folder_name = netmhcpan_folder_name
  )
  expect_error(
    install_netmhcpan_data_from_file(netmhcpan_data_tarfile_path = netmhcpan_data_tarfile_path, netmhcpan_folder_name = netmhcpan_folder_name),
    "NetMHCpan data is already installed"
  )
})