16 lines
252 B
Scheme
16 lines
252 B
Scheme
#!r6rs
|
|
|
|
(library (tests r6rs programs)
|
|
(export run-programs-tests)
|
|
(import (rnrs)
|
|
(tests r6rs test))
|
|
|
|
(define (run-programs-tests)
|
|
|
|
(test (list? (command-line)) #t)
|
|
(test (string? (car (command-line))) #t)
|
|
|
|
;;
|
|
))
|
|
|