;;;; run.scm


(use sexp-diff test)

(test-begin "simple sexp-diff tests")

(test
 '((DEFUN F (X) (#:new - #:old + (* X 2) #:new 3 1)))
 (sexp-diff
  '(DEFUN F (X) (+ (* X 2) 1)) 
  '(DEFUN F (X) (- (* X 2) 3 1))))

(test
 '((DEFUN F (X) (#:new - #:old + (* X 2) #:new 5 #:new 3 #:old 4 1)))
 (sexp-diff
  '(DEFUN F (X) (+ (* X 2) 4 1))
  '(DEFUN F (X) (- (* X 2) 5 3 1))))

(test
 '((DEFUN F (X) (#:new - #:old + (* X 2) #:new 5 #:new 5 #:new 3 #:old 4 #:old 4 1)))
  (sexp-diff
   '(DEFUN F (X) (+ (* X 2) 4 4 1))
   '(DEFUN F (X) (- (* X 2) 5 5 3 1))))

(test-end)