From 3e6b398a48aacf15f605cff4d3f492505dc134a5 Mon Sep 17 00:00:00 2001
From: Marius Bakke <mbakke@fastmail.com>
Date: Sat, 17 Feb 2018 00:04:16 +0100
Subject: [PATCH] gnu: girara: Increase test timeouts.

Fixes build failures on Hydra.  Reported by Mark H Weaver in
<https://lists.gnu.org/archive/html/guix-devel/2017-12/msg00391.html>.

* gnu/packages/gtk.scm (girara)[arguments]: Set CK_DEFAULT_TIMEOUT before
running tests.
---
 gnu/packages/gtk.scm | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/gnu/packages/gtk.scm b/gnu/packages/gtk.scm
index 86dff08e40..c05d0734ef 100644
--- a/gnu/packages/gtk.scm
+++ b/gnu/packages/gtk.scm
@@ -1267,6 +1267,11 @@ write GNOME applications.")
                       (let ((xorg-server (assoc-ref inputs "xorg-server"))
                             (display ":1"))
                         (setenv "DISPLAY" display)
+
+                        ;; On busy machines, tests may take longer than
+                        ;; the default of four seconds.
+                        (setenv "CK_DEFAULT_TIMEOUT" "20")
+
                         ;; Don't fail due to missing '/etc/machine-id'.
                         (setenv "DBUS_FATAL_WARNINGS" "0")
                         (zero? (system (string-append xorg-server "/bin/Xvfb "