tests/testthat/test_fileFormats.R

context("fileFormats")

test_that("supportedFileFormats", {
  r <- list(import = c("txt", "tab", "csv",
                       "fid",
                       "ciphergen",
                       "mzxml", "mzml", "imzml",
                       "analyze",
                       "cdf",
                       "msd"),
            export = c("tab", "csv",
                       "msd",
                       "mzml",
                       "imzml"))
  expect_identical(supportedFileFormats(), r)
})
sgibb/MALDIquantForeign documentation built on Jan. 26, 2024, 10:07 a.m.