scheme-srfi/srfi-tests/31.sld

(define-library (srfi-tests 31)
  (export run-tests)
  (import
   (scheme base)
   (scheme lazy)
   (srfi 31)
   (srfi 64)
   (srfi-tests aux))
  (begin
    (define-tests run-tests "SRFI-31"
      (test-eqv "factorial" 3628800
        ((rec (! n)
           (if (zero? n)
               1
               (* n (! (- n 1)))))
         10))
      (test-eqv "lazy stream" 'x
        (car (force (cdr (force (cdr (rec xs (cons 'x (delay xs))))))))))))