;;; File:
;;;   sample-tests
;;; Authors:
;;;   Samuel A. Rebelsky
;;;   Janet L. N. Davis
;;; Summary:
;;;   A test of unit-test.ss

(include "unit-test.ss")

(define id
  (lambda (x) 
    x))

(begin-tests!)
(test! '(id 'a) 'a)
(test! '(id 'b) 'b)
(test! '(+ 1 2) 3)
(test! '(+ 1 'a) 3)
(end-tests!)