tests/testthat/test-get_netmhcpan_alleles.R

In tzina97/netMHCpanW: Interface to 'NetMHCpan'

test_that("use", {
  if (!is_netmhcpan_installed()) return()
  alleles <- get_netmhcpan_alleles()
  expect_true(length(alleles) > 5000)
})

test_that("no tab-seperated entries", {
  if (!is_netmhcpan_installed()) return()

  # https://github.com/richelbilderbeek/bbbq_article/issues/57
  alleles <- get_netmhcpan_alleles()

  expect_equal(0, sum(stringr::str_count(alleles, pattern = "\t")))
})