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

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

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