tests/testthat/test-check_netMHCpan_data_url.R

In tzina97/netMHCpanW: Interface to 'NetMHCpan'

test_that("use", {
  if (!is_on_travis())

  # This test will break if www.cbs.dtu.dk is down,
  # here I assume it is usually up :-)
  expect_silent(check_netmhcpan_data_url())
})

test_that("be verbose", {
  if (!is_on_travis())
  expect_message(
    check_netmhcpan_data_url(verbose = TRUE),
    "netmhcpan_data_url"
  )
})

test_that("error message for invalid URL", {
  expect_error(
    check_netmhcpan_data_url(netmhcpan_data_url = "does_not_exist"),
    "does_not_exist"
  )
})