Source: guile-2.0
Version: 2.0.13+1-5.1
Severity: important
Tags: ftbfs, patch, fixed-upstream
User: [email protected]
Usertags: hurd

Hello,

Currently guile-2.0 FTBFS on GNU/Hurd due to one test failing. The
attached upstream patch, renamed to 0006-fix-hurd-statprof-test.patch
fixes that problem. It is already fixed upstream, in commit 
https://git.savannah.gnu.org/cgit/guile.git/commit/?h=stable-2.0&id=f2764cb1031379c47a17c02fef3f8164a6ce9cda
, see https://debbugs.gnu.org/cgi/bugreport.cgi?bug=37037

Thanks!
From f2764cb1031379c47a17c02fef3f8164a6ce9cda Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <[email protected]>
Date: Sat, 11 Feb 2017 22:00:18 +0100
Subject: tests: Avoid statprof test failure on systems without 'setitimer'.

Partly fixes <http://bugs.gnu.org/25463>.
Reported by [email protected].

* test-suite/tests/statprof.test ("return values"): Wrap in
'when-implemented'.
---
 test-suite/tests/statprof.test | 21 +++++++++++----------
 1 file changed, 11 insertions(+), 10 deletions(-)

diff --git a/test-suite/tests/statprof.test b/test-suite/tests/statprof.test
index 482709f..885e310 100644
--- a/test-suite/tests/statprof.test
+++ b/test-suite/tests/statprof.test
@@ -47,16 +47,17 @@
 
 (pass-if-equal "return values"
     '(42 77)
-  (call-with-values
-      (lambda ()
-        (with-output-to-port (%make-void-port "w")
-          (lambda ()
-            (with-statprof
-                (let loop ((i 10000))
-                  (if (zero? i)
-                      (values 42 77)
-                      (loop (1- i))))))))
-    list))
+  (when-implemented
+   (call-with-values
+       (lambda ()
+         (with-output-to-port (%make-void-port "w")
+           (lambda ()
+             (with-statprof
+                 (let loop ((i 10000))
+                   (if (zero? i)
+                       (values 42 77)
+                       (loop (1- i))))))))
+     list)))
 
 (pass-if "statistical sample counts within expected range"
   (when-implemented
-- 
cgit v1.0-41-gc330

Reply via email to