tests/testthat/test_nav.R

In lgatto/MSnbase: Base Functions and Classes for Mass Spectrometry and Proteomics

context("Navigating MSnExp data")

library("msdata")
f <- proteomics(full.names = TRUE, pattern = "MS3TMT10")


test_that("nextMS and prevMS", {
    x <- readMSData(f, mode = "onDisk")
    sp <- "F1.S009"
    expect_identical(acquisitionNum(x[[sp]]), 32926L)
    expect_identical(acquisitionNum(MSnbase:::nextMS(sp, x, 3L)), 32929L)
    expect_identical(acquisitionNum(MSnbase:::prevMS(sp, x, 3L)), 32923L)
    expect_identical(acquisitionNum(MSnbase:::nextMS(sp, x, 2L)), 32927L)
    expect_identical(acquisitionNum(MSnbase:::prevMS(sp, x, 2L)), 32925L)
    expect_identical(acquisitionNum(MSnbase:::nextMS(sp, x, 1L)), 32941L)
    expect_identical(acquisitionNum(MSnbase:::prevMS(sp, x, 1L)), 32918L)
    expect_null(MSnbase:::prevMS("F1.S001", x, 1L))
    expect_null(MSnbase:::prevMS("F1.S001", x, 2L))
    expect_null(MSnbase:::prevMS("F1.S001", x, 3L))
    expect_identical(MSnbase:::nextMS(sp, x, 3L), MSnbase:::nextMS(sp, x))
})