/usr/share/doc/r-cran-maldiquant/tests/testthat/test_metaData-methods.R

context("metaData")

s <- createMassSpectrum(mass=1:10, intensity=11:20, metaData=list(name="test spectrum"))

test_that("metaData", {
  expect_identical(metaData(s)$name, "test spectrum")
})

test_that("metaData<-", {
  l <- list(a=1:3, b=letters[1:3])
  metaData(s) <- l
  expect_identical(metaData(s), l)
})

Generated by dwww version 1.15 on Mon Jun 24 14:55:41 CEST 2024.