source: project/release/5/dotted-lambdas/trunk/tests/run.scm @ 38999

Last change on this file since 38999 was 38999, checked in by juergen, 10 months ago

dotted-lambdas 1.0

File size: 1.0 KB
Line 
1
2(import dotted-lambdas simple-tests (chicken condition))
3
4(define-checks
5  (calls verbose? lst (callable '(0 1 2 3)) lst0 (callable '()))
6  (condition-case (lst0 0) ((exn) #f))
7  #f
8  (lst 0)
9  0
10  (lst 3)
11  3
12  (condition-case (lst 5) ((exn) #f))
13  #f
14  (condition-case (lst -1) ((exn) #f))
15  #f)
16
17(define-checks
18  (lambdas verbose?)
19  ((lambda* (xs ...) (list (xs 0) (xs 1) (xs 2))) 1 2 3)
20  '(1 2 3)
21  ((lambda* (x xs ...) (apply list x (xs))) 1 2 3)
22  '(1 2 3)
23  (condition-case ((lambda* (xs ..) xs) 1 2 3) ((exn) #f))
24  #f
25  (condition-case ((lambda* (xs ....) xs)) ((exn) #f))
26  #f
27  ((lambda* (xs ...) (xs)))
28  '()
29  ((lambda* (x y zs ...) (list x y (zs 0) (zs 1))) 1 2 3 4)
30  '(1 2 3 4)
31  (condition-case ((lambda* (x y zs ..) (list x y zs)) 1 2 3 4) ((exn) #f))
32  #f
33  (condition-case ((lambda* (x y zs ....) (list x y zs)) 1 2) ((exn) #f))
34  #f
35  ((lambda* (a b) (list a b)) 1 2)
36  '(1 2)
37  ((lambda* (as ...) (as)) 1 2 3)
38  '(1 2 3)
39  ((lambda* (as ...) (as)))
40  '())
41
42(check-all DOTTED-LAMBDAS
43  (calls)
44  (lambdas)
45  )
Note: See TracBrowser for help on using the repository browser.