tests/testthat/test_findpwiz_findMSConvert.R

In chasemc/mzEasy: A simple interface to MSConvert and overview plotting of LC-MS/MS data.

context("findpwiz_FindMSConvert")

# ------------------
# Check that findpwiz() is able to find msconvert
progFiles <- shell(cmd = "ECHO %ProgramFiles%\\ProteoWizard", translate=TRUE, intern=T)

a <- findpwiz(userGivenPath = "", proteoWizardLocation = progFiles)
b <- file.exists(a)

test_that("findpwiz() was able to find msconvert.exe", {
  expect_equal(b, TRUE)
})