source: project/release/4/pool/trunk/tests/run.scm @ 18621

Last change on this file since 18621 was 18621, checked in by Moritz Heidkamp, 10 years ago

pool: initial import

File size: 927 bytes
Line 
1(load-relative "../pool.scm")
2(import pool)
3(use test srfi-18)
4
5(define pool (make-pool '(foo bar baz)))
6
7(test 'foo (call-with-value-from-pool pool identity))
8(test 'foo (call-with-value-from-pool pool identity))
9
10(test 'foo (call-with-value-from-pool pool 
11             (lambda (v)
12               (call-with-value-from-pool pool 
13                 (lambda (v)
14                   (call-with-value-from-pool pool identity))))))
15
16(test 'baz (call-with-value-from-pool pool 
17             (lambda (v)
18               (thread-join! (call-with-value-from-pool-in-thread pool
19                               (lambda (v)
20                                 (thread-join! (call-with-value-from-pool-in-thread pool identity))))))))
21
22
23(test 'foo (call-with-value-from-pool pool 
24             (lambda (v)
25               (thread-join! (call-with-value-from-pool-in-thread pool
26                               (lambda (v)
27                                 (thread-join! (call-with-value-from-pool-in-thread pool
28                                                 (lambda (v)
29                                                   (thread-join! (call-with-value-from-pool-in-thread pool identity)))))))))))
Note: See TracBrowser for help on using the repository browser.