source: project/release/4/sexp-diff/trunk/tests/run.scm @ 29575

Last change on this file since 29575 was 29575, checked in by sjamaan, 7 years ago

Add test-exit call to sexp-diff egg

File size: 581 bytes
Line 
1;;;; run.scm
2
3
4(use sexp-diff test)
5
6(test-begin "simple sexp-diff tests")
7
8(test
9 '((DEFUN F (X) (#:new - #:old + (* X 2) #:new 3 1)))
10 (sexp-diff
11  '(DEFUN F (X) (+ (* X 2) 1)) 
12  '(DEFUN F (X) (- (* X 2) 3 1))))
13
14(test
15 '((DEFUN F (X) (#:new - #:old + (* X 2) #:new 5 #:new 3 #:old 4 1)))
16 (sexp-diff
17  '(DEFUN F (X) (+ (* X 2) 4 1))
18  '(DEFUN F (X) (- (* X 2) 5 3 1))))
19
20(test
21 '((DEFUN F (X) (#:new - #:old + (* X 2) #:new 5 #:new 5 #:new 3 #:old 4 #:old 4 1)))
22  (sexp-diff
23   '(DEFUN F (X) (+ (* X 2) 4 4 1))
24   '(DEFUN F (X) (- (* X 2) 5 5 3 1))))
25
26(test-end)
27
28(test-exit)
Note: See TracBrowser for help on using the repository browser.