dwww Home | Show directory contents | Find package

context("isMassObject")

s <- createMassSpectrum(mass=1:10, intensity=1:10)
p <- createMassPeaks(mass=1:10, intensity=1:10)

test_that(".isMassObject", {
  expect_false(MALDIquant:::.isMassObject(double()))
  expect_false(MALDIquant:::.isMassObject(list()))

  expect_true(MALDIquant:::.isMassObject(s))
  expect_true(MALDIquant:::.isMassObject(p))
})

test_that("isMassSpectrum", {
  expect_false(isMassSpectrum(double()))
  expect_false(isMassSpectrum(list()))
  expect_false(isMassSpectrum(p))

  expect_true(isMassSpectrum(s))
})

test_that("isMassPeaks", {
  expect_false(isMassPeaks(double()))
  expect_false(isMassPeaks(list()))
  expect_false(isMassPeaks(s))

  expect_true(isMassPeaks(p))
})

Generated by dwww version 1.15 on Sat May 18 11:58:18 CEST 2024.