360/360: gnu: r-abaenrichment: Adjust for testthat compatibility.

[guix-commits]

guix_mirror_bot pushed a commit to branch r-team
in repository guix.

commit c8e20154064e24c1a72c15ed34615174e040e7f3
Author: Ricardo Wurmus <rek...@elephly.net>
AuthorDate: Thu Nov 27 07:23:02 2025 +0100

    gnu: r-abaenrichment: Adjust for testthat compatibility.
    
    * gnu/packages/bioconductor.scm (r-abaenrichment)[arguments]: Add phase
    'testthat-compatibility.
    
    Change-Id: I532339067402d2465b793bb16f6b137c425170ff
---
 gnu/packages/bioconductor.scm | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/gnu/packages/bioconductor.scm b/gnu/packages/bioconductor.scm
index 16b3dfc016..a2897d077a 100644
--- a/gnu/packages/bioconductor.scm
+++ b/gnu/packages/bioconductor.scm
@@ -20273,6 +20273,19 @@ annotations and ontologies.")
         (base32
          "1sp3f72rzlr822dxx42bswynrwwfx6f520hdhfdikqp13p2y4044"))))
     (properties `((upstream-name . "ABAEnrichment")))
+    (arguments
+     (list
+      #:phases
+      '(modify-phases %standard-phases
+         ;; These deprecated procedures have been removed in testthat.
+         (add-after 'unpack 'testthat-compatibility
+           (lambda _
+             (substitute* '("tests/testthat/test_0load_by_name.R"
+                            "tests/testthat/test_aba_enrich.R"
+                            "tests/testthat/test_detect_identifier.R"
+                            "tests/testthat/test_get_superstructures.R")
+               (("is_true\\(\\)") "expect_true")
+               (("is_false\\(\\)") "expect_false")))))))
     (build-system r-build-system)
     (propagated-inputs
      (list r-abadata