tests: complete unit test coverage

rformassspectrometry · Nov 20, 2024 · 40c14e0 · 40c14e0
1 parent ff8146a
commit 40c14e0
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/tests/testthat/test_MsBackendMgf.R b/tests/testthat/test_MsBackendMgf.R
@@ -104,6 +104,11 @@ test_that("export,MsBackendMgf works", {
     res <- readLines(fl)
     expect_true(length(grep("TITLE=msLevel", res)) == 0)
 
+    spectraNames(sps) <- paste0("yes", seq_along(sps))
+    export(MsBackendMgf(), sps, file = fl, exportTitle = TRUE)
+    res <- readLines(fl)
+    expect_true(length(grep("TITLE=yes", res)) == 0)
+
     expect_error(export(MsBackendMgf(), file = fl), "missing")
     expect_error(export(MsBackendMgf(), x = spd, file = fl), "spectra data to")