26/42: gnu: qemu: Skip some tests on riscv64-linux.

[guix-commits]

efraim pushed a commit to branch wip-riscv
in repository guix.

commit bce9a0a1d0e62cd906e551c05d1d7a3f2dc14768
Author: Efraim Flashner <efraim@flashner.co.il>
AuthorDate: Mon Aug 23 12:29:36 2021 +0300

    gnu: qemu: Skip some tests on riscv64-linux.
    
    * gnu/packages/virtualization.scm (qemu)[arguments]: Add phase for
    riscv64-linux to skip some unsupported tests.
---
 gnu/packages/virtualization.scm | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/gnu/packages/virtualization.scm b/gnu/packages/virtualization.scm
index 8e6c9ed..82998d1 100644
--- a/gnu/packages/virtualization.scm
+++ b/gnu/packages/virtualization.scm
@@ -207,6 +207,18 @@
                ;; fails within the build environment.
                ((".*'test-char':.*" all)
                 (string-append "# " all)))))
+         ,(if (target-riscv64?)
+            `(add-after 'unpack 'disable-some-tests
+               (lambda _
+                 ;; qemu.qmp.QMPConnectError: Unexpected empty reply from 
server
+                 (delete-file "tests/qemu-iotests/040")
+                 (delete-file "tests/qemu-iotests/041")
+                 (delete-file "tests/qemu-iotests/256")
+
+                 ;; No 'PCI' bus found for device 'virtio-scsi-pci'
+                 (delete-file "tests/qemu-iotests/127")
+                 (delete-file "tests/qemu-iotests/267")))
+            `())
          (add-after 'patch-source-shebangs 'patch-embedded-shebangs
            (lambda _
              ;; Ensure the executables created by these source files reference