tests/testthat/test-read_netmhc2pan_xls_output.R

In richelbilderbeek/netmhc2pan: Interface to 'NetMHCIIpan'

test_that("use", {

  xls_filename <- system.file(
    "extdata", "example.xls", package = "netmhc2pan"
  )
  t <- read_netmhc2pan_xls_output(xls_filename)

  expect_true("Pos" %in% names(t))
  expect_true("Peptide" %in% names(t))
  expect_true("ID" %in% names(t))
  expect_true("one_minus_log50k" %in% names(t))
  expect_true("nM" %in% names(t))
  expect_true("Rank" %in% names(t))
  expect_true("Ave" %in% names(t))
  expect_true("NB" %in% names(t))
})

test_that("use", {

  skip("Cannot parse output with 2 alleles yet")
  xls_filename <- system.file(
    "extdata", "example2.xls", package = "netmhc2pan"
  )
  t <- read_netmhc2pan_xls_output(xls_filename)

  expect_true("Pos" %in% names(t))
  expect_true("Peptide" %in% names(t))
  expect_true("ID" %in% names(t))
  expect_true("one_minus_log50k" %in% names(t))
  expect_true("nM" %in% names(t))
  expect_true("Rank" %in% names(t))
  expect_true("Ave" %in% names(t))
  expect_true("NB" %in% names(t))
})