Mercurial > hg > xemacs-beta
diff tests/automated/regexp-tests.el @ 1413:aa15a2bbba1a
[xemacs-hg @ 2003-04-15 15:56:56 by stephent]
known bug status changes and new macros
<87r883bvuy.fsf@tleepslib.sk.tsukuba.ac.jp>
<87u1czbvzo.fsf_-_@tleepslib.sk.tsukuba.ac.jp>
| author | stephent |
|---|---|
| date | Tue, 15 Apr 2003 15:56:58 +0000 |
| parents | 6355bae896e3 |
| children | 74cb069b8417 |
line wrap: on
line diff
--- a/tests/automated/regexp-tests.el Mon Apr 14 21:52:31 2003 +0000 +++ b/tests/automated/regexp-tests.el Tue Apr 15 15:56:58 2003 +0000 @@ -258,19 +258,17 @@ ;; Character classes are broken in Mule as of 21.5.9 ;; Added Known-Bug 2002-12-27 +;; Fixed by Daiki Ueno 2003-03-24 (if (featurep 'mule) ;; note: (int-to-char 65) => ?A (let ((ch0 (make-char 'japanese-jisx0208 52 65)) (ch1 (make-char 'japanese-jisx0208 51 65))) (Assert (not (string-match "A" (string ch0)))) (Assert (not (string-match "[A]" (string ch0)))) - (Known-Bug-Expect-Failure - (Assert (eq (string-match "[^A]" (string ch0)) 0))) + (Assert (eq (string-match "[^A]" (string ch0)) 0)) (Assert (not (string-match "@A" (string ?@ ch0)))) - (Known-Bug-Expect-Failure - (Assert (not (string-match "@[A]" (string ?@ ch0))))) - (Known-Bug-Expect-Failure - (Assert (eq (string-match "@[^A]" (string ?@ ch0)) 0))) + (Assert (not (string-match "@[A]" (string ?@ ch0)))) + (Assert (eq (string-match "@[^A]" (string ?@ ch0)) 0)) (Assert (not (string-match "@?A" (string ?@ ch0)))) (Assert (not (string-match "A" (string ch1)))) (Assert (not (string-match "[A]" (string ch1)))) @@ -278,7 +276,9 @@ (Assert (not (string-match "@A" (string ?@ ch1)))) (Assert (not (string-match "@[A]" (string ?@ ch1)))) (Assert (eq (string-match "@[^A]" (string ?@ ch1)) 0)) - (Assert (not (string-match "@?A" (string ?@ ch1)))))) + (Assert (not (string-match "@?A" (string ?@ ch1)))) + ) + ) ;; More stale match data tests. ;; Thanks to <bjacob@ca.metsci.com>.