25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
chicken.pretty-print
commonmod
ulex
)
(define test-work-dir (current-directory))
(work-method 'mailbox) ;; threads, direct, mailbox
(return-method 'mailbox) ;; polling, mailbox, direct
;; given list of lists
;; ( ( msg expected param1 param2 ...)
;; ( ... ) )
;; apply test to all
;;
(define (test-batch proc pname inlst #!key (post-proc #f))
|
|
|
|
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
chicken.pretty-print
commonmod
ulex
)
(define test-work-dir (current-directory))
;; (work-method 'mailbox) ;; threads, direct, mailbox
;; (return-method 'mailbox) ;; polling, mailbox, direct
;; given list of lists
;; ( ( msg expected param1 param2 ...)
;; ( ... ) )
;; apply test to all
;;
(define (test-batch proc pname inlst #!key (post-proc #f))
|