tests/testthat/test_make_pep_table.R

In benjaminjack/parsemsf: Parse ThermoFisher MSF Files and Estimate Protein Abundances

library(parsemsf)
context("Make peptide table")

pep_col_names <- c("peptide_id",
                   "spectrum_id",
                   "protein_id",
                   "protein_desc",
                   "sequence",
                   "pep_score",
                   "q_value")

test_that("make_pep_table creates a data frame with the correct column names", {
  expect_equal(colnames(make_pep_table(parsemsf_example("test_db.msf"))), pep_col_names)
})