tests/testthat/test-create_proteins_lut.R

test_that("use", {
  t <- create_proteins_lut(get_test_covid_proteome_filename())
  expect_true("protein" %in% names(t))
  expect_true("sequence" %in% names(t))
  expect_true("protein_id" %in% names(t))
  expect_equal(names(t)[1], "protein_id")
})
richelbilderbeek/bbbq documentation built on July 27, 2023, 2:15 a.m.