From 77cc7fba6983a0583c7bf3cf71ba16d7c2b62472 Mon Sep 17 00:00:00 2001
From: Ricardo Wurmus <rekado@elephly.net>
Date: Wed, 26 Nov 2025 21:04:33 +0100
Subject: [PATCH] gnu: r-seqminer: Disable two tests.

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

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

diff --git a/gnu/packages/cran.scm b/gnu/packages/cran.scm
index 4fe5ba32214..ce9b83c3e04 100644
--- a/gnu/packages/cran.scm
+++ b/gnu/packages/cran.scm
@@ -51312,6 +51312,19 @@ designs.  Broman et al. (2018) <doi:10.1534/genetics.118.301595>.")
         (base32
          "15dkh4wfszfrpfpwyhnwj3bnkjfxm17bp0grr1wf4h6zxj0jbkp5"))))
     (build-system r-build-system)
+    (arguments
+     (list
+      #:phases
+      '(modify-phases %standard-phases
+         (add-after 'unpack 'disable-bad-tests
+           (lambda _
+             ;; These tests fail with
+             ;; "`failure_message` must be a character vector, not absent."
+             (substitute* "tests/testthat/test-vcf.R"
+               ((".*createSingleChromosomeBCFIndex.*" m)
+                (string-append m "skip('skip')\n"))
+               ((".*createSingleChromosomeVCFIndex.*" m)
+                (string-append m "skip('skip')\n"))))))))
     (inputs
      (list zlib))
     (native-inputs (list r-testthat))