tests/testthat/test_download_data.R

In tzina97/netMHCpanW: Interface to 'NetMHCpan'

test_that("use", {

  netmhcpan_data_tarfile_path <- tempfile(pattern = "netmhcpan_")

  expect_silent(
    download_netmhcpan_data(netmhcpan_data_tarfile_path = netmhcpan_data_tarfile_path)
  )
  expect_true(file.exists(netmhcpan_data_tarfile_path))
})

test_that("use, verbose", {
  expect_message(
    download_netmhcpan_data(
      netmhcpan_data_tarfile_path = tempfile(pattern = "netmhcpan_"),
      verbose = TRUE
    )
  )
})