gnu: r-sparsearray: Fix build.

* gnu/packages/bioconductor.scm (r-sparsearray)[arguments]<#:phases>:
Add 'relax-floating-point-tests.

Change-Id: Ia39226c46180422e9a979b68200d8175d1c2957b

gnu/packages/bioconductor.scm

@@ -25936,6 +25936,26 @@ variable and significantly correlated genes.")
                              r-s4vectors
                              r-xvector))
     (native-inputs (list r-knitr r-testthat))
+    (arguments
+     (list
+      #:phases
+      '(modify-phases %standard-phases
+        (add-after 'unpack 'relax-floating-point-tests
+          ;; Test files that are modified below contain the following
+          ;; comment:
+          ;; "Looks like using expect_identical() is too strict for some
+          ;; operations on some systems"
+          ;; then modify the tests to expect_equal for specific functions
+          ;; on speficic systems. This looks as if we are in the presence
+          ;; of floating point discrepancies, which are poorly suited for
+          ;; a strict test suite rejecting builds. Since the tests also
+          ;; fail in Guix on x86_64 with gcc@14, let us use expect_equal
+          ;; everywhere.
+          (lambda _
+            (substitute*
+              '("tests/testthat/test-NaArray-Math-methods.R"
+                "tests/testthat/test-SparseArray-Math-methods.R")
+              (("expect_identical\\(as") "expect_equal(as")))))))
     (home-page "https://bioconductor.org/packages/SparseArray")
     (synopsis
      "Efficient in-memory representation of multidimensional sparse arrays")