16/17: gnu: julia-geometrybasics: Fix tests on i686-linux.

[guix-commits]

efraim pushed a commit to branch core-updates-frozen
in repository guix.

commit 82586916be212cff4a366df2b0778ad8019ef59f
Author: zimoun <zimon.toutoune@gmail.com>
AuthorDate: Wed Dec 1 16:54:41 2021 +0100

    gnu: julia-geometrybasics: Fix tests on i686-linux.
    
    * gnu/packages/julia-xyz (julia-geometrybasics)[arguments]<#:phases>:
    Conditionally replace the incorrect type in test suite.
    
    Signed-off-by: Efraim Flashner <efraim@flashner.co.il>
---
 gnu/packages/julia-xyz.scm | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/gnu/packages/julia-xyz.scm b/gnu/packages/julia-xyz.scm
index a757e5f..bcb1d48 100644
--- a/gnu/packages/julia-xyz.scm
+++ b/gnu/packages/julia-xyz.scm
@@ -1981,14 +1981,18 @@ matrices the Schur form is often more useful.")
            (lambda _
              (substitute* '("Project.toml"
                             "src/GeometryBasics.jl")
-               ((".*EarCut.*") ""))
-             #t))
+               ((".*EarCut.*") ""))))
          (add-after 'link-depot 'skip-incompatible-test
            (lambda _
              (substitute* "test/runtests.jl"
                (("@testset.*MetaT and heterogeneous data.*" all)
-                (string-append all "return\n")))
-             #t)))))
+                (string-append all "return\n")))))
+         ,@(if (target-64bit?)
+             '()
+             '((add-after 'unpack 'fix-tests-int32-i686
+                 (lambda _
+                   (substitute* "test/runtests.jl"
+                     (("Int64") "Int32")))))))))
     (propagated-inputs
      `(("julia-itertools" ,julia-itertools)
        ("julia-staticarrays" ,julia-staticarrays)