mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-23 13:00:34 +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"
'(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