diff options
| author | Stefan Kangas | 2021-01-13 15:17:44 +0100 |
|---|---|---|
| committer | Stefan Kangas | 2021-01-13 15:18:21 +0100 |
| commit | 118d6ef554e9e821925578d6ca6f3fd3d4cba780 (patch) | |
| tree | f60ff51e0fb6f0e251155ee8841dd3bf86321585 /test | |
| parent | 6d467eb4d153c703c11f329b01720b8a436511fd (diff) | |
| download | emacs-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.el | 1 | ||||
| -rw-r--r-- | test/lisp/cedet/srecode-utest-template.el | 6 |
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 | ||