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

[Ludovic Courtès]

civodul pushed a commit to branch stable-2.0
in repository guile.

commit f2764cb1031379c47a17c02fef3f8164a6ce9cda
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 | 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