tests/testthat/test-findMSconvert.R

In chasemc/IDBacApp: MALDI-TOF MS Protien and Small Molecule Analysis

context("findMSconvert")


a <- tempdir()
a <- file.path(a , "msconvert.exe")
file.create(a)

b <- findMSconvert(a)



test_that("findMSconvert returns msconvert.exe path if found", {
  expect_equal(a, b)
})


if ( getOS() == "windows") {
  
  test_that("findMSconvert returns messages", {
    expect_message(findMSconvert(), "Given path to msconvert didn't work, trying to auto-find in Programs")
  })
} else {
  
  test_that("findMSconvert returns messages", {
    expect_message(findMSconvert(), "Unfortunately msconvert is not currently available on this operating system, try again on Windows or start with 
               mzML or mzXML files instead of raw-data.")
  })
  
}