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

Last change on this file since 23089 was 23089, checked in by felix winkelmann, 10 years ago

added sexp-diff, stolen from racket-unstable
File size: 568 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)
Note: See TracBrowser for help on using the repository browser.