From dcc15a30dda710cbad8e7efccc66a1a61479b671 Mon Sep 17 00:00:00 2001 From: Johannes Rainer Date: Thu, 12 Sep 2024 08:57:24 +0200 Subject: [PATCH] tests: add unit test for as,Spectra,MSpectra --- tests/testthat/test_functions-MSpectra.R | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/tests/testthat/test_functions-MSpectra.R b/tests/testthat/test_functions-MSpectra.R index ee715c30..92cac834 100644 --- 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)) })