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

Partly fixes <http://bugs.gnu.org/25463>.
Reported by rennes@openmailbox.org.

* 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 482709f64..885e31039 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