tests/testthat/test-spectrummatrixtomaldiqaunt.R

In chasemc/ghosts: Protein and small molecule analysis of bacteria by MALDI-TOF MS

context("test-spectrummatrixtomaldiqaunt")

a <- cbind(1:10, 1:10)
b <- spectrumMatrixToMALDIqaunt(a)

test_that("spectrumMatrixToMALDIqaunt", {
  expect_identical(b[[1]]@mass, a[,1])
  expect_identical(b[[1]]@intensity, a[,2])
  expect_true(MALDIquant::isMassSpectrumList(b))
})