Mercurial > hg > xemacs-beta
comparison tests/automated/regexp-tests.el @ 2254:cf4470caf504
[xemacs-hg @ 2004-09-08 10:21:57 by stephent]
test Yamaoka bug <87acw1vz73.fsf@tleepslib.sk.tsukuba.ac.jp>
| author | stephent |
|---|---|
| date | Wed, 08 Sep 2004 10:22:01 +0000 |
| parents | 61179c12fbb7 |
| children | df2fafa399a1 |
comparison
equal
deleted
inserted
replaced
| 2253:d5f3c86c0ee3 | 2254:cf4470caf504 |
|---|---|
| 392 a)) | 392 a)) |
| 393 (Assert (string= (progn (string-match "\\(a\\)" a) | 393 (Assert (string= (progn (string-match "\\(a\\)" a) |
| 394 (string-match "b" a) | 394 (string-match "b" a) |
| 395 (match-string 1 a)) | 395 (match-string 1 a)) |
| 396 a))) | 396 a))) |
| 397 | |
| 398 ;; bug identified by Katsumi Yamaoka 2004-09-03 <b9ywtzbbpue.fsf_-_@jpl.org> | |
| 399 ;; fix submitted by sjt 2004-09-08 | |
| 400 ;; trailing comments are values from buggy 21.4.15 | |
| 401 (let ((text "abc")) | |
| 402 (Assert (eq 0 (string-match "\\(?:ab+\\)*c" text))) ; 2 | |
| 403 (Assert (eq 0 (string-match "^\\(?:ab+\\)*c" text))) ; nil | |
| 404 (Assert (eq 0 (string-match "^\\(?:ab+\\)*" text))) ; 0 | |
| 405 (Assert (eq 0 (string-match "^\\(?:ab+\\)c" text))) ; 0 | |
| 406 (Assert (eq 0 (string-match "^\\(?:ab\\)*c" text))) ; 0 | |
| 407 (Assert (eq 0 (string-match "^\\(?:a+\\)*b" text))) ; nil | |
| 408 (Assert (eq 0 (string-match "^\\(?:a\\)*b" text))) ; 0 | |
| 409 ) | |
| 410 |