mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

Only test when 'threads are provided.

Browse source
This commit is contained in:
Marius Vollmer 2005-03-02 20:55:17 +00:00
parent 1f834c95da
commit d8d925f310
1 changed files with 31 additions and 31 deletions
Download patch file Download diff file Expand all files Collapse all files

4
test-suite/tests/threads.test
View file

@ -20,7 +20,7 @@
(use-modules (ice-9 threads)
(test-suite lib))
(if (provided? 'threads)
(with-test-prefix "parallel"
(pass-if "no forms"
(call-with-values
@ -51,4 +51,4 @@
(lambda (x y z)
(and (equal? x 1)
(equal? y 2)
(equal? z 3))))))
(equal? z 3)))))))