07/07: gnu: texlive: Improve the monolithic packages for non-x86_64 architectures.

[guix-commits]

andreas pushed a commit to branch wip-texlive-mono
in repository guix.

commit d2e2d11c5b62bd565545dbf7dc6c60007807f87d
Author: Andreas Enge <andreas@enge.fr>
AuthorDate: Tue Aug 8 10:31:16 2023 +0200

    gnu: texlive: Improve the monolithic packages for non-x86_64 architectures.
    
    * gnu/packages/texlive.scm (texlivebin)[arguments]: Enable tests also
    on aarch64 and powerpc64le. Remove 'disable-failing-test phase.
    (texlivetexmf)[arguments]: Define a missing variable.
---
 gnu/packages/texlive.scm | 12 ++----------
 1 file changed, 2 insertions(+), 10 deletions(-)

diff --git a/gnu/packages/texlive.scm b/gnu/packages/texlive.scm
index b6bc3f30f7..8147f386a5 100644
--- a/gnu/packages/texlive.scm
+++ b/gnu/packages/texlive.scm
@@ -191,9 +191,7 @@
       ;; XXX FIXME fix luajit properly on these architectures.
       #:tests? ,(let ((s (or (%current-target-system)
                              (%current-system))))
-                  (not (or (string-prefix? "aarch64" s)
-                           (string-prefix? "mips64" s)
-                           (string-prefix? "powerpc64le" s))))
+                  (not (string-prefix? "mips64" s)))
 
        #:phases
        (modify-phases %standard-phases
@@ -216,13 +214,6 @@
              (substitute* "texk/texlive/linked_scripts/epstopdf/epstopdf.pl"
                (("\"gs\"")
                 (string-append "\"" (assoc-ref inputs "ghostscript") 
"/bin/gs\"")))))
-         (add-after 'unpack 'disable-failing-test
-           (lambda _
-             ;; FIXME: This test fails on 32-bit architectures since Glibc 
2.28:
-             ;; <https://bugzilla.redhat.com/show_bug.cgi?id=1631847>.
-             (substitute* "texk/web2c/omegafonts/check.test"
-               (("^\\./omfonts -ofm2opl \\$srcdir/tests/check tests/xcheck 
\\|\\| exit 1")
-                "./omfonts -ofm2opl $srcdir/tests/check tests/xcheck || exit 
77"))))
          (add-after 'unpack 'unpack-texlive-extra
            (lambda* (#:key inputs #:allow-other-keys)
              (mkdir "texlive-extra")
@@ -345,6 +336,7 @@ This package contains the binaries.")
                      (share (string-append out "/share"))
                      (texmfroot (string-append share "/texmf-dist/web2c"))
                      (texmfcnf (string-append texmfroot "/texmf.cnf"))
+                     (fmtutilcnf (string-append texmfroot "/fmtutil.cnf"))
                      (texlive-bin (assoc-ref inputs "texlive-bin"))
                      (texbin (string-append texlive-bin "/bin"))
                      (tlpkg (string-append texlive-bin "/share/tlpkg")))