Mercurial > hg > xemacs-beta

comparison tests/automated/syntax-tests.el @ 1095:0d33547d9ed3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2002-11-11 15:39:03 by stephent] testing improvements <87adkgyv5v.fsf@tleepslib.sk.tsukuba.ac.jp>
author stephent
date Mon, 11 Nov 2002 15:39:07 +0000
parents ccaf90c5a53a
children a7ef4b25b467
comparison
equal deleted inserted replaced
1094:4f4c898836ab 1095:0d33547d9ed3
131 131
132 ;; Test forward-comment at buffer boundaries 132 ;; Test forward-comment at buffer boundaries
133 ;; #### The second Assert fails (once interpreted, once compiled) on 21.4.9 133 ;; #### The second Assert fails (once interpreted, once compiled) on 21.4.9
134 ;; with sjt's version of Andy's syntax-text-property-killer patch. 134 ;; with sjt's version of Andy's syntax-text-property-killer patch.
135 (with-temp-buffer 135 (with-temp-buffer
136 (if (not (fboundp 'c-mode)) 136 (Skip-Test-Unless (fboundp 'c-mode)
137 ;; #### This whole thing should go inside a macro Skip-Test 137 "c-mode unavailable"
138 (let* ((reason "c-mode unavailable") 138 "comment and parse-partial-sexp tests"
139 (count (gethash reason skipped-test-reasons)))
140 ;;(message "%S: %S" reason count)
141 (puthash reason (if (null count) 1 (1+ count))
142 skipped-test-reasons)
143 (Print-Skip "comment and parse-partial-sexp tests" reason))
144 (c-mode) 139 (c-mode)
145 140
146 (insert "// comment\n") 141 (insert "// comment\n")
147 (forward-comment -2) 142 (forward-comment -2)
148 (Assert (eq (point) (point-min))) 143 (Assert (eq (point) (point-min)))