test.scm

(load "terp.scm")
(load "utils.scm")

(define terp (snarf "terp.scm"))

(define (test-program filename cases)
  (let ((program (snarf filename)))
    (for-each (lambda (test-case)
                (let ((expected (car test-case))
                      (function (caadr test-case))
                      (arguments (cdadr test-case)))
                  (run-test filename program function arguments expected)
                  (run-meta-test filename program function arguments expected)))
              cases)))

(define (run-test context program function arguments expected)
  (let ((result (run program function arguments)))
    (cond ((not (equal? expected result))
           (say "Failed in " context)
           (display "For:      ") (print (cons function arguments))
           (display "Expected: ") (print expected)
           (display "Got:      ") (print result)
           (newline)))))

(define (run-meta-test context program function arguments expected)
  (run-test (string-append context " under self-interpreter")
            terp 'run (list program function arguments) expected))

(test-program 
 "programs/factor.scm"
 '((#t (prime? 2))
   (#t (prime? 3))
   (#f (prime? 4))
   (#t (prime? 41))
   (#f (prime? 42))
   ))

(test-program 
 "programs/power.scm"
 '((1  (power 3 0))
   (3  (power 3 1))
   (9  (power 3 2))
   (27 (power 3 3))
   ( 524288  (power 2 19))
   (1048576  (power 2 20))
   ))

(test-program 
 "programs/kmp.scm"
 '((#t (search () ()))
   (#t (search () (a)))
   (#t (search (a b a b) (x a b c a b a c a b a b)))
   (#t (search (a b a b c) (x a b c a b a b a b c)))
   (#f (search (a b a b c) (x a b c a b a b a b d)))
   (#t (search (a b c a b c a c a b) (a b c a b c a b c a c a b d)))
   ))