diff options
| author | Michael Albinus | 2019-04-13 10:58:17 +0200 |
|---|---|---|
| committer | Michael Albinus | 2019-04-13 10:58:17 +0200 |
| commit | ae21fb3dbc1a596e5bc18a3b7f8a1460b9b0fca3 (patch) | |
| tree | bac4194fd58fd9274136c09b86d8911b4b9851e9 | |
| parent | 5a9937beb6347b330ddbb942c9c6f7ce1abb67c9 (diff) | |
| download | emacs-ae21fb3dbc1a596e5bc18a3b7f8a1460b9b0fca3.tar.gz emacs-ae21fb3dbc1a596e5bc18a3b7f8a1460b9b0fca3.zip | |
Replace (skip-unless nil) by tag :unstable in test packages
* test/lisp/filenotify-tests.el (file-notify--deftest-remote):
Use tag :unstable if SKIP is non-nil.
* test/lisp/net/tramp-tests.el (tramp-test36-vc-registered):
Use ert-skip instead of (skip-unless nil).
* test/lisp/progmodes/python-tests.el
(python-tests--python-nav-end-of-statement--infloop): Use tag
:unstable instead of (skip-unless nil).
| -rw-r--r-- | test/lisp/filenotify-tests.el | 3 | ||||
| -rw-r--r-- | test/lisp/net/tramp-tests.el | 2 | ||||
| -rw-r--r-- | test/lisp/progmodes/python-tests.el | 2 |
3 files changed, 3 insertions, 4 deletions
diff --git a/test/lisp/filenotify-tests.el b/test/lisp/filenotify-tests.el index 50036209b0f..bf13fc1e857 100644 --- a/test/lisp/filenotify-tests.el +++ b/test/lisp/filenotify-tests.el | |||
| @@ -266,9 +266,8 @@ This returns only for the local case and gfilenotify; otherwise it is nil. | |||
| 266 | (declare (indent 1)) | 266 | (declare (indent 1)) |
| 267 | `(ert-deftest ,(intern (concat (symbol-name test) "-remote")) () | 267 | `(ert-deftest ,(intern (concat (symbol-name test) "-remote")) () |
| 268 | ,docstring | 268 | ,docstring |
| 269 | :tags '(:expensive-test) | ||
| 270 | :expected-result (or ,expected :passed) | 269 | :expected-result (or ,expected :passed) |
| 271 | (skip-unless (not ,skip)) | 270 | :tags ,(if skip '(:expensive-test :unstable) '(:expensive-test)) |
| 272 | (let* ((temporary-file-directory | 271 | (let* ((temporary-file-directory |
| 273 | file-notify-test-remote-temporary-file-directory) | 272 | file-notify-test-remote-temporary-file-directory) |
| 274 | (ert-test (ert-get-test ',test)) | 273 | (ert-test (ert-get-test ',test)) |
diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el index 5a9541db8fb..cc3200be948 100644 --- a/test/lisp/net/tramp-tests.el +++ b/test/lisp/net/tramp-tests.el | |||
| @@ -4579,7 +4579,7 @@ This tests also `make-symbolic-link', `file-truename' and `add-name-to-file'." | |||
| 4579 | ;; skip the test then. | 4579 | ;; skip the test then. |
| 4580 | (condition-case nil | 4580 | (condition-case nil |
| 4581 | (vc-create-repo (car vc-handled-backends)) | 4581 | (vc-create-repo (car vc-handled-backends)) |
| 4582 | (error (skip-unless nil))) | 4582 | (error (ert-skip "`vc-create-repo' not supported"))) |
| 4583 | ;; The structure of VC-FILESET is not documented. Let's | 4583 | ;; The structure of VC-FILESET is not documented. Let's |
| 4584 | ;; hope it won't change. | 4584 | ;; hope it won't change. |
| 4585 | (condition-case nil | 4585 | (condition-case nil |
diff --git a/test/lisp/progmodes/python-tests.el b/test/lisp/progmodes/python-tests.el index 999cf8dc7a3..b940f45bb90 100644 --- a/test/lisp/progmodes/python-tests.el +++ b/test/lisp/progmodes/python-tests.el | |||
| @@ -5350,7 +5350,7 @@ buffer with overlapping strings." | |||
| 5350 | ;; The description of the problem it's trying to catch is not clear enough | 5350 | ;; The description of the problem it's trying to catch is not clear enough |
| 5351 | ;; to be able to see if the underlying problem is really fixed, sadly. | 5351 | ;; to be able to see if the underlying problem is really fixed, sadly. |
| 5352 | ;; E.g. I don't know what is meant by "overlap", really. | 5352 | ;; E.g. I don't know what is meant by "overlap", really. |
| 5353 | (skip-unless nil) | 5353 | :tags '(:unstable) |
| 5354 | (python-tests-with-temp-buffer "''' '\n''' ' '\n" | 5354 | (python-tests-with-temp-buffer "''' '\n''' ' '\n" |
| 5355 | (syntax-propertize (point-max)) | 5355 | (syntax-propertize (point-max)) |
| 5356 | ;; Create a situation where strings nominally overlap. This | 5356 | ;; Create a situation where strings nominally overlap. This |