Lines Matching defs:test

30 ;; $XFree86: xc/programs/xedit/lisp/test/regex.lsp,v 1.1 2002/12/10 03:59:04 paulo Exp $
41 (defun re-test (expect &rest arguments &aux result (error t) unused error-value)
73 (re-test '((0 . 3)) re "abc")
74 (re-test '((0 . 3)) re "abc" :notbol t)
75 (re-test '((0 . 3)) re "abc" :noteol t)
76 (re-test '((0 . 3)) re "abc" :notbol t :noteol t)
77 (re-test '((14 . 17)) re "aaaaaaaaaaaaaaabc")
78 (re-test '((14 . 17)) re "aaaaaaaaaaaaaaabc" :start 12 :end 17)
79 (re-test '((30 . 33)) re "xxxxxxxxxxxxxxaaaaaaaaaaaaaaaaabcxx")
80 (re-test '((30 . 33)) re "xxxxxxxxxxxxxxaaaaaaaaaaaaaaaaabcxx" :start 28 :end 34)
83 (re-test '((0 . 3)) re "abc")
84 (re-test :nomatch re "xabc")
85 (re-test '((1 . 4)) re "xabc" :start 1)
86 (re-test :nomatch re "xabc" :start 1 :notbol t)
89 (re-test '((0 . 3)) re "abc")
90 (re-test :nomatch re "xabcx")
91 (re-test '((1 . 4)) re "xabcx" :end 4)
92 (re-test :nomatch re "xabc" :end 4 :noteol t)
95 (re-test '((0 . 3)) re "abc")
96 (re-test :nomatch re "xabcx")
97 (re-test '((1 . 4)) re "xabcx" :start 1 :end 4)
98 (re-test :nomatch re "xabcx" :start 1 :end 4 :notbol t)
99 (re-test :nomatch re "xabcx" :start 1 :end 4 :noteol t)
100 (re-test :nomatch re "xabcx" :start 1 :end 4 :notbol t :noteol t)
101 (re-test nil re "abc" :count 0)
104 (re-test '((0 . 3)) re "abc")
105 (re-test '((1 . 4)) re "aabc")
106 (re-test '((3 . 6)) re "xxxbcdef")
107 (re-test '((8 . 11)) re "abdzzzcdabcde")
108 (re-test '((13 . 16)) re "xxxxabdecdabdcde")
111 (re-test '((0 . 3)) re "abcde")
112 (re-test '((3 . 6)) re "xabcde")
113 (re-test '((1 . 4)) re "xabcde" :start 1)
114 (re-test '((3 . 6)) re "xabcde" :start 1 :notbol t)
115 (re-test '((2 . 5)) re "xabcd")
116 (re-test :nomatch re "xabcd" :noteol t)
117 (re-test nil re "xabcd" :count 0)
118 (re-test :nomatch re "abcdx" :notbol t)
121 (re-test '((0 . 3)) re "abc")
122 (re-test :nomatch re "xxxb")
123 (re-test '((3 . 5)) re "xxxbc")
124 (re-test '((5 . 7)) re "sssssab")
125 (re-test '((0 . 3)) re "abcd")
126 (re-test '((1 . 4)) re "aabcdef")
127 (re-test '((1 . 3)) re "aabbccdef")	;; ab matches abc?
130 (re-test '((2 . 4)) re "acbcd")
131 (re-test '((2 . 5)) re "acabcd")
134 (re-test '((1 . 3)) re "xacc")
135 (re-test '((2 . 5)) re "xxabcc")
138 (re-test '((1 . 3)) re "xababc")
139 (re-test '((2 . 5)) re "xxabccabc")
142 (re-test '((0 . 9)) re "aaaaaaabc")
143 (re-test '((1 . 10)) re "xaaaaaaabc")
144 (re-test '((3 . 12)) re "xyzaaaaaaabc")
145 (re-test '((0 . 4)) re "abbc")
146 (re-test '((2 . 9)) re "xxabbbbbc")
147 (re-test '((0 . 12)) re "abcccccccccc")
148 (re-test '((0 . 12)) re "abccccccccccd")
149 (re-test '((16 . 29)) re "xxxxxxxaaaaaaaaaabbbbbbbbbbbccccccccccc")
150 (re-test '((11 . 13)) re "xxxbbbbbbbbbc")
151 (re-test '((8 . 10)) re "aaaaazbxacd")
154 (re-test '((2 . 4)) re "acbcd")
155 (re-test '((2 . 5)) re "acabcd")
156 (re-test '((2 . 8)) re "acaaaabcd")
159 (re-test '((1 . 3)) re "xacc")
160 (re-test '((2 . 5)) re "xxabcc")
161 (re-test '((3 . 8)) re "xxaabbbcc")
164 (re-test '((1 . 3)) re "xababc")
165 (re-test '((2 . 5)) re "xxabcbabccc")
166 (re-test '((3 . 7)) re "axxabccabc")
169 (re-test :nomatch re "xxxbc")
170 (re-test '((1 . 6)) re "xaaabc")
171 (re-test '((8 . 12)) re "zzzzaaaaabbc")
172 (re-test '((7 . 15)) re "zzzzaaaabbbbbbcccc")
175 (re-test '((0 . 3)) re "abc")
176 (re-test '((1 . 4)) re "aaac")
177 (re-test :nomatch re "xac")
178 (re-test '((3 . 6)) re "xaxaac")
179 (re-test '((2 . 5)) re "xxabc")
180 (re-test '((3 . 6)) re "acxaxc")
183 (re-test '((0 . 1)) re "c")
184 (re-test '((5 . 6)) re "xxxxxc")
185 (re-test '((8 . 9)) re "xxxxxxxxc")
186 (re-test '((7 . 8)) re "xxxxxxxcc")
187 (re-test '((0 . 2)) re "ac")
188 (re-test '((0 . 5)) re "aaaac")
189 (re-test '((1 . 3)) re "xac")
190 (re-test '((3 . 6)) re "xxxaac")
191 (re-test '((2 . 4)) re "xxac")
192 (re-test '((4 . 6)) re "xxxxac")
195 (re-test '((2 . 5)) re "xxaac")
196 (re-test '((3 . 8)) re "xxxaaaac")
197 (re-test '((6 . 8)) re "xaaaabac")
198 (re-test :nomatch re "xxxc")
199 (re-test '((4 . 9)) re "xxxxaaaaccc")
202 (re-test '((19 . 24)) re "xabxxaabxxxaaabxxxxaaaab")
203 (re-test '((4 . 9)) re "aaabaaaab")
206 (re-test '((3 . 8)) re "xxxaaaab")
207 (re-test '((8 . 25)) re "zaaabzzzaaaaaaaaaaaaaaaab")
210 (re-test '((0 . 1)) re "b")
211 (re-test '((8 . 9)) re "xxxxxxxxb")
212 (re-test '((6 . 11)) re "xaaaaaaaaab")
213 (re-test '((3 . 5)) re "xxxab")
214 (re-test '((6 . 10)) re "aaaaaxaaab")
217 (re-test :nomatch re "xab")
218 (re-test '((1 . 4)) re "xaab")
219 (re-test '((1 . 5)) re "xaaab")
220 (re-test '((2 . 7)) re "xxaaaab")
221 (re-test '((4 . 9)) re "xxxaaaaab")
224 (re-test '((9 . 18)) re "feebarbazfoobarfee")
225 (re-test '((9 . 18) (12 . 15)) re "feebarbazfoobarfee" :count 2)
226 (re-test '((13 . 22)) re "foofooobazfeefoobazfee")
227 (re-test '((13 . 22) (16 . 19)) re "foofooobazfeefoobazfee" :count 3)
230 (re-test '((9 . 18)) re "feebarbazfoobarfee")
231 (re-test '((9 . 18)) re "feebarbazfoobarfee" :count 2)
232 (re-test '((13 . 22)) re "foofooobazfeefoobazfee")
233 (re-test '((13 . 22)) re "foofooobazfeefoobazfee" :count 3)
236 (re-test :nomatch re "barfoebaz")
237 (re-test '((3 . 9) (4 . 6)) re "bazfoobar" :count 2)
238 (re-test '((3 . 9) (4 . 6)) re "barfeebaz" :count 2)
241 (re-test :nomatch re "barfoebaz")
242 (re-test '((3 . 9)) re "bazfoobar" :count 2)
243 (re-test '((3 . 9)) re "barfeebaz" :count 2)
246 (re-test '((15 . 18)) re "aint character int foo")
247 (re-test '((15 . 18) (15 . 18)) re "aint character int foo" :count 2)
250 (re-test '((15 . 18)) re "aint character int foo" :count 2)
253 (re-test '((11 . 17)) re "barfoblaboofoobarfoobarfoobar")
256 (re-test :nomatch re "foobar")
257 (re-test '((6 . 13)) re "fobbarfooxbarfooybar")
260 (re-test '((1 . 7)) re "xfoobar")
261 (re-test :nomatch re "xxfooxxbar")
262 (re-test '((3 . 10)) re "yyyfootbar")
265 (re-test '((0 . 3)) re "abc")
266 (re-test '((9 . 18)) re "xxxxxxxxxabbbbbbbccaaaaabbbc")
269 (re-test :nomatch re "xxxabc")
270 (re-test '((2 . 7)) re "xxaxbbc")
273 (re-test '((1 . 5)) re "xaabc")
274 (re-test '((2 . 7)) re "xxaabbc")
277 (re-test '((3 . 9) (3 . 6)) re "barfoofee" :count 2)
278 (re-test '((0 . 9) (0 . 6)) re "foobarfee" :count 2)
279 (re-test '((4 . 10) (4 . 7)) re "xxfobarfee" :count 2)
280 (re-test '((3 . 17) (3 . 14)) re "barfooooooobarfee" :count 2)
281 (re-test '((4 . 10) (4 . 7)) re "xxfobarfeefoobar" :count 2)
284 (re-test :nomatch re "barfoofee" :count 2)
285 (re-test '((3 . 10) (3 . 7)) re "barfooxfee" :count 2)
288 (re-test :nomatch re "foobar" :count 2)
289 (re-test '((2 . 8) (2 . 5)) re "bafoofee" :count 2)
290 (re-test '((2 . 9) (2 . 6)) re "bafooofeebarfee" :count 4)
291 (re-test '((2 . 8) (2 . 5)) re "bafoofeebarfee" :count 2)
292 (re-test nil re "bafoofeebarfee" :count 0)
293 (re-test '((2 . 8)) re "bafoofeebarfee" :count 1)
296 (re-test '((0 . 2) (0 . 1)) re "aa" :count 2)
299 (re-test '((0 . 4) (0 . 1) (1 . 2)) re "acac" :count 5)
300 (re-test '((4 . 8) (4 . 5) (5 . 6)) re "xxxxacac" :count 4)
301 (re-test '((24 . 28) (24 . 25) (25 . 26)) re "xxacabacbcacbbacbcaaccabcaca" :count 3)
302 (re-test '((4 . 8) (4 . 5) (5 . 6)) re "xyabcccc" :count 3)
303 (re-test '((4 . 8) (4 . 5)) re "xyabcccc" :count 2)
304 (re-test '((4 . 8)) re "xyabcccc" :count 1)
305 (re-test nil re "xyabcccc" :count 0)
308 (re-test '((3 . 15) (3 . 9)) re "xxxaaaaabaaaaab" :count 2)
309 (re-test '((7 . 9) (7 . 8)) re "abaabaxbb" :count 2)
312 (re-test '((3 . 13) (3 . 8)) re "xaaabbbcabbbc" :count 3)
315 (re-test :nomatch re "abcac" :count 2)
316 (re-test '((4 . 8) (4 . 6)) re "acabacac" :count 2)
317 (re-test '((5 . 11) (5 . 8)) re "abcacabcabc" :count 2)
318 (re-test '((3 . 7) (3 . 5)) re "abcacac" :count 2)
321 (re-test '((3 . 5) (4 . 4)) re "xxxab" :count 2)
322 (re-test '((4 . 12) (5 . 8)) re "xxxxazzzbzzz" :count 2)
325 (re-test '((0 . 3)) re "AbC")
328 (re-test '((3 . 10)) re "xxx0aaZxYT9")
331 (re-test '((10 . 13)) re "aaaaaaaaaaaxB")
334 (re-test '((3 . 9)) re "xxxAaaaaZ")
335 (re-test '((2 . 6)) re "xxaaaZaaa")
338 (re-test '((5 . 11)) re "    (lambda")
339 (re-test '((5 . 11) (5 . 11)) re "    (lambda" :count 2)
340 (re-test :nomatch re "lamda defunn deffmacro")
343 (re-test '((3 . 6)) re "it Nil")
344 (re-test '((3 . 6) (3 . 6)) re "it Nil" :count 6)
345 (re-test :nomatch re "nilo")
348 (re-test '((21 . 24) (21 . 24)) re "beginning the ending EnD" :count 7)
351 (re-test '((0 . 1)) re "a
353 (re-test '((3 . 4)) re "xyza
357 (re-test '((2 . 5)) re "a
359 (re-test '((5 . 7)) re "xyza
363 (re-test '((0 . 1)) re "a
365 (re-test '((3 . 4)) re "xyza
369 (re-test '((11 . 14)) re "xxaa
372 (re-test '((6 . 9)) re "xxxab
377 (re-test '((6 . 10)) re "ab
382 (re-test '((4 . 8)) re "ab
387 (re-test '((11 . 14)) re "bar
390 (re-test '((0 . 3)) re "foo
394 (re-test '((8 . 11)) re "foo
398 (re-test '((8 . 11)) re "foo
401 (re-test :nomatch re "foo
406 (re-test '((8 . 18)) re "#define
408 (re-test '((8 . 18) (9 . 16)) re "#define
412 (re-test '((3 . 259)) re "zzzxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxzzz")
415 (re-test '((13 . 333)) re "String here: ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz01234567890~ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz01234567890~ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz01234567890~ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz01234567890~ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz01234567890~/")
418 (re-test '((0 . 6) (0 . 3) (4 . 6)) re "abcW12" :count 3)
419 (re-test '((0 . 6) (0 . 3)) re "abcW12" :count 2)
420 (re-test '((0 . 6)) re "abcW12" :count 1)
421 (re-test nil re "abcW12" :count 0)
422 (re-test '((0 . 6) (0 . 3) (4 . 6)) re "abcW12abcW12" :count 3)
423 (re-test '((0 . 6) (0 . 3) (4 . 6)) re "abcW12abcW12a" :count 3)
426 (re-test '((0 . 2)) re "a1a1a1aaaaaaa")			; minimal match only
429 (re-test '((0 . 2) (0 . 1)) re "a1a1a1aaaaaaa" :count 2); minimal match only
432 (re-test '((0 . 2) (1 . 2)) re "a1a1a1aaaaaaa" :count 2); minimal match only
435 ;; actually, this pattern is not supported, just test if is not
439 (re-test '((0 . 1)) re "aaaa")		; expected, minimal match
440 (re-test '((0 . 1) (0 . 1)) re "aaaa" :count 2)
448 (re-test  :nomatch re "\\")
451 (re-test  :nomatch re "\\")