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

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

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

revision 1.1 by pfdietz, Thu Sep 26 16:53:38 2002 UTC revision 1.2 by pfdietz, Thu Oct 17 13:16:56 2002 UTC
# Line 8  Line 8 
8  (deftest replace-list.1  (deftest replace-list.1
9    (let* ((x (copy-seq '(a b c d e f g)))    (let* ((x (copy-seq '(a b c d e f g)))
10           (result (replace x '(x y z))))           (result (replace x '(x y z))))
11      (values (eq x result) result))      (values (eqt x result) result))
12    t    t
13    (x y z d e f g))    (x y z d e f g))
14    
15  (deftest replace-list.2  (deftest replace-list.2
16    (let* ((x (copy-seq '(a b c d e f g)))    (let* ((x (copy-seq '(a b c d e f g)))
17           (result (replace x '(x y z) :start1 1)))           (result (replace x '(x y z) :start1 1)))
18      (values (eq x result) result))      (values (eqt x result) result))
19    t    t
20    (a x y z e f g))    (a x y z e f g))
21    
22  (deftest replace-list.3  (deftest replace-list.3
23    (let* ((x (copy-seq '(a b c d e f g)))    (let* ((x (copy-seq '(a b c d e f g)))
24           (result (replace x '(x y z) :start1 4)))           (result (replace x '(x y z) :start1 4)))
25      (values (eq x result) result))      (values (eqt x result) result))
26    t    t
27    (a b c d x y z))    (a b c d x y z))
28    
29  (deftest replace-list.4  (deftest replace-list.4
30    (let* ((x (copy-seq '(a b c d e f g)))    (let* ((x (copy-seq '(a b c d e f g)))
31           (result (replace x '(x y z) :start1 5)))           (result (replace x '(x y z) :start1 5)))
32      (values (eq x result) result))      (values (eqt x result) result))
33    t    t
34    (a b c d e x y))    (a b c d e x y))
35    
36  (deftest replace-list.5  (deftest replace-list.5
37    (let* ((x (copy-seq '(a b c d e f g)))    (let* ((x (copy-seq '(a b c d e f g)))
38           (result (replace x '(x y z) :start1 6)))           (result (replace x '(x y z) :start1 6)))
39      (values (eq x result) result))      (values (eqt x result) result))
40    t    t
41    (a b c d e f x))    (a b c d e f x))
42    
43  (deftest replace-list.6  (deftest replace-list.6
44    (let* ((x (copy-seq '(a b c d e f g)))    (let* ((x (copy-seq '(a b c d e f g)))
45           (result (replace x #(x y z) :start1 2)))           (result (replace x #(x y z) :start1 2)))
46      (values (eq x result) result))      (values (eqt x result) result))
47    t    t
48    (a b x y z f g))    (a b x y z f g))
49    
# Line 54  Line 54 
54  (deftest replace-list.8  (deftest replace-list.8
55    (let* ((x (copy-seq '(a b c d e f g)))    (let* ((x (copy-seq '(a b c d e f g)))
56           (result (replace x '(x y z) :end1 1)))           (result (replace x '(x y z) :end1 1)))
57      (values (eq x result) result))      (values (eqt x result) result))
58    t    t
59    (x b c d e f g))    (x b c d e f g))
60    
61  (deftest replace-list.9  (deftest replace-list.9
62    (let* ((x (copy-seq '(a b c d e f g)))    (let* ((x (copy-seq '(a b c d e f g)))
63           (result (replace x '(x y z) :start1 3 :end1 4)))           (result (replace x '(x y z) :start1 3 :end1 4)))
64      (values (eq x result) result))      (values (eqt x result) result))
65    t    t
66    (a b c x e f g))    (a b c x e f g))
67    
68  (deftest replace-list.10  (deftest replace-list.10
69    (let* ((x (copy-seq '(a b c d e f g)))    (let* ((x (copy-seq '(a b c d e f g)))
70           (result (replace x '(x y z) :start1 0 :end1 5)))           (result (replace x '(x y z) :start1 0 :end1 5)))
71      (values (eq x result) result))      (values (eqt x result) result))
72    t    t
73    (x y z d e f g))    (x y z d e f g))
74    
# Line 76  Line 76 
76  (deftest replace-list.11  (deftest replace-list.11
77    (let* ((x (copy-seq '(a b c d e f g)))    (let* ((x (copy-seq '(a b c d e f g)))
78           (result (replace x '(x y z) :start2 1)))           (result (replace x '(x y z) :start2 1)))
79      (values (eq x result) result))      (values (eqt x result) result))
80    t    t
81    (y z c d e f g))    (y z c d e f g))
82    
83  (deftest replace-list.12  (deftest replace-list.12
84    (let* ((x (copy-seq '(a b c d e f g)))    (let* ((x (copy-seq '(a b c d e f g)))
85           (result (replace x '(x y z) :start2 1 :end1 nil)))           (result (replace x '(x y z) :start2 1 :end1 nil)))
86      (values (eq x result) result))      (values (eqt x result) result))
87    t    t
88    (y z c d e f g))    (y z c d e f g))
89    
90  (deftest replace-list.13  (deftest replace-list.13
91    (let* ((x (copy-seq '(a b c d e f g)))    (let* ((x (copy-seq '(a b c d e f g)))
92           (result (replace x '(x y z) :start2 1 :end2 nil)))           (result (replace x '(x y z) :start2 1 :end2 nil)))
93      (values (eq x result) result))      (values (eqt x result) result))
94    t    t
95    (y z c d e f g))    (y z c d e f g))
96    
97  (deftest replace-list.14  (deftest replace-list.14
98    (let* ((x (copy-seq '(a b c d e f g)))    (let* ((x (copy-seq '(a b c d e f g)))
99           (result (replace x '(x y z) :start2 1 :end2 2)))           (result (replace x '(x y z) :start2 1 :end2 2)))
100      (values (eq x result) result))      (values (eqt x result) result))
101    t    t
102    (y b c d e f g))    (y b c d e f g))
103    
104  (deftest replace-list.15  (deftest replace-list.15
105    (let* ((x (copy-seq '(a b c d e f g)))    (let* ((x (copy-seq '(a b c d e f g)))
106           (result (replace x '(x y z) :start1 4 :end1 5 :start2 1 :end2 2)))           (result (replace x '(x y z) :start1 4 :end1 5 :start2 1 :end2 2)))
107      (values (eq x result) result))      (values (eqt x result) result))
108    t    t
109    (a b c d y f g))    (a b c d y f g))
110    
# Line 114  Line 114 
114  (deftest replace-vector.1  (deftest replace-vector.1
115    (let* ((x (copy-seq #(a b c d e f g)))    (let* ((x (copy-seq #(a b c d e f g)))
116           (result (replace x #(x y z))))           (result (replace x #(x y z))))
117      (values (eq x result) result))      (values (eqt x result) result))
118    t    t
119    #(x y z d e f g))    #(x y z d e f g))
120    
121  (deftest replace-vector.2  (deftest replace-vector.2
122    (let* ((x (copy-seq #(a b c d e f g)))    (let* ((x (copy-seq #(a b c d e f g)))
123           (result (replace x #(x y z) :start1 1)))           (result (replace x #(x y z) :start1 1)))
124      (values (eq x result) result))      (values (eqt x result) result))
125    t    t
126    #(a x y z e f g))    #(a x y z e f g))
127    
128  (deftest replace-vector.3  (deftest replace-vector.3
129    (let* ((x (copy-seq #(a b c d e f g)))    (let* ((x (copy-seq #(a b c d e f g)))
130           (result (replace x #(x y z) :start1 4)))           (result (replace x #(x y z) :start1 4)))
131      (values (eq x result) result))      (values (eqt x result) result))
132    t    t
133    #(a b c d x y z))    #(a b c d x y z))
134    
135  (deftest replace-vector.4  (deftest replace-vector.4
136    (let* ((x (copy-seq #(a b c d e f g)))    (let* ((x (copy-seq #(a b c d e f g)))
137           (result (replace x #(x y z) :start1 5)))           (result (replace x #(x y z) :start1 5)))
138      (values (eq x result) result))      (values (eqt x result) result))
139    t    t
140    #(a b c d e x y))    #(a b c d e x y))
141    
142  (deftest replace-vector.5  (deftest replace-vector.5
143    (let* ((x (copy-seq #(a b c d e f g)))    (let* ((x (copy-seq #(a b c d e f g)))
144           (result (replace x #(x y z) :start1 6)))           (result (replace x #(x y z) :start1 6)))
145      (values (eq x result) result))      (values (eqt x result) result))
146    t    t
147    #(a b c d e f x))    #(a b c d e f x))
148    
149  (deftest replace-vector.6  (deftest replace-vector.6
150    (let* ((x (copy-seq #(a b c d e f g)))    (let* ((x (copy-seq #(a b c d e f g)))
151           (result (replace x '(x y z) :start1 2)))           (result (replace x '(x y z) :start1 2)))
152      (values (eq x result) result))      (values (eqt x result) result))
153    t    t
154    #(a b x y z f g))    #(a b x y z f g))
155    
# Line 160  Line 160 
160  (deftest replace-vector.8  (deftest replace-vector.8
161    (let* ((x (copy-seq #(a b c d e f g)))    (let* ((x (copy-seq #(a b c d e f g)))
162           (result (replace x #(x y z) :end1 1)))           (result (replace x #(x y z) :end1 1)))
163      (values (eq x result) result))      (values (eqt x result) result))
164    t    t
165    #(x b c d e f g))    #(x b c d e f g))
166    
167  (deftest replace-vector.9  (deftest replace-vector.9
168    (let* ((x (copy-seq #(a b c d e f g)))    (let* ((x (copy-seq #(a b c d e f g)))
169           (result (replace x #(x y z) :start1 3 :end1 4)))           (result (replace x #(x y z) :start1 3 :end1 4)))
170      (values (eq x result) result))      (values (eqt x result) result))
171    t    t
172    #(a b c x e f g))    #(a b c x e f g))
173    
174  (deftest replace-vector.10  (deftest replace-vector.10
175    (let* ((x (copy-seq #(a b c d e f g)))    (let* ((x (copy-seq #(a b c d e f g)))
176           (result (replace x #(x y z) :start1 0 :end1 5)))           (result (replace x #(x y z) :start1 0 :end1 5)))
177      (values (eq x result) result))      (values (eqt x result) result))
178    t    t
179    #(x y z d e f g))    #(x y z d e f g))
180    
# Line 182  Line 182 
182  (deftest replace-vector.11  (deftest replace-vector.11
183    (let* ((x (copy-seq #(a b c d e f g)))    (let* ((x (copy-seq #(a b c d e f g)))
184           (result (replace x #(x y z) :start2 1)))           (result (replace x #(x y z) :start2 1)))
185      (values (eq x result) result))      (values (eqt x result) result))
186    t    t
187    #(y z c d e f g))    #(y z c d e f g))
188    
189  (deftest replace-vector.12  (deftest replace-vector.12
190    (let* ((x (copy-seq #(a b c d e f g)))    (let* ((x (copy-seq #(a b c d e f g)))
191           (result (replace x #(x y z) :start2 1 :end1 nil)))           (result (replace x #(x y z) :start2 1 :end1 nil)))
192      (values (eq x result) result))      (values (eqt x result) result))
193    t    t
194    #(y z c d e f g))    #(y z c d e f g))
195    
196  (deftest replace-vector.13  (deftest replace-vector.13
197    (let* ((x (copy-seq #(a b c d e f g)))    (let* ((x (copy-seq #(a b c d e f g)))
198           (result (replace x #(x y z) :start2 1 :end2 nil)))           (result (replace x #(x y z) :start2 1 :end2 nil)))
199      (values (eq x result) result))      (values (eqt x result) result))
200    t    t
201    #(y z c d e f g))    #(y z c d e f g))
202    
203  (deftest replace-vector.14  (deftest replace-vector.14
204    (let* ((x (copy-seq #(a b c d e f g)))    (let* ((x (copy-seq #(a b c d e f g)))
205           (result (replace x #(x y z) :start2 1 :end2 2)))           (result (replace x #(x y z) :start2 1 :end2 2)))
206      (values (eq x result) result))      (values (eqt x result) result))
207    t    t
208    #(y b c d e f g))    #(y b c d e f g))
209    
210  (deftest replace-vector.15  (deftest replace-vector.15
211    (let* ((x (copy-seq #(a b c d e f g)))    (let* ((x (copy-seq #(a b c d e f g)))
212           (result (replace x #(x y z) :start1 4 :end1 5 :start2 1 :end2 2)))           (result (replace x #(x y z) :start1 4 :end1 5 :start2 1 :end2 2)))
213      (values (eq x result) result))      (values (eqt x result) result))
214    t    t
215    #(a b c d y f g))    #(a b c d y f g))
216    
# Line 219  Line 219 
219  (deftest replace-bitstring.1  (deftest replace-bitstring.1
220    (let* ((x (copy-seq #*1101001))    (let* ((x (copy-seq #*1101001))
221           (result (replace x #*011)))           (result (replace x #*011)))
222      (values (eq x result) result))      (values (eqt x result) result))
223    t    t
224    #*0111001)    #*0111001)
225    
226  (deftest replace-bitstring.2  (deftest replace-bitstring.2
227    (let* ((x (copy-seq #*1101001))    (let* ((x (copy-seq #*1101001))
228           (result (replace x #*011 :start1 1)))           (result (replace x #*011 :start1 1)))
229      (values (eq x result) result))      (values (eqt x result) result))
230    t    t
231    #*1011001)    #*1011001)
232    
233  (deftest replace-bitstring.3  (deftest replace-bitstring.3
234    (let* ((x (copy-seq #*1101001))    (let* ((x (copy-seq #*1101001))
235           (result (replace x #*011 :start1 4)))           (result (replace x #*011 :start1 4)))
236      (values (eq x result) result))      (values (eqt x result) result))
237    t    t
238    #*1101011)    #*1101011)
239    
240  (deftest replace-bitstring.4  (deftest replace-bitstring.4
241    (let* ((x (copy-seq #*0000000))    (let* ((x (copy-seq #*0000000))
242           (result (replace x #*111 :start1 5)))           (result (replace x #*111 :start1 5)))
243      (values (eq x result) result))      (values (eqt x result) result))
244    t    t
245    #*0000011)    #*0000011)
246    
247  (deftest replace-bitstring.5  (deftest replace-bitstring.5
248    (let* ((x (copy-seq #*0000000))    (let* ((x (copy-seq #*0000000))
249           (result (replace x #*100 :start1 6)))           (result (replace x #*100 :start1 6)))
250      (values (eq x result) result))      (values (eqt x result) result))
251    t    t
252    #*0000001)    #*0000001)
253    
254  (deftest replace-bitstring.6  (deftest replace-bitstring.6
255    (let* ((x (copy-seq #*0000000))    (let* ((x (copy-seq #*0000000))
256           (result (replace x '(1 1 1) :start1 2)))           (result (replace x '(1 1 1) :start1 2)))
257      (values (eq x result) result))      (values (eqt x result) result))
258    t    t
259    #*0011100)    #*0011100)
260    
# Line 265  Line 265 
265  (deftest replace-bitstring.8  (deftest replace-bitstring.8
266    (let* ((x (copy-seq #*0000000))    (let* ((x (copy-seq #*0000000))
267           (result (replace x #*111 :end1 1)))           (result (replace x #*111 :end1 1)))
268      (values (eq x result) result))      (values (eqt x result) result))
269    t    t
270    #*1000000)    #*1000000)
271    
272  (deftest replace-bitstring.9  (deftest replace-bitstring.9
273    (let* ((x (copy-seq #*0000000))    (let* ((x (copy-seq #*0000000))
274           (result (replace x #*110 :start1 3 :end1 4)))           (result (replace x #*110 :start1 3 :end1 4)))
275      (values (eq x result) result))      (values (eqt x result) result))
276    t    t
277    #*0001000)    #*0001000)
278    
279  (deftest replace-bitstring.10  (deftest replace-bitstring.10
280    (let* ((x (copy-seq #*0000000))    (let* ((x (copy-seq #*0000000))
281           (result (replace x #*111 :start1 0 :end1 5)))           (result (replace x #*111 :start1 0 :end1 5)))
282      (values (eq x result) result))      (values (eqt x result) result))
283    t    t
284    #*1110000)    #*1110000)
285    
# Line 287  Line 287 
287  (deftest replace-bitstring.11  (deftest replace-bitstring.11
288    (let* ((x (copy-seq #*0000000))    (let* ((x (copy-seq #*0000000))
289           (result (replace x #*011 :start2 1)))           (result (replace x #*011 :start2 1)))
290      (values (eq x result) result))      (values (eqt x result) result))
291    t    t
292    #*1100000)    #*1100000)
293    
294  (deftest replace-bitstring.12  (deftest replace-bitstring.12
295    (let* ((x (copy-seq #*0000000))    (let* ((x (copy-seq #*0000000))
296           (result (replace x #*011 :start2 1 :end1 nil)))           (result (replace x #*011 :start2 1 :end1 nil)))
297      (values (eq x result) result))      (values (eqt x result) result))
298    t    t
299    #*1100000)    #*1100000)
300    
301  (deftest replace-bitstring.13  (deftest replace-bitstring.13
302    (let* ((x (copy-seq #*0000000))    (let* ((x (copy-seq #*0000000))
303           (result (replace x #*011 :start2 1 :end2 nil)))           (result (replace x #*011 :start2 1 :end2 nil)))
304      (values (eq x result) result))      (values (eqt x result) result))
305    t    t
306    #*1100000)    #*1100000)
307    
308  (deftest replace-bitstring.14  (deftest replace-bitstring.14
309    (let* ((x (copy-seq #*0000000))    (let* ((x (copy-seq #*0000000))
310           (result (replace x #*011 :start2 1 :end2 2)))           (result (replace x #*011 :start2 1 :end2 2)))
311      (values (eq x result) result))      (values (eqt x result) result))
312    t    t
313    #*1000000)    #*1000000)
314    
315  (deftest replace-bitstring.15  (deftest replace-bitstring.15
316    (let* ((x (copy-seq #*0000000))    (let* ((x (copy-seq #*0000000))
317           (result (replace x #*011 :start1 4 :end1 5 :start2 1 :end2 2)))           (result (replace x #*011 :start1 4 :end1 5 :start2 1 :end2 2)))
318      (values (eq x result) result))      (values (eqt x result) result))
319    t    t
320    #*0000100)    #*0000100)
321    
# Line 324  Line 324 
324  (deftest replace-string.1  (deftest replace-string.1
325    (let* ((x (copy-seq "abcdefg"))    (let* ((x (copy-seq "abcdefg"))
326           (result (replace x "xyz")))           (result (replace x "xyz")))
327      (values (eq x result) result))      (values (eqt x result) result))
328    t    t
329    "xyzdefg")    "xyzdefg")
330    
331  (deftest replace-string.2  (deftest replace-string.2
332    (let* ((x (copy-seq "abcdefg"))    (let* ((x (copy-seq "abcdefg"))
333           (result (replace x "xyz" :start1 1)))           (result (replace x "xyz" :start1 1)))
334      (values (eq x result) result))      (values (eqt x result) result))
335    t    t
336    "axyzefg")    "axyzefg")
337    
338  (deftest replace-string.3  (deftest replace-string.3
339    (let* ((x (copy-seq "abcdefg"))    (let* ((x (copy-seq "abcdefg"))
340           (result (replace x "xyz" :start1 4)))           (result (replace x "xyz" :start1 4)))
341      (values (eq x result) result))      (values (eqt x result) result))
342    t    t
343    "abcdxyz")    "abcdxyz")
344    
345  (deftest replace-string.4  (deftest replace-string.4
346    (let* ((x (copy-seq "abcdefg"))    (let* ((x (copy-seq "abcdefg"))
347           (result (replace x "xyz" :start1 5)))           (result (replace x "xyz" :start1 5)))
348      (values (eq x result) result))      (values (eqt x result) result))
349    t    t
350    "abcdexy")    "abcdexy")
351    
352  (deftest replace-string.5  (deftest replace-string.5
353    (let* ((x (copy-seq "abcdefg"))    (let* ((x (copy-seq "abcdefg"))
354           (result (replace x "xyz" :start1 6)))           (result (replace x "xyz" :start1 6)))
355      (values (eq x result) result))      (values (eqt x result) result))
356    t    t
357    "abcdefx")    "abcdefx")
358    
359  (deftest replace-string.6  (deftest replace-string.6
360    (let* ((x (copy-seq "abcdefg"))    (let* ((x (copy-seq "abcdefg"))
361           (result (replace x '(#\x #\y #\z) :start1 2)))           (result (replace x '(#\x #\y #\z) :start1 2)))
362      (values (eq x result) result))      (values (eqt x result) result))
363    t    t
364    "abxyzfg")    "abxyzfg")
365    
# Line 370  Line 370 
370  (deftest replace-string.8  (deftest replace-string.8
371    (let* ((x (copy-seq "abcdefg"))    (let* ((x (copy-seq "abcdefg"))
372           (result (replace x "xyz" :end1 1)))           (result (replace x "xyz" :end1 1)))
373      (values (eq x result) result))      (values (eqt x result) result))
374    t    t
375    "xbcdefg")    "xbcdefg")
376    
377  (deftest replace-string.9  (deftest replace-string.9
378    (let* ((x (copy-seq "abcdefg"))    (let* ((x (copy-seq "abcdefg"))
379           (result (replace x "xyz" :start1 3 :end1 4)))           (result (replace x "xyz" :start1 3 :end1 4)))
380      (values (eq x result) result))      (values (eqt x result) result))
381    t    t
382    "abcxefg")    "abcxefg")
383    
384  (deftest replace-string.10  (deftest replace-string.10
385    (let* ((x (copy-seq "abcdefg"))    (let* ((x (copy-seq "abcdefg"))
386           (result (replace x "xyz" :start1 0 :end1 5)))           (result (replace x "xyz" :start1 0 :end1 5)))
387      (values (eq x result) result))      (values (eqt x result) result))
388    t    t
389    "xyzdefg")    "xyzdefg")
390    
# Line 392  Line 392 
392  (deftest replace-string.11  (deftest replace-string.11
393    (let* ((x (copy-seq "abcdefg"))    (let* ((x (copy-seq "abcdefg"))
394           (result (replace x "xyz" :start2 1)))           (result (replace x "xyz" :start2 1)))
395      (values (eq x result) result))      (values (eqt x result) result))
396    t    t
397    "yzcdefg")    "yzcdefg")
398    
399  (deftest replace-string.12  (deftest replace-string.12
400    (let* ((x (copy-seq "abcdefg"))    (let* ((x (copy-seq "abcdefg"))
401           (result (replace x "xyz" :start2 1 :end1 nil)))           (result (replace x "xyz" :start2 1 :end1 nil)))
402      (values (eq x result) result))      (values (eqt x result) result))
403    t    t
404    "yzcdefg")    "yzcdefg")
405    
406  (deftest replace-string.13  (deftest replace-string.13
407    (let* ((x (copy-seq "abcdefg"))    (let* ((x (copy-seq "abcdefg"))
408           (result (replace x "xyz" :start2 1 :end2 nil)))           (result (replace x "xyz" :start2 1 :end2 nil)))
409      (values (eq x result) result))      (values (eqt x result) result))
410    t    t
411    "yzcdefg")    "yzcdefg")
412    
413  (deftest replace-string.14  (deftest replace-string.14
414    (let* ((x (copy-seq "abcdefg"))    (let* ((x (copy-seq "abcdefg"))
415           (result (replace x "xyz" :start2 1 :end2 2)))           (result (replace x "xyz" :start2 1 :end2 2)))
416      (values (eq x result) result))      (values (eqt x result) result))
417    t    t
418    "ybcdefg")    "ybcdefg")
419    
420  (deftest replace-string.15  (deftest replace-string.15
421    (let* ((x (copy-seq "abcdefg"))    (let* ((x (copy-seq "abcdefg"))
422           (result (replace x "xyz" :start1 4 :end1 5 :start2 1 :end2 2)))           (result (replace x "xyz" :start1 4 :end1 5 :start2 1 :end2 2)))
423      (values (eq x result) result))      (values (eqt x result) result))
424    t    t
425    "abcdyfg")    "abcdyfg")

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