如果你不想求助于成熟的单元测试库（可以理解），一个选择是编写你自己的单元测试库，你可以使用read从文件中读取s表达式，使用eval计算它们并测试它们是否为假，然后返回报告，如果发现为假则退出。

(define (read-and-test filename env)
  (call-with-input-file
      filename
    (lambda (in)
      (let loop ((input (read in)))
        (if (eof-object? input)
            (display "done!")
            (begin
              (if (eval input env)
                  (begin
                    (display input)
                    (display " ok")
                    (newline)
                    (loop (read in)))
                  (begin
                    (display "failed on ")
                    (display input)
                    (newline)
                    (exit)))))))))

如果你把上面的代码放在一个名为unit.scm的文件中，而你要测试的文件名为test.scm，你可以在Unix命令行中使用MIT Scheme调用它，如下所示：

mit-scheme --load `pwd`/unit.scm --eval '(read-and-test "/Users/aki/code/scratch/test.scm" (the-environment))'

(note上面有一些MIT计划的具体内容，与eval和环境有关）

我可以想到两种方法：强力方法是编写一个expect脚本，将scheme作为一个低级进程运行，一次给它一行并检查返回的输出--基本上，就像一个机器人;更优雅的方法是将scheme解释器中的顶层REPL替换为一个在表达式计算为#f时退出的REPL。