source: project/release/5/simple-tests/trunk/tests/run.scm @ 38640

Last change on this file since 38640 was 38640, checked in by juergen, 5 months ago

simple-tests 2.1 with do-checks added

File size: 1.3 KB
Line 
1(import simple-tests)
2
3;;; old interface
4
5(define-test (bar n)
6  (positive? n)
7  (even? n))
8
9(define-test (foo x y)
10  (< x y)
11  "COMMENT"
12  (bar 4)
13  (odd? 3)
14  (positive? 3))
15
16(define-test (++)
17  (= (+ 1 2) 3)
18  (= (+ 1 2 3) 6))
19
20(define-test (**)
21  (= (* 1 2) 2)
22  (= (* 1 2 3) 6))
23
24(define-test (arithmetic)
25  (++)
26  (**))
27
28(define-test (baz)
29  (and? #t #t #t)
30  (and?)
31  (not (and? #t #f #t)))
32
33
34;(compound-test (simple-tests)
35;  (baz)
36;  (arithmetic?)
37;  (foo 1 2)
38;  )
39
40;;; new interface
41;;; define-checks is an alias to do-checks
42
43(do-checks (bar? verbose? n 5)
44  (positive? n) #t
45  (even? n) #f)
46
47(define-checks (+? verbose?)
48  (+ 1 2) 3
49  (+ 1 2 3) 6)
50
51(define-checks (*? verbose?)
52  (* 1 2) 2
53  (* 1 2 3) 6)
54
55(define-checks (arithmetic? verbose?)
56  (+? #f) #t
57  (*? #f) #t)
58
59(do-checks (baz? verbose?)
60  (and? #t #t #t) #t
61  (and?) #t
62  (and? #t #f #t) #f)
63
64(define-checks (qux? verbose?)
65  ((== "x") "y") #f
66  ((== "x") "x") #t
67  ((== baz?) baz?) #t
68  ((== baz?) bar) #f
69  ((== '()) '()) #t
70  ((== 'x) 'y) #f
71  ((== 'x) 'x) #t
72  ((== #(0 1 2)) #(0 1 2)) #t
73  ((== #(0 1 2)) '(0 1 2)) #f
74  )
75
76(define counter
77  (let ((n 0))
78    (lambda ()
79      (set! n (add1 n))
80      n)))
81
82(define-checks (counter? verbose?)
83  (counter) 1
84  (counter) 2
85  (counter) 3
86  (counter) 4
87  )
88
89
90(check-all SIMPLE (bar?) (*?) (+?) (arithmetic?) (baz?) (qux?)
91           (counter?))
Note: See TracBrowser for help on using the repository browser.