mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-15 16:20:17 +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 • committed by Andy Wingo
parent 817a071209
commit 109d221650
1 changed files with 12 additions and 11 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")
@ -57,7 +58,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