tests/testthat/mz.functions.R

context("mz.* functions")

test_that("mz.ppm output", {
  result10 <- mz.ppm(135.5, 10)
  result100 <- mz.ppm(135.5, 100)
  expect_length(result10, 2)
  expect_that(result10, is_a("numeric"))
})
Mystilivia/SDjoygret documentation built on May 7, 2019, 5:17 p.m.