diff options
author | Ludovic Courtès <ludo@gnu.org> | 2017-02-11 22:00:18 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2017-02-11 22:00:18 +0100 |
commit | f2764cb1031379c47a17c02fef3f8164a6ce9cda (patch) | |
tree | 8137f183de55e20d9ffb575c4b8fed81d0c195ec | |
parent | 458ae248ab353af24e27b8fb3e5fe7a8b78ae219 (diff) | |
download | guile-f2764cb1031379c47a17c02fef3f8164a6ce9cda.tar.gz |
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'.
-rw-r--r-- | test-suite/tests/statprof.test | 21 |
1 files 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 |