aboutsummaryrefslogtreecommitdiffstats
path: root/test
diff options
context:
space:
mode:
authorStefan Kangas2021-01-13 15:17:44 +0100
committerStefan Kangas2021-01-13 15:18:21 +0100
commit118d6ef554e9e821925578d6ca6f3fd3d4cba780 (patch)
treef60ff51e0fb6f0e251155ee8841dd3bf86321585 /test
parent6d467eb4d153c703c11f329b01720b8a436511fd (diff)
downloademacs-118d6ef554e9e821925578d6ca6f3fd3d4cba780.tar.gz
emacs-118d6ef554e9e821925578d6ca6f3fd3d4cba780.zip
Remove some XEmacs compat code from tests
* test/lisp/cedet/srecode-utest-getset.el (srecode-utest-getset-output): * test/lisp/cedet/srecode-utest-template.el (srecode-utest-template-output): Remove XEmacs compat code.
Diffstat (limited to 'test')
-rw-r--r--test/lisp/cedet/srecode-utest-getset.el1
-rw-r--r--test/lisp/cedet/srecode-utest-template.el6
2 files changed, 1 insertions, 6 deletions
diff --git a/test/lisp/cedet/srecode-utest-getset.el b/test/lisp/cedet/srecode-utest-getset.el
index 0497dea505d..1c6578038c0 100644
--- a/test/lisp/cedet/srecode-utest-getset.el
+++ b/test/lisp/cedet/srecode-utest-getset.el
@@ -128,7 +128,6 @@ private:
128 (srecode-utest-getset-jumptotag "miscFunction")) 128 (srecode-utest-getset-jumptotag "miscFunction"))
129 129
130 (let ((pos (point))) 130 (let ((pos (point)))
131 (skip-chars-backward " \t\n") ; xemacs forward-comment is different.
132 (forward-comment -1) 131 (forward-comment -1)
133 (re-search-forward "miscFunction" pos)) 132 (re-search-forward "miscFunction" pos))
134 133
diff --git a/test/lisp/cedet/srecode-utest-template.el b/test/lisp/cedet/srecode-utest-template.el
index 57d8a648050..f97ff18320e 100644
--- a/test/lisp/cedet/srecode-utest-template.el
+++ b/test/lisp/cedet/srecode-utest-template.el
@@ -307,13 +307,9 @@ INSIDE SECTION: ARG HANDLER ONE")
307 (should (srecode-table major-mode)) 307 (should (srecode-table major-mode))
308 308
309 ;; Loop over the output testpoints. 309 ;; Loop over the output testpoints.
310
311 (dolist (p srecode-utest-output-entries) 310 (dolist (p srecode-utest-output-entries)
312 (set-buffer testbuff) ;; XEmacs causes a buffer switch. I don't know why 311 (should-not (srecode-utest-test p)))))
313 (should-not (srecode-utest-test p))
314 )
315 312
316 ))
317 (when (file-exists-p srecode-utest-testfile) 313 (when (file-exists-p srecode-utest-testfile)
318 (delete-file srecode-utest-testfile))) 314 (delete-file srecode-utest-testfile)))
319 315