/[gcl]/gcl/ansi-tests/max.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/max.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by pfdietz, Mon Aug 4 12:28:37 2003 UTC revision 1.2 by pfdietz, Tue Aug 5 02:30:18 2003 UTC
# Line 34  Line 34 
34  (deftest max.2  (deftest max.2
35    (max.2-fn)    (max.2-fn)
36    nil)    nil)
37    
38    (deftest max.3
39      (loop for x = (- (random 60000) 30000)
40            for y = (- (random 60000) 30000)
41            for m = (max x y)
42            for m2 = (if (>= x y) x y)
43            repeat 1000
44            unless (eql m m2)
45            collect (list x y m m2))
46      nil)
47    
48    (deftest max.4
49      (loop for x = (- (random 6000000) 3000000)
50            for y = (- (random 6000000) 3000000)
51            for m = (max x y)
52            for m2 = (if (>= x y) x y)
53            repeat 1000
54            unless (eql m m2)
55            collect (list x y m m2))
56      nil)
57    
58    (deftest max.5
59      (loop for x = (- (random 1000000000000) 500000000000)
60            for y = (- (random 1000000000000) 500000000000)
61            for m = (max x y)
62            for m2 = (if (>= x y) x y)
63            repeat 1000
64            unless (eql m m2)
65            collect (list x y m m2))
66      nil)
67    
68    (deftest max.6
69      (let ((m (max 2 1.0s0)))
70        (or (eqlt m 2)
71            (eqlt m 2.0s0)))
72      t)
73    
74    (deftest max.7
75      (max 0 1.0s0)
76      1.0s0)
77    
78    (deftest max.8
79      (let ((m (max 2 1.0f0)))
80        (or (eqlt m 2)
81            (eqlt m 2.0f0)))
82      t)
83    
84    (deftest max.9
85      (max 0 1.0f0)
86      1.0f0)
87    
88    (deftest max.10
89      (let ((m (max 2 1.0d0)))
90        (or (eqlt m 2)
91            (eqlt m 2.0d0)))
92      t)
93    
94    (deftest max.11
95      (max 0 1.0d0)
96      1.0d0)
97    
98    (deftest max.12
99      (let ((m (max 2 1.0l0)))
100        (or (eqlt m 2)
101            (eqlt m 2.0l0)))
102      t)
103    
104    (deftest max.13
105      (max 0 1.0l0)
106      1.0l0)
107    
108    (deftest max.15
109      (let ((m (max 1.0s0 0.0f0)))
110        (or (eqlt m 1.0s0)
111            (eqlt m 1.0f0)))
112      t)
113    
114    (deftest max.16
115      (max 0.0s0 1.0f0)
116      1.0f0)
117    
118    (deftest max.17
119      (let ((m (max 1.0s0 0.0d0)))
120        (or (eqlt m 1.0s0)
121            (eqlt m 1.0d0)))
122      t)
123    
124    (deftest max.18
125      (max 0.0s0 1.0d0)
126      1.0d0)
127    
128    (deftest max.19
129      (let ((m (max 1.0s0 0.0l0)))
130        (or (eqlt m 1.0s0)
131            (eqlt m 1.0l0)))
132      t)
133    
134    (deftest max.20
135      (max 0.0s0 1.0l0)
136      1.0l0)
137    
138    (deftest max.21
139      (let ((m (max 1.0f0 0.0d0)))
140        (or (eqlt m 1.0f0)
141            (eqlt m 1.0d0)))
142      t)
143    
144    (deftest max.22
145      (max 0.0f0 1.0d0)
146      1.0d0)
147    
148    (deftest max.23
149      (let ((m (max 1.0f0 0.0l0)))
150        (or (eqlt m 1.0f0)
151            (eqlt m 1.0l0)))
152      t)
153    
154    (deftest max.24
155      (max 0.0f0 1.0l0)
156      1.0l0)
157    
158    (deftest max.25
159      (let ((m (max 1.0d0 0.0l0)))
160        (or (eqlt m 1.0d0)
161            (eqlt m 1.0l0)))
162      t)
163    
164    (deftest max.26
165      (max 0.0d0 1.0l0)
166      1.0l0)
167    
168    (deftest max.27
169      (loop for i from 1 to (min 256 call-arguments-limit)
170            for x = (make-list i :initial-element 0)
171            do (setf (elt x (random i)) 1)
172            unless (eql (apply #'max x) 1)
173            collect x)
174      nil)
175    
176    (deftest max.28
177      (let ((m (max 1/3 0.2s0)))
178        (or (eqlt m 1/3)
179            (eqlt m (float 1/3 0.2s0))))
180      t)
181    
182    (deftest max.29
183      (let ((m (max 1.0s0 3 2.0f0)))
184        (or (eqlt m 3)
185            (eqlt m 3.0f0)))
186      t)
187    
188    (deftest max.30
189      (let ((m (max 1.0d0 3 2.0f0)))
190        (or (eqlt m 3)
191            (eqlt m 3.0d0)))
192      t)
193    
194    (deftest max.31
195      (let ((m (max 1.0s0 3 2.0l0)))
196        (or (eqlt m 3)
197            (eqlt m 3.0l0)))
198      t)
199    
200    (deftest max.32
201      (let ((m (max 1.0l0 3 2.0s0)))
202        (or (eqlt m 3)
203            (eqlt m 3.0l0)))
204      t)
205    
206    (deftest max.33
207      (let ((m (max 1.0d0 3 2.0l0)))
208        (or (eqlt m 3)
209            (eqlt m 3.0l0)))
210      t)
211    
212    (deftest max.34
213      (let ((m (max 1.0l0 3 2.0d0)))
214        (or (eqlt m 3)
215            (eqlt m 3.0l0)))
216      t)
217    
218    (deftest max.order.1
219      (let ((i 0) x y)
220        (values
221         (max (progn (setf x (incf i)) 10)
222              (progn (setf y (incf i)) 20))
223         i x y))
224      20 2 1 2)
225    
226    (deftest max.order.2
227      (let ((i 0) x y z)
228        (values
229         (max (progn (setf x (incf i)) 10)
230              (progn (setf y (incf i)) 20)
231              (progn (setf z (incf i)) 30))
232         i x y z))
233      30 3 1 2 3)
234    
235    (deftest max.order.3
236      (let ((i 0) u v w x y z)
237        (values
238         (max (progn (setf u (incf i)) 10)
239              (progn (setf v (incf i)) 20)
240              (progn (setf w (incf i)) 30)
241              (progn (setf x (incf i)) 10)
242              (progn (setf y (incf i)) 20)
243              (progn (setf z (incf i)) 30))
244         i u v w x y z))
245      30 6 1 2 3 4 5 6)

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26