Mercurial > hg > xemacs-beta

comparison tests/automated/regexp-tests.el @ 4517:5e8f6469169f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix up initial condition for skip-chars test.
author Stephen J. Turnbull <stephen@xemacs.org>
date Sat, 27 Sep 2008 16:34:40 +0900
parents b82fdf7305ee
children e0a8c796f955
comparison
equal deleted inserted replaced
4516:e96f3aca4d63 4517:5e8f6469169f
524 524
525 ;; Not very comprehensive tests of skip-chars-forward, skip-chars-background: 525 ;; Not very comprehensive tests of skip-chars-forward, skip-chars-background:
526 526
527 (with-string-as-buffer-contents 527 (with-string-as-buffer-contents
528 "-]-----------------------------][]]------------------------" 528 "-]-----------------------------][]]------------------------"
529 (goto-char (point-min))
529 (skip-chars-forward (skip-chars-quote "-[]")) 530 (skip-chars-forward (skip-chars-quote "-[]"))
530 (Assert (= (point) (point-max))) 531 (Assert (= (point) (point-max)))
531 (skip-chars-backward (skip-chars-quote "-[]")) 532 (skip-chars-backward (skip-chars-quote "-[]"))
532 (Assert (= (point) (point-min))) 533 (Assert (= (point) (point-min)))
533 ;; Testing in passing for an old bug in #'skip-chars-forward where I 534 ;; Testing in passing for an old bug in #'skip-chars-forward where I