From 24fe08e5fe66f5ec8ab06db2fe4057cbae0fcc5c Mon Sep 17 00:00:00 2001
From: hechth <helge.hecht@recetox.muni.cz>
Date: Tue, 9 Jul 2024 15:34:59 +0200
Subject: [PATCH] added skipping test for mzdata and higher mzR versions.

---
 tests/testthat/test-load.lcms.R | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/tests/testthat/test-load.lcms.R b/tests/testthat/test-load.lcms.R
index dd55f6e..d9c56cc 100644
--- a/tests/testthat/test-load.lcms.R
+++ b/tests/testthat/test-load.lcms.R
@@ -10,6 +10,10 @@ create_test_case <- function(filename, mz_length, rt_length, intensities_length)
 patrick::with_parameters_test_that(
   "test load.lcms reads different file types",
   {
+    if(packageVersion("mzR") >= "2.29.0" && tools::file_ext(filename) == "mzdata") {
+      print("mzR >= 2.29.0 no longer supports mzdata.")
+      skip()
+    }
     # Arrange: Set up test inputs
     testdata <- file.path("..", "testdata")
     input_path <- file.path(testdata, "input", filename)