Complete tests for RLum.Data.Spectrum

R-Lum · Dec 17, 2024 · 05f10c9 · 05f10c9
1 parent e8ac498
commit 05f10c9
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/tests/testthat/test_merge_RLum.Data.Spectrum.R b/tests/testthat/test_merge_RLum.Data.Spectrum.R
@@ -70,15 +70,24 @@ test_that("snapshot tests", {
   expect_snapshot_RLum(merge_RLum.Data.Spectrum(list(TL.Spectrum, TL.Spectrum),
                                                 merge.method = "-"))
 
+  expect_s4_class(merge_RLum.Data.Spectrum(list(TL.Spectrum, TL.Spectrum, TL.Spectrum),
+                                           merge.method = "/"), "RLum.Data.Spectrum")
+
   expect_snapshot_RLum(merge_RLum.Data.Spectrum(list(TL.Spectrum, TL.Spectrum),
                                                 merge.method = "append"))
 
   expect_snapshot_RLum(merge_RLum.Data.Spectrum(list(TL.Spectrum, TL.Spectrum),
                                                 merge.method = "*"))
 
+  expect_s4_class(merge_RLum.Data.Spectrum(list(TL.Spectrum, TL.Spectrum, TL.Spectrum),
+                                                merge.method = "*"), "RLum.Data.Spectrum")
+
   expect_snapshot_RLum(merge_RLum.Data.Spectrum(list(TL.Spectrum, TL.Spectrum),
                                                 merge.method = "/"))
 
+  expect_s4_class(merge_RLum.Data.Spectrum(list(TL.Spectrum, TL.Spectrum, TL.Spectrum),
+                                           merge.method = "/"), "RLum.Data.Spectrum")
+
   expect_warning(
       expect_snapshot_RLum(merge_RLum.Data.Spectrum(list(TL.Spectrum,
                                                          TL.Spectrum_zeros),