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) (use-modules (ice-9 threads)
(test-suite lib)) (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 "1"
(pass-if "no forms" (call-with-values
(call-with-values (lambda ()
(lambda () (parallel 1))
(parallel)) (lambda (x)
(lambda () (equal? x 1))))
#t)))
(pass-if "1 2"
(pass-if "1" (call-with-values
(call-with-values (lambda ()
(lambda () (parallel 1 2))
(parallel 1)) (lambda (x y)
(lambda (x) (and (equal? x 1)
(equal? x 1)))) (equal? y 2)))))
(pass-if "1 2" (pass-if "1 2 3"
(call-with-values (call-with-values
(lambda () (lambda ()
(parallel 1 2)) (parallel 1 2 3))
(lambda (x y) (lambda (x y z)
(and (equal? x 1) (and (equal? x 1)
(equal? y 2))))) (equal? y 2)
(equal? z 3)))))))
(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))))))