mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 19:50:24 +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

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

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