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

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

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