summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2017-02-11 22:00:18 +0100
committerLudovic Courtès <ludo@gnu.org>2017-02-11 22:00:18 +0100
commitf2764cb1031379c47a17c02fef3f8164a6ce9cda (patch)
tree8137f183de55e20d9ffb575c4b8fed81d0c195ec
parent458ae248ab353af24e27b8fb3e5fe7a8b78ae219 (diff)
downloadguile-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.test21
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