01/05: gnu: gegl: Extend test time-outs.

[guix-commits]

nckx pushed a commit to branch master
in repository guix.

commit ef0552087339666ad3dfb3394ddefcc4648bef40
Author: Tobias Geerinckx-Rice <me@tobias.gr>
AuthorDate: Sat Nov 28 15:05:38 2020 +0100

    gnu: gegl: Extend test time-outs.
    
    * gnu/packages/gimp.scm (gegl)[arguments]: Add an 'extend-test-time-outs 
phase.
---
 gnu/packages/gimp.scm | 17 ++++++++++++++++-
 1 file changed, 16 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/gimp.scm b/gnu/packages/gimp.scm
index ff986c0..c0c66e5 100644
--- a/gnu/packages/gimp.scm
+++ b/gnu/packages/gimp.scm
@@ -223,7 +223,22 @@ provided, as well as a framework to add new color models 
and data types.")
     (build-system meson-build-system)
     (arguments
      `(#:configure-flags
-       (list "-Dintrospection=false")))
+       (list "-Dintrospection=false")
+       #:phases
+       (modify-phases %standard-phases
+         (add-after 'unpack 'extend-test-time-outs
+           (lambda _
+             ;; Multiply some poorly-chosen time-outs for busy build machines.
+             (substitute* "tests/simple/test-node-exponential.c"
+               (("G_TIME_SPAN_SECOND" match)
+                (string-append "10 * " match)))
+             (substitute* "tests/simple/test-buffer-sharing.c"
+               (("g_timeout_add_seconds\\([0-9]+" match)
+                (string-append match "0")))
+             (substitute* (find-files "tests" "^meson\\.build$")
+               (("timeout ?: [0-9]+" match)
+                (string-append match "0")))
+             #t)))))
     ;; These are propagated to satisfy 'gegl-0.4.pc'.
     (propagated-inputs
      `(("babl" ,babl)