tests/testthat/test-check_netmhc2pan_bin_url.R

In richelbilderbeek/netmhc2pan: Interface to 'NetMHCIIpan'

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

test_that("be verbose", {
  if (!is_on_ci()) return()
  if (is_url_valid()) {
    expect_message(
      check_netmhc2pan_bin_url(verbose = TRUE)
    )
  }
})

test_that("error message for invalid URL", {
  expect_error(
    check_netmhc2pan_bin_url(netmhc2pan_bin_url = "does_not_exist"),
    "YouTube"
  )
})