mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-19 05:39:18 +02:00
13 lines
435 B
Scheme
13 lines
435 B
Scheme
(define-library (chibi doc-test)
|
|
(export run-tests)
|
|
(import (scheme base) (chibi doc) (chibi test))
|
|
(begin
|
|
(define (run-tests)
|
|
(test-begin "doc")
|
|
(test '(spec (args config))
|
|
(get-optionals-signature
|
|
'(spec . o)
|
|
'(let ((args (or (and (pair? o) (car o)) (command-line)))
|
|
(config (and (pair? o) (pair? (cdr o)) (cadr o))))
|
|
(foo))))
|
|
(test-end))))
|