tests/testthat/test-show.R

In jasenfinch/profilePro: Unified Input and Output for Processing of Metabolomic Profiling Experiments

test_that("ProfileParameters show works", {
  p <- new('ProfileParameters')
  
  expect_output(print(p),'Processing parameters for technique')
})

test_that('MetaboProfile show works',{
  d <- new('MetaboProfile')
  
  expect_output(print(d),'profilePro MetaboProfile')
})