20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
(import srfi-18
test
chicken.string
chicken.process-context
chicken.file
chicken.pretty-print
commonmod
)
(define test-work-dir (current-directory))
;; given list of lists
;; ( ( msg expected param1 param2 ...)
;; ( ... ) )
;; apply test to all
;;
(define (test-batch proc pname inlst #!key (post-proc #f))
|
>
>
>
>
|
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
(import srfi-18
test
chicken.string
chicken.process-context
chicken.file
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))
|