tests/testthat/test-extract_sim_data.R

In ricoderks/eisaCIM: Single Quadrupole Multiple Fragment Ion Monitoring Quantitative Mass Spectrometry

test_that("output is data frame", {
  expect_type(extract_sim_data(data = raw_data,
                               sim_names = sim_names,
                               sim_ids = sim_ids),
              "list")
})

test_that("input data is not MChromatograms", {
  expect_error(extract_sim_data(data = sim_names,
                               sim_names = sim_names,
                               sim_ids = sim_ids),
              "'data' is not a MChromatograms object!")
})

test_that("input data is not MChromatograms", {
  expect_error(extract_sim_data(data = raw_data,
                                sim_names = sim_names,
                                sim_ids = sim_ids[1]),
               "'sim_names' and 'sim_ids' need to have the same length!!")
})

test_that("correct column names", {
  expect_named(extract_sim_data(data = raw_data,
                                sim_names = sim_names,
                                sim_ids = sim_ids),
               c("rt", "intensity", "sim"))
})

test_that("correct dimension output", {
  my_dim <- dim(extract_sim_data(data = raw_data,
                                 sim_names = sim_names,
                                 sim_ids = sim_ids))

  expect_equal(my_dim, c(4996, 3))
})