gnu: guix: Disable new syscall tests on armhf.

These tests currently fail on armhf. They would require large amount of time
or knowledge to be fixed and it's on a platform that's already not being
supported too well.

Followup of d339785a0fbd8f13930082a4fa7a73b6685630fd.

* gnu/packages/package-management.scm (guix): Disable new tests in
tests/syscalls.scm on arm32.

Change-Id: I056fb04a9a1230ed3d8718a4719a5f6d7010b847
Signed-off-by: Rutherther <rutherther@ditigal.xyz>

1 files changed, 13 insertions, 0 deletions

diff --git a/gnu/packages/package-management.scm b/gnu/packages/package-management.scm
index 71977aaa9f3..21a9217c0c6 100644
--- a/gnu/packages/package-management.scm
+++ b/gnu/packages/package-management.scm
@@ -412,6 +412,19 @@ $(prefix)/etc/openrc\n")))
                           (substitute* "tests/guix-environment-container.sh"
                             (("guix environment --version")
                              "exit 77\n")))))
+                    ,@(if (target-arm32?)
+                          `((add-after
+                                'disable-failing-tests
+                                'disable-failing-tests-on-arm32
+                              ;; XXX FIXME: These tests fail on armhf architecture,
+                              ;; see <https://codeberg.org/guix/guix/issues/5078>.
+                              (lambda _
+                                (substitute* "tests/syscalls.scm"
+                                  (("^\\(test-equal \"safe-clone and unshare succeeds\"" all)
+                                   (string-append "(test-skip 1)\n" all))
+                                  (("^\\(test-equal \"clone and unshare triggers EINVAL\"" all)
+                                   (string-append "(test-skip 1)\n" all))))))
+                          '())
                     (add-before 'check 'set-SHELL
                       (lambda _
                         ;; 'guix environment' tests rely on 'SHELL' having a