civodul pushed a commit to branch stable-2.0 in repository guile. commit f2764cb1031379c47a17c02fef3f8164a6ce9cda Author: Ludovic Courtès <l...@gnu.org> 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 ren...@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 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