mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 22:31:12 +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

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

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