From 6b091044f33d13f95f970c6a051c3ce6410dc42e Mon Sep 17 00:00:00 2001
From: Ricardo Wurmus <rekado@elephly.net>
Date: Thu, 27 Feb 2025 16:48:04 +0100
Subject: [PATCH] gnu: r-basics: Fix tests.

* gnu/packages/bioconductor.scm (r-basics)[arguments]: Disable ERCC tests.
[properties]; Record updater-extra-native-inputs.
[native-inputs]: Add r-scrnaseq.

Change-Id: Ic60eb7ca4ca17c1328d779352c1692a394814b9e
---
 gnu/packages/bioconductor.scm | 15 +++++++++++++--
 1 file changed, 13 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/bioconductor.scm b/gnu/packages/bioconductor.scm
index ec994293758..38575220e78 100644
--- a/gnu/packages/bioconductor.scm
+++ b/gnu/packages/bioconductor.scm
@@ -26656,8 +26656,19 @@ approach and a multi-scale contact profile.")
        (uri (bioconductor-uri "BASiCS" version))
        (sha256
         (base32 "1pdbkxamzcpgiqycp3dzmakj3laclgj3r9q9garz3q86m59fkrzb"))))
-    (properties `((upstream-name . "BASiCS")))
+    (properties
+     '((upstream-name . "BASiCS")
+       (updater-extra-native-inputs . ("r-scrnaseq"))))
     (build-system r-build-system)
+    (arguments
+     (list
+      #:phases
+      '(modify-phases %standard-phases
+         (add-after 'unpack 'disable-bad-tests
+           (lambda _
+             (substitute* "tests/testthat/test_misc.R"
+               ((".*ERCC works.*" m)
+                (string-append m "skip('guix')\n"))))))))
     (propagated-inputs
      (list r-assertthat
            r-biobase
@@ -26681,7 +26692,7 @@ approach and a multi-scale contact profile.")
            r-singlecellexperiment
            r-summarizedexperiment
            r-viridis))
-    (native-inputs (list r-knitr r-testthat))
+    (native-inputs (list r-knitr r-scrnaseq r-testthat))
     (home-page "https://github.com/catavallejos/BASiCS")
     (synopsis "Bayesian analysis of single-cell sequencing data")
     (description