From 262d0c6acfe898d826b6037bc1155a21fa785f1e Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Thu, 10 Sep 2020 20:25:19 +0200 Subject: [PATCH] Mark some tests as expensive * test/lisp/autorevert-tests.el (auto-revert-test00-auto-revert-mode) (auto-revert-test03-auto-revert-tail-mode) (auto-revert-test04-auto-revert-mode-dired): * test/lisp/cedet/semantic-utest-c.el (semantic-test-c-preprocessor-simulation): * test/lisp/cedet/srecode-utest-getset.el (srecode-utest-getset-output): * test/lisp/emacs-lisp/cl-seq-tests.el (cl-seq-test-bug24264): * test/lisp/emacs-lisp/package-tests.el (package-test-update-archives-async): * test/lisp/filenotify-tests.el (file-notify-test03-events) (file-notify-test04-autorevert) (file-notify-test05-file-validity, file-notify-test08-backup): * test/lisp/net/gnutls-tests.el (test-gnutls-005-aead-ciphers): * test/lisp/shadowfile-tests.el (shadow-test00-clusters) (shadow-test09-shadow-copy-files): --- test/lisp/autorevert-tests.el | 3 +++ test/lisp/cedet/semantic-utest-c.el | 2 +- test/lisp/cedet/srecode-utest-getset.el | 1 + test/lisp/emacs-lisp/cl-seq-tests.el | 1 + test/lisp/emacs-lisp/package-tests.el | 1 + test/lisp/filenotify-tests.el | 4 ++++ test/lisp/net/gnutls-tests.el | 1 + test/lisp/shadowfile-tests.el | 2 ++ 8 files changed, 14 insertions(+), 1 deletion(-) diff --git a/test/lisp/autorevert-tests.el b/test/lisp/autorevert-tests.el index ec3e4bb77ba..3243a80e52c 100644 --- a/test/lisp/autorevert-tests.el +++ b/test/lisp/autorevert-tests.el @@ -156,6 +156,7 @@ This expects `auto-revert--messages' to be bound by "Check autorevert for a file." ;; `auto-revert-buffers' runs every 5". And we must wait, until the ;; file has been reverted. + :tags '(:expensive-test) (let ((tmpfile (make-temp-file "auto-revert-test")) buf) (unwind-protect @@ -356,6 +357,7 @@ This expects `auto-revert--messages' to be bound by "Check autorevert tail mode." ;; `auto-revert-buffers' runs every 5". And we must wait, until the ;; file has been reverted. + :tags '(:expensive-test) (let ((tmpfile (make-temp-file "auto-revert-test")) buf) (unwind-protect @@ -394,6 +396,7 @@ This expects `auto-revert--messages' to be bound by "Check autorevert for dired." ;; `auto-revert-buffers' runs every 5". And we must wait, until the ;; file has been reverted. + :tags '(:expensive-test) (let* ((tmpfile (make-temp-file "auto-revert-test")) (name (file-name-nondirectory tmpfile)) buf) diff --git a/test/lisp/cedet/semantic-utest-c.el b/test/lisp/cedet/semantic-utest-c.el index c3496648f25..c776a0fbaac 100644 --- a/test/lisp/cedet/semantic-utest-c.el +++ b/test/lisp/cedet/semantic-utest-c.el @@ -46,7 +46,7 @@ ;;;###autoload (ert-deftest semantic-test-c-preprocessor-simulation () "Run parsing test for C from the test directory." - (interactive) + :tags '(:expensive-test) (semantic-mode 1) (dolist (fp semantic-utest-c-comparisons) (let* ((semantic-lex-c-nested-namespace-ignore-second nil) diff --git a/test/lisp/cedet/srecode-utest-getset.el b/test/lisp/cedet/srecode-utest-getset.el index 3419b18afb5..fc66ac4edf2 100644 --- a/test/lisp/cedet/srecode-utest-getset.el +++ b/test/lisp/cedet/srecode-utest-getset.el @@ -55,6 +55,7 @@ private: (defvar srecode-insert-getset-fully-automatic-flag) ; Silence byte-compiler. (ert-deftest srecode-utest-getset-output () "Test various template insertion options." + :tags '(:expensive-test) (save-excursion (let ((testbuff (find-file-noselect srecode-utest-getset-testfile)) (srecode-insert-getset-fully-automatic-flag t)) diff --git a/test/lisp/emacs-lisp/cl-seq-tests.el b/test/lisp/emacs-lisp/cl-seq-tests.el index cddefbbdee8..7e0f5384542 100644 --- a/test/lisp/emacs-lisp/cl-seq-tests.el +++ b/test/lisp/emacs-lisp/cl-seq-tests.el @@ -294,6 +294,7 @@ Body are forms defining the test." (ert-deftest cl-seq-test-bug24264 () "Test for https://debbugs.gnu.org/24264 ." + :tags '(:expensive-test) (let ((list (append (make-list 8000005 1) '(8))) (list2 (make-list 8000005 2))) (should (cl-position 8 list)) diff --git a/test/lisp/emacs-lisp/package-tests.el b/test/lisp/emacs-lisp/package-tests.el index dd8ae39c7ef..cbb2410f953 100644 --- a/test/lisp/emacs-lisp/package-tests.el +++ b/test/lisp/emacs-lisp/package-tests.el @@ -492,6 +492,7 @@ Must called from within a `tar-mode' buffer." (ert-deftest package-test-update-archives-async () "Test updating package archives asynchronously." + :tags '(:expensive-test) (skip-unless (executable-find "python2")) (let* ((package-menu-async t) (default-directory package-test-data-dir) diff --git a/test/lisp/filenotify-tests.el b/test/lisp/filenotify-tests.el index 42d86ee1538..47ed661ebf8 100644 --- a/test/lisp/filenotify-tests.el +++ b/test/lisp/filenotify-tests.el @@ -611,6 +611,7 @@ delivered." (ert-deftest file-notify-test03-events () "Check file creation/change/removal notifications." + :tags '(:expensive-test) (skip-unless (file-notify--test-local-enabled)) (unwind-protect @@ -888,6 +889,7 @@ delivered." (ert-deftest file-notify-test04-autorevert () "Check autorevert via file notification." + :tags '(:expensive-test) (skip-unless (file-notify--test-local-enabled)) ;; `auto-revert-buffers' runs every 5". And we must wait, until the @@ -983,6 +985,7 @@ delivered." (ert-deftest file-notify-test05-file-validity () "Check `file-notify-valid-p' for files." + :tags '(:expensive-test) (skip-unless (file-notify--test-local-enabled)) (unwind-protect @@ -1235,6 +1238,7 @@ delivered." (ert-deftest file-notify-test08-backup () "Check that backup keeps file notification." + :tags '(:expensive-test) (skip-unless (file-notify--test-local-enabled)) (unwind-protect diff --git a/test/lisp/net/gnutls-tests.el b/test/lisp/net/gnutls-tests.el index 07e30b64642..5205f0b851f 100644 --- a/test/lisp/net/gnutls-tests.el +++ b/test/lisp/net/gnutls-tests.el @@ -241,6 +241,7 @@ (ert-deftest test-gnutls-005-aead-ciphers () "Test the GnuTLS AEAD ciphers" + :tags '(:expensive-test) (skip-unless (memq 'AEAD-ciphers (gnutls-available-p))) (setq gnutls-tests-message-prefix "AEAD verification: ") (let ((keys '("mykey" "mykey2")) diff --git a/test/lisp/shadowfile-tests.el b/test/lisp/shadowfile-tests.el index 03c62de1fd6..f40f6a1cdb0 100644 --- a/test/lisp/shadowfile-tests.el +++ b/test/lisp/shadowfile-tests.el @@ -125,6 +125,7 @@ Per definition, all files are identical on the different hosts of a cluster (or site). This is not tested here; it must be guaranteed by the originator of a cluster definition." + :tags '(:expensive-test) (skip-unless (not (memq system-type '(windows-nt ms-dos)))) (skip-unless (file-remote-p shadow-test-remote-temporary-file-directory)) @@ -865,6 +866,7 @@ guaranteed by the originator of a cluster definition." (ert-deftest shadow-test09-shadow-copy-files () "Check that needed shadow files are copied." + :tags '(:expensive-test) (skip-unless (not (memq system-type '(windows-nt ms-dos)))) (skip-unless (file-remote-p shadow-test-remote-temporary-file-directory)) (skip-unless (file-writable-p shadow-test-remote-temporary-file-directory)) -- 2.39.5