Mercurial > hg > xemacs-beta

diff 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
line wrap: on
line diff
--- a/tests/automated/syntax-tests.el	Mon Nov 11 15:34:13 2002 +0000
+++ b/tests/automated/syntax-tests.el	Mon Nov 11 15:39:07 2002 +0000
@@ -133,14 +133,9 @@
 ;; #### The second Assert fails (once interpreted, once compiled) on 21.4.9
 ;; with sjt's version of Andy's syntax-text-property-killer patch.
 (with-temp-buffer
-  (if (not (fboundp 'c-mode))
-      ;; #### This whole thing should go inside a macro Skip-Test
-      (let* ((reason "c-mode unavailable")
-	     (count (gethash reason skipped-test-reasons)))
-	;;(message "%S: %S" reason count)
-	(puthash reason (if (null count) 1 (1+ count))
-		 skipped-test-reasons)
-	(Print-Skip "comment and parse-partial-sexp tests" reason))
+  (Skip-Test-Unless (fboundp 'c-mode)
+		    "c-mode unavailable"
+		    "comment and parse-partial-sexp tests"
     (c-mode)
     
     (insert "// comment\n")