tests/testthat/test-checks.R

In jasenfinch/mzAnnotation: Tools for Putative Annotation of Electrospray Ionisation High Resolution Mass Spectrometry Data

test_that("error thrown if incorrect adduct table specified", {
  expect_error(checkAdductTable(tibble()))
})

test_that("error thrown if incorrect adduct table specified", {
  expect_error(checkIsotopeTable(tibble()))
})

test_that("error thrown if incorrect adduct table specified", {
  expect_error(checkTransformationTable(tibble()))
})

test_that('error thrown if incorrect transformation specified',{
  expect_error(checkTransformation('incorrect'))
})