[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] 01/01: tests: Avoid statprof test failure on systems wit
From: |
Ludovic Courtès |
Subject: |
[Guile-commits] 01/01: tests: Avoid statprof test failure on systems without 'setitimer'. |
Date: |
Sat, 11 Feb 2017 16:01:19 -0500 (EST) |
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