tests/testthat/test_isEmpty-methods.R

In sgibb/MALDIquant: Quantitative Analysis of Mass Spectrometry Data

context("isEmpty")

s <- c(createMassSpectrum(mass=1:10, intensity=11:20),
       createMassSpectrum(mass=1:2, intensity=rep.int(.Machine$integer.max, 2)))
e <- c(createMassSpectrum(mass=double(), intensity=double(),
                          metaData=list(file="fid")),
       createMassSpectrum(mass=1:10, intensity=rep(0, 10)),
       createMassSpectrum(mass=1:10, intensity=as.double(rep(NA, 10))))

test_that("isEmpty", {
  for (i in seq(along=e)) {
    expect_true(isEmpty(e[[i]]))
  }
  for (i in seq(along=s)) {
    expect_false(isEmpty(s[[i]]))
  }
})

test_that("isEmptyWarning", {
  expect_warning(MALDIquant:::.isEmptyWarning(e[[1]]),
                 "MassSpectrum object \\(file: fid\\) is empty")
  expect_warning(MALDIquant:::.isEmptyWarning(e[[2]]),
                 "MassSpectrum object is empty")
  expect_true(suppressWarnings(MALDIquant:::.isEmptyWarning(e[[1]])))
  expect_false(MALDIquant:::.isEmptyWarning(s[[1]]))
})