diff options
Diffstat (limited to 'test/lisp')
| -rw-r--r-- | test/lisp/electric-tests.el | 4 | ||||
| -rw-r--r-- | test/lisp/emacs-lisp/cl-lib-tests.el | 2 | ||||
| -rw-r--r-- | test/lisp/emacs-lisp/ert-tests.el | 8 | ||||
| -rw-r--r-- | test/lisp/epg-tests.el | 6 | ||||
| -rw-r--r-- | test/lisp/jsonrpc-tests.el | 2 |
5 files changed, 11 insertions, 11 deletions
diff --git a/test/lisp/electric-tests.el b/test/lisp/electric-tests.el index 7e94dfa496c..a665d2eb288 100644 --- a/test/lisp/electric-tests.el +++ b/test/lisp/electric-tests.el @@ -179,9 +179,9 @@ The buffer's contents should %s: "" "-in-comments"))) (if test-in-strings - `(("\"" "\"" "-in-strings"))) + '(("\"" "\"" "-in-strings"))) (if test-in-code - `(("" "" "")))) + '(("" "" "")))) append (cl-loop for char across input diff --git a/test/lisp/emacs-lisp/cl-lib-tests.el b/test/lisp/emacs-lisp/cl-lib-tests.el index f100e8c6c5f..a338e16f7bc 100644 --- a/test/lisp/emacs-lisp/cl-lib-tests.el +++ b/test/lisp/emacs-lisp/cl-lib-tests.el @@ -220,7 +220,7 @@ (should-error (cl-struct-slot-offset 'mystruct 'marypoppins)) (should (pcase (cl-struct-slot-info 'mystruct) (`((cl-tag-slot) (abc 5 :readonly t) - (def . ,(or `nil `(nil)))) + (def . ,(or 'nil '(nil)))) t))))) (ert-deftest cl-lib-struct-constructors () (should (string-match "\\`Constructor docstring." diff --git a/test/lisp/emacs-lisp/ert-tests.el b/test/lisp/emacs-lisp/ert-tests.el index 1fe5b79ef36..06e3fb292b1 100644 --- a/test/lisp/emacs-lisp/ert-tests.el +++ b/test/lisp/emacs-lisp/ert-tests.el @@ -188,7 +188,7 @@ failed or if there was a problem." (ert-deftest ert-test-should-with-macrolet () (let ((test (make-ert-test :body (lambda () - (cl-macrolet ((foo () `(progn t nil))) + (cl-macrolet ((foo () '(progn t nil))) (should (foo))))))) (let ((result (let ((ert-debug-on-error nil)) (ert-run-test test)))) @@ -490,9 +490,9 @@ This macro is used to test if macroexpansion in `should' works." :name nil :body nil :tags '(a b)))) - (should (equal (ert-select-tests `(tag a) (list test)) (list test))) - (should (equal (ert-select-tests `(tag b) (list test)) (list test))) - (should (equal (ert-select-tests `(tag c) (list test)) '())))) + (should (equal (ert-select-tests '(tag a) (list test)) (list test))) + (should (equal (ert-select-tests '(tag b) (list test)) (list test))) + (should (equal (ert-select-tests '(tag c) (list test)) '())))) ;;; Tests for utility functions. diff --git a/test/lisp/epg-tests.el b/test/lisp/epg-tests.el index c1e98a6935e..69c3838f0ae 100644 --- a/test/lisp/epg-tests.el +++ b/test/lisp/epg-tests.el @@ -82,7 +82,7 @@ (setf (epg-context-home-directory context) epg-tests-home-directory) ,(if require-passphrase - `(with-temp-file (expand-file-name + '(with-temp-file (expand-file-name "gpg-agent.conf" epg-tests-home-directory) (insert "pinentry-program " (expand-file-name "dummy-pinentry" @@ -92,11 +92,11 @@ context #'epg-tests-passphrase-callback))) ,(if require-public-key - `(epg-import-keys-from-file + '(epg-import-keys-from-file context (expand-file-name "pubkey.asc" epg-tests-data-directory))) ,(if require-secret-key - `(epg-import-keys-from-file + '(epg-import-keys-from-file context (expand-file-name "seckey.asc" epg-tests-data-directory))) (with-temp-buffer diff --git a/test/lisp/jsonrpc-tests.el b/test/lisp/jsonrpc-tests.el index 1a84c30e33d..585eb20bfeb 100644 --- a/test/lisp/jsonrpc-tests.el +++ b/test/lisp/jsonrpc-tests.el @@ -64,7 +64,7 @@ (unless (memq method '(+ - * / vconcat append sit-for ignore)) (signal 'jsonrpc-error - `((jsonrpc-error-message + '((jsonrpc-error-message . "Sorry, this isn't allowed") (jsonrpc-error-code . -32601)))) (apply method (append params nil))) |