Mercurial > hg > xemacs-beta

comparison tests/automated/regexp-tests.el @ 1413:aa15a2bbba1a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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
comparison
equal deleted inserted replaced
1412:583b76a7eb90 1413:aa15a2bbba1a
256 (Assert (not (string-match " \\b" " "))) 256 (Assert (not (string-match " \\b" " ")))
257 (Assert (not (string-match "\\b " " "))) 257 (Assert (not (string-match "\\b " " ")))
258 258
259 ;; Character classes are broken in Mule as of 21.5.9 259 ;; Character classes are broken in Mule as of 21.5.9
260 ;; Added Known-Bug 2002-12-27 260 ;; Added Known-Bug 2002-12-27
261 ;; Fixed by Daiki Ueno 2003-03-24
261 (if (featurep 'mule) 262 (if (featurep 'mule)
262 ;; note: (int-to-char 65) => ?A 263 ;; note: (int-to-char 65) => ?A
263 (let ((ch0 (make-char 'japanese-jisx0208 52 65)) 264 (let ((ch0 (make-char 'japanese-jisx0208 52 65))
264 (ch1 (make-char 'japanese-jisx0208 51 65))) 265 (ch1 (make-char 'japanese-jisx0208 51 65)))
265 (Assert (not (string-match "A" (string ch0)))) 266 (Assert (not (string-match "A" (string ch0))))
266 (Assert (not (string-match "[A]" (string ch0)))) 267 (Assert (not (string-match "[A]" (string ch0))))
267 (Known-Bug-Expect-Failure 268 (Assert (eq (string-match "[^A]" (string ch0)) 0))
268 (Assert (eq (string-match "[^A]" (string ch0)) 0)))
269 (Assert (not (string-match "@A" (string ?@ ch0)))) 269 (Assert (not (string-match "@A" (string ?@ ch0))))
270 (Known-Bug-Expect-Failure 270 (Assert (not (string-match "@[A]" (string ?@ ch0))))
271 (Assert (not (string-match "@[A]" (string ?@ ch0))))) 271 (Assert (eq (string-match "@[^A]" (string ?@ ch0)) 0))
272 (Known-Bug-Expect-Failure
273 (Assert (eq (string-match "@[^A]" (string ?@ ch0)) 0)))
274 (Assert (not (string-match "@?A" (string ?@ ch0)))) 272 (Assert (not (string-match "@?A" (string ?@ ch0))))
275 (Assert (not (string-match "A" (string ch1)))) 273 (Assert (not (string-match "A" (string ch1))))
276 (Assert (not (string-match "[A]" (string ch1)))) 274 (Assert (not (string-match "[A]" (string ch1))))
277 (Assert (eq (string-match "[^A]" (string ch1)) 0)) 275 (Assert (eq (string-match "[^A]" (string ch1)) 0))
278 (Assert (not (string-match "@A" (string ?@ ch1)))) 276 (Assert (not (string-match "@A" (string ?@ ch1))))
279 (Assert (not (string-match "@[A]" (string ?@ ch1)))) 277 (Assert (not (string-match "@[A]" (string ?@ ch1))))
280 (Assert (eq (string-match "@[^A]" (string ?@ ch1)) 0)) 278 (Assert (eq (string-match "@[^A]" (string ?@ ch1)) 0))
281 (Assert (not (string-match "@?A" (string ?@ ch1)))))) 279 (Assert (not (string-match "@?A" (string ?@ ch1))))
280 )
281 )
282 282
283 ;; More stale match data tests. 283 ;; More stale match data tests.
284 ;; Thanks to <bjacob@ca.metsci.com>. 284 ;; Thanks to <bjacob@ca.metsci.com>.
285 (Assert (not (progn (string-match "a" "a") 285 (Assert (not (progn (string-match "a" "a")
286 (string-match "b" "a") 286 (string-match "b" "a")