From eceba2c56e6d6ad4b0d7ad1f20a2bada1894d2e7 Mon Sep 17 00:00:00 2001
From: Ricardo Wurmus <rekado@elephly.net>
Date: Wed, 19 Nov 2025 08:41:28 +0100
Subject: [PATCH] gnu: r-htmltools: Disable one test.

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

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

diff --git a/gnu/packages/cran.scm b/gnu/packages/cran.scm
index afad7063248..055568e961f 100644
--- a/gnu/packages/cran.scm
+++ b/gnu/packages/cran.scm
@@ -12832,6 +12832,16 @@ a list of p-values.")
                (base32
                 "0xpi2g87vwanp0kbs22j90pa2bban3nwrdjdb3257hq6xj9j5xpr"))))
     (build-system r-build-system)
+    (arguments
+     (list
+      #:phases
+      '(modify-phases %standard-phases
+         (add-after 'unpack 'disable-bad-tests
+           (lambda _
+             ;; XXX: $ operator is invalid for atomic vectors
+             (substitute* "tests/testthat/test-tag-query.R"
+               ((".*tagQuery\\(\\)\\$find\\(\\).*" m)
+                (string-append m "skip('skip');\n"))))))))
     (propagated-inputs
      (list r-base64enc r-digest r-fastmap r-rlang))
     (native-inputs (list r-markdown r-testthat))