From a4543d40cc4aae36ee284a9e01382424cb685701 Mon Sep 17 00:00:00 2001
From: Ricardo Wurmus <rekado@elephly.net>
Date: Wed, 26 Nov 2025 12:34:34 +0100
Subject: [PATCH] gnu: r-rvenn: Skip four tests.

* gnu/packages/cran.scm (r-rvenn)[arguments]: Add phase 'skip-bad-tests.

Change-Id: I5885179790b4a151360f45de83e4e18feccf6267
---
 gnu/packages/cran.scm | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/gnu/packages/cran.scm b/gnu/packages/cran.scm
index 08d3b85d151..0e6f3f3ec88 100644
--- a/gnu/packages/cran.scm
+++ b/gnu/packages/cran.scm
@@ -7599,6 +7599,18 @@ intersections.")
          "016m00xv59lkwm2is32v5nr4lw5a1ymdnz34r3ffflcv9bfrc6n4"))))
     (properties `((upstream-name . "RVenn")))
     (build-system r-build-system)
+    (arguments
+     (list
+      #:phases
+      '(modify-phases %standard-phases
+         (add-after 'unpack 'skip-bad-tests
+           (lambda _
+             ;; These tests fail because "class" returns 5 instead of 2 elements.
+             (substitute* "tests/testthat/test_ggvenn.R"
+               ((".*ggvenn: slices.*" m)
+                (string-append m "skip('skip');\n"))
+               ((".*ggvenn: plot for 2 and 3 sets.*" m)
+                (string-append m "skip('skip');\n"))))))))
     (propagated-inputs
      (list r-ggforce
            r-ggplot2