tests/testthat/test-onload.R

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

test_that("Digits correctly set upon package load", {
  options('digits' = 7)
  
  mzAnnotation:::.onLoad()
  
  expect_equal(getOption('digits'),10)
})

test_that('Digits not set upon package load if already above 10', {
  options('digits' = 11)
  
  mzAnnotation:::.onLoad()
  
  expect_equal(getOption('digits'),11)
})