tests: add unit test for as,Spectra,MSpectra

lgatto · Sep 12, 2024 · dcc15a3 · dcc15a3
1 parent 3fad522
commit dcc15a3
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/tests/testthat/test_functions-MSpectra.R b/tests/testthat/test_functions-MSpectra.R
@@ -118,5 +118,7 @@ test_that(".spectra_to_spectrum_list and as,Spectra,MSpectra works", {
     expect_equal(length(a), length(sps_dda))
     expect_true(all(vapply(a, function(z) inherits(z, "Spectrum"), logical(1))))
 
-
+    a <- as(sps_dda, "MSpectra")
+    expect_s4_class(a, "MSpectra")
+    expect_equal(all(msLevel(a)), Spectra::msLevel(sps_dda))
 })