tests/testthat/test-check_netmhcpan_bin_url.R

In tzina97/netMHCpanW: Interface to 'NetMHCpan'

test_that("use", {
  if (is_url_valid()) {
    expect_silent(check_netmhcpan_bin_url())
  } else {
    expect_error(check_netmhcpan_bin_url())
  }
})

test_that("be verbose", {
  if (is_url_valid()) {
    expect_message(
      check_netmhcpan_bin_url(verbose = TRUE)
    )
  }
})

test_that("error message for invalid URL", {
  expect_error(
    check_netmhcpan_bin_url(netmhcpan_bin_url = "does_not_exist")
  )
})