tests/testthat/test_trimming_works.R

In RaMS: R Access to Mass-Spec Data

test_that("trim didn't ruin things", {
  expect_gt(nrow(mzML_data$MS1), 0)
  expect_gt(nrow(mzML_data$MS2), 0)
  expect_gt(nrow(mzML_data$BPC), 0)
  expect_gt(nrow(mzML_data$TIC), 0)

  expect_gt(nrow(mzXML_data$MS1), 0)
  expect_gt(nrow(mzXML_data$MS2), 0)
  expect_gt(nrow(mzXML_data$BPC), 0)
  expect_gt(nrow(mzXML_data$TIC), 0)
})

test_that("trim edges within data", {
  expect_gte(min(test_rtrange), min(mzML_data$MS1$rt))
  expect_lte(max(test_rtrange), max(mzML_data$MS1$rt))
})

test_that("trimming reduces size", {
  expect_gte(nrow(mzML_data$MS1), nrow(mzML_trimmed$MS1))
})

test_that("edges properly trimmed", {
  expect_lte(min(test_rtrange), min(mzML_trimmed$MS1$rt))
  expect_gte(max(test_rtrange), max(mzML_trimmed$MS1$rt))
})

test_that("zero-length trim returns nothing", {
  expect_true(all(sapply(mzML_zeroed, nrow)==0))
})