Mercurial > hg > xemacs-beta

comparison tests/automated/syntax-tests.el @ 973:ea6a06f7bf2c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2002-08-22 14:56:23 by stephent] implement test skipping <87d6sblzat.fsf@tleepslib.sk.tsukuba.ac.jp>
author stephent
date Thu, 22 Aug 2002 14:56:32 +0000
parents 223736d75acb
children ccaf90c5a53a
comparison
equal deleted inserted replaced
972:3fd7fb7868b3 973:ea6a06f7bf2c
125 ;; Apply word to punctuation 125 ;; Apply word to punctuation
126 (test-syntax-table "W." 1 `(,(syntax-string-to-code "w")) 2)) 126 (test-syntax-table "W." 1 `(,(syntax-string-to-code "w")) 2))
127 127
128 ;; Test forward-comment at buffer boundaries 128 ;; Test forward-comment at buffer boundaries
129 (with-temp-buffer 129 (with-temp-buffer
130 (c-mode) 130 (if (not (fboundp 'c-mode))
131 (insert "// comment\n") 131 ;; #### This whole thing should go inside a macro Skip-Test
132 (forward-comment -2) 132 (let* ((reason "c-mode unavailable")
133 (Assert (eq (point) (point-min))) 133 (count (gethash reason skipped-test-reasons)))
134 ;;(message "%S: %S" reason count)
135 (puthash reason (if (null count) 1 (1+ count))
136 skipped-test-reasons)
137 (Print-Skip "comment and parse-partial-sexp tests" reason))
138 (c-mode)
139
140 (insert "// comment\n")
141 (forward-comment -2)
142 (Assert (eq (point) (point-min)))
134 143
135 (let ((point (point))) 144 (let ((point (point)))
136 (insert "/* comment */") 145 (insert "/* comment */")
137 (goto-char point) 146 (goto-char point)
138 (forward-comment 2) 147 (forward-comment 2)
139 (Assert (eq (point) (point-max))) 148 (Assert (eq (point) (point-max)))
140 149
141 ;; this last used to crash 150 ;; this last used to crash
142 (parse-partial-sexp point (point-max)))) 151 (parse-partial-sexp point (point-max)))))