09/09: gnu: icu4c-70: Fix building on riscv64-linux.

[guix-commits]

efraim pushed a commit to branch master
in repository guix.

commit e0e87fe3a62d308f00dfada08c83c64ba70419e5
Author: Efraim Flashner <efraim@flashner.co.il>
AuthorDate: Mon Jul 11 16:18:12 2022 +0300

    gnu: icu4c-70: Fix building on riscv64-linux.
    
    * gnu/packages/icu4c.scm (icu4c-70)[arguments]: When building for
    riscv64-linux replace the custom 'disable-failing-test phase to skip an
    additional test.
---
 gnu/packages/icu4c.scm | 18 ++++++++++++++++--
 1 file changed, 16 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/icu4c.scm b/gnu/packages/icu4c.scm
index 1be214f67f..94a72fac15 100644
--- a/gnu/packages/icu4c.scm
+++ b/gnu/packages/icu4c.scm
@@ -1,7 +1,7 @@
 ;;; GNU Guix --- Functional package management for GNU
 ;;; Copyright © 2013 Andreas Enge <andreas@enge.fr>
 ;;; Copyright © 2015, 2016 Mark H Weaver <mhw@netris.org>
-;;; Copyright © 2016, 2017, 2020 Efraim Flashner <efraim@flashner.co.il>
+;;; Copyright © 2016, 2017, 2020, 2022 Efraim Flashner <efraim@flashner.co.il>
 ;;; Copyright © 2017 Clément Lassieur <clement@lassieur.org>
 ;;; Copyright © 2017 Ricardo Wurmus <rekado@elephly.net>
 ;;; Copyright © 2019, 2020 Marius Bakke <mbakke@fastmail.com>
@@ -136,7 +136,21 @@ C/C++ part.")
                     "-src.tgz"))
               (sha256
                (base32
-                "1m9zgkaf5lyh65nyc6n0n5bs2f5k53nnj1ih6nskpwbvq4l5884d"))))))
+                "1m9zgkaf5lyh65nyc6n0n5bs2f5k53nnj1ih6nskpwbvq4l5884d"))))
+    (arguments
+     (if (target-riscv64?)
+       (substitute-keyword-arguments (package-arguments icu4c)
+         ((#:phases phases)
+          `(modify-phases ,phases
+             (replace 'disable-failing-test
+               ;; It is unknown why these tests are failing.
+               (lambda _
+                 (substitute* "source/test/cintltst/ucptrietest.c"
+                   ((".*addTest.*") ""))
+                 (substitute* "source/test/intltest/numbertest_api.cpp"
+                   (("(TESTCASE_AUTO\\(unitUsage\\));" all)
+                    (string-append "//" all))))))))
+       (package-arguments icu4c)))))
 
 (define-public icu4c-67
   (package