source: project/misc-extn/trunk/tests/test-misc-extn-dssl.scm @ 6200

Last change on this file since 6200 was 6200, checked in by Kon Lovett, 14 years ago

Added tests (finally).

File size: 397 bytes
Line 
1;;;; misc-extn-test.scm
2
3(use misc-extn-dsssl)
4
5;;
6
7(define (foo a1 a2 #!optional (o1 'x) (o2 'y) #!rest rest #!key (k1 100) (k2 200))
8  (dsssl-fixup (#:k1 #:k2) ((o1 'x) (o2 'y)) rest
9    (list a1 a2 o1 o2 k1 k2 rest) ) )
10
11(assert (equal? '(1 2 x y 100 200 ()) (foo 1 2)))
12(assert (equal? '(1 2 3 4 100 200 (5)) (foo 1 2 3 4 5)))
13(assert (equal? '(1 2 3 y 100 2000 (5)) (foo 1 2 3 #:k2 2000 5)))
Note: See TracBrowser for help on using the repository browser.