04/12: gnu: qemu: Extend I/O test time-outs.

[guix-commits]

nckx pushed a commit to branch master
in repository guix.

commit 1b0cda6b442dd79324eaeb5b552cbc32faca3726
Author: Tobias Geerinckx-Rice <me@tobias.gr>
AuthorDate: Sat Nov 14 18:34:56 2020 +0100

    gnu: qemu: Extend I/O test time-outs.
    
    * gnu/packages/virtualization.scm (qemu)[arguments]: Add an
    ‘extend-test-time-outs’ phase.
---
 gnu/packages/virtualization.scm | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/gnu/packages/virtualization.scm b/gnu/packages/virtualization.scm
index deacb60..176201b 100644
--- a/gnu/packages/virtualization.scm
+++ b/gnu/packages/virtualization.scm
@@ -177,6 +177,14 @@
                                               '("include")
                                               input-directories)
                #t)))
+         (add-after 'unpack 'extend-test-time-outs
+           (lambda _
+             ;; These tests can time out on heavily-loaded and/or slow storage.
+             (substitute* (cons* "tests/qemu-iotests/common.qemu"
+                                 (find-files "tests/qemu-iotests" "^[0-9]+$"))
+               (("QEMU_COMM_TIMEOUT=[0-9]+" match)
+                (string-append match "9")))
+             (fail)))
          (add-after 'unpack 'disable-unusable-tests
            (lambda _
              (substitute* "tests/Makefile.include"