mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-23 21:10:29 +02:00
Code Activity

tests: Avoid statprof test failure on systems without 'setitimer'.

Browse source 
Partly fixes <http://bugs.gnu.org/25463>.
Reported by rennes@openmailbox.org.

* test-suite/tests/statprof.test ("return values"): Wrap in
'when-implemented'.
This commit is contained in:
Ludovic Courtès 2017-02-11 22:00:18 +01:00
parent 458ae248ab
commit f2764cb103
1 changed files with 11 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

21
test-suite/tests/statprof.test
View file

@ -47,16 +47,17 @@
(pass-if-equal "return values" (pass-if-equal "return values"
'(42 77) '(42 77)
(call-with-values (when-implemented
(lambda () (call-with-values
(with-output-to-port (%make-void-port "w") (lambda ()
(lambda () (with-output-to-port (%make-void-port "w")
(with-statprof (lambda ()
(let loop ((i 10000)) (with-statprof
(if (zero? i) (let loop ((i 10000))
(values 42 77) (if (zero? i)
(loop (1- i)))))))) (values 42 77)
list)) (loop (1- i))))))))
list)))
(pass-if "statistical sample counts within expected range" (pass-if "statistical sample counts within expected range"
(when-implemented (when-implemented