[Guile-commits] 05/14: tests: Avoid statprof test failure on systems without 'setitimer'.

[Andy Wingo]

wingo pushed a commit to branch master
in repository guile.

commit 109d22165077fdfb9984ad63347df09129401ac8
Author: Ludovic Courtès <address@hidden>
Date:   Sat Feb 11 22:00:18 2017 +0100

    tests: Avoid statprof test failure on systems without 'setitimer'.
    
    Partly fixes <http://bugs.gnu.org/25463>.
    Reported by address@hidden
    
    * test-suite/tests/statprof.test ("return values"): Wrap in
    'when-implemented'.
---
 test-suite/tests/statprof.test | 23 ++++++++++++-----------
 1 file changed, 12 insertions(+), 11 deletions(-)

diff --git a/test-suite/tests/statprof.test b/test-suite/tests/statprof.test
index 8965a03..a597f31 100644
--- a/test-suite/tests/statprof.test
+++ b/test-suite/tests/statprof.test
@@ -47,17 +47,18 @@
 
 (pass-if-equal "return values"
     '(42 77)
-  (call-with-values
-      (lambda ()
-        (with-output-to-port (%make-void-port "w")
-          (lambda ()
-            (statprof
-             (lambda ()
-               (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 ()
+             (statprof
+              (lambda ()
+                (let loop ((i 10000))
+                  (if (zero? i)
+                      (values 42 77)
+                      (loop (1- i)))))))))
+     list)))
 
 (pass-if "statistical sample counts within expected range"
   (when-implemented