Remove redundant #' before lambda in tests
* test/lisp/electric-tests.el (save-electric-modes) (inhibit-in-mismatched-string-inside-ruby-comments) (inhibit-in-mismatched-string-inside-c-comments, js-mode-braces) (js-mode-braces-with-layout) (js-mode-braces-with-layout-and-indent, autowrapping-1) (autowrapping-2, autowrapping-3, autowrapping-4, autowrapping-5) (autowrapping-6, autowrapping-7): * test/lisp/progmodes/xref-tests.el (xref--xref-file-name-display-is-relative-to-project-root): * test/src/thread-tests.el (threads-signal-early) (threads-signal-main-thread): Remove redundant #' before lambda.
This commit is contained in:
Stefan Kangas
parent
841b11ed0d
commit
4865ded551
3 changed files with 49 additions and 49 deletions
|
|
@ -47,7 +47,7 @@
|
|||
|
||||
(defmacro save-electric-modes (&rest body)
|
||||
(declare (indent defun) (debug t))
|
||||
`(call-with-saved-electric-modes #'(lambda () ,@body)))
|
||||
`(call-with-saved-electric-modes (lambda () ,@body)))
|
||||
|
||||
(defun electric-pair-test-for (fixture where char expected-string
|
||||
expected-point mode bindings
|
||||
|
|
@ -359,7 +359,7 @@ baz\"\""
|
|||
# \"
|
||||
#
|
||||
baz\"\""
|
||||
:fixture-fn #'(lambda () (goto-char (point-min)) (search-forward "bar")))
|
||||
:fixture-fn (lambda () (goto-char (point-min)) (search-forward "bar")))
|
||||
|
||||
(define-electric-pair-test inhibit-in-mismatched-string-inside-c-comments
|
||||
"foo\"\"/*
|
||||
|
|
@ -378,7 +378,7 @@ baz\"\""
|
|||
\" \"
|
||||
\"
|
||||
*/baz\"\""
|
||||
:fixture-fn #'(lambda () (goto-char (point-min)) (search-forward "bar")))
|
||||
:fixture-fn (lambda () (goto-char (point-min)) (search-forward "bar")))
|
||||
|
||||
|
||||
;;; More quotes, but now don't bind `electric-pair-text-syntax-table'
|
||||
|
|
@ -520,8 +520,8 @@ baz\"\""
|
|||
(define-electric-pair-test js-mode-braces
|
||||
"" "{" :expected-string "{}" :expected-point 2
|
||||
:modes '(js-mode)
|
||||
:fixture-fn #'(lambda ()
|
||||
(electric-pair-mode 1)))
|
||||
:fixture-fn (lambda ()
|
||||
(electric-pair-mode 1)))
|
||||
|
||||
|
||||
(define-electric-pair-test js-mode-braces-with-layout
|
||||
|
|
@ -529,29 +529,29 @@ baz\"\""
|
|||
:modes '(js-mode)
|
||||
:test-in-comments nil
|
||||
:test-in-strings nil
|
||||
:fixture-fn #'(lambda ()
|
||||
(electric-layout-mode 1)
|
||||
(electric-pair-mode 1)))
|
||||
:fixture-fn (lambda ()
|
||||
(electric-layout-mode 1)
|
||||
(electric-pair-mode 1)))
|
||||
|
||||
(define-electric-pair-test js-mode-braces-with-layout-and-indent
|
||||
"" "{" :expected-string "{\n \n}" :expected-point 7
|
||||
:modes '(js-mode)
|
||||
:test-in-comments nil
|
||||
:test-in-strings nil
|
||||
:fixture-fn #'(lambda ()
|
||||
(electric-pair-mode 1)
|
||||
(electric-indent-mode 1)
|
||||
(electric-layout-mode 1)))
|
||||
:fixture-fn (lambda ()
|
||||
(electric-pair-mode 1)
|
||||
(electric-indent-mode 1)
|
||||
(electric-layout-mode 1)))
|
||||
|
||||
(define-electric-pair-test js-mode-braces-with-layout-and-indent
|
||||
"" "{" :expected-string "{\n \n}" :expected-point 7
|
||||
:modes '(js-mode)
|
||||
:test-in-comments nil
|
||||
:test-in-strings nil
|
||||
:fixture-fn #'(lambda ()
|
||||
(electric-pair-mode 1)
|
||||
(electric-indent-mode 1)
|
||||
(electric-layout-mode 1)))
|
||||
:fixture-fn (lambda ()
|
||||
(electric-pair-mode 1)
|
||||
(electric-indent-mode 1)
|
||||
(electric-layout-mode 1)))
|
||||
|
||||
|
||||
;;; Backspacing
|
||||
|
|
@ -606,55 +606,55 @@ baz\"\""
|
|||
;;;
|
||||
(define-electric-pair-test autowrapping-1
|
||||
"foo" "(" :expected-string "(foo)" :expected-point 2
|
||||
:fixture-fn #'(lambda ()
|
||||
(electric-pair-mode 1)
|
||||
(mark-sexp 1)))
|
||||
:fixture-fn (lambda ()
|
||||
(electric-pair-mode 1)
|
||||
(mark-sexp 1)))
|
||||
|
||||
(define-electric-pair-test autowrapping-2
|
||||
"foo" ")" :expected-string "(foo)" :expected-point 6
|
||||
:fixture-fn #'(lambda ()
|
||||
(electric-pair-mode 1)
|
||||
(mark-sexp 1)))
|
||||
:fixture-fn (lambda ()
|
||||
(electric-pair-mode 1)
|
||||
(mark-sexp 1)))
|
||||
|
||||
(define-electric-pair-test autowrapping-3
|
||||
"foo" ")" :expected-string "(foo)" :expected-point 6
|
||||
:fixture-fn #'(lambda ()
|
||||
(electric-pair-mode 1)
|
||||
(goto-char (point-max))
|
||||
(skip-chars-backward "\"")
|
||||
(mark-sexp -1)))
|
||||
:fixture-fn (lambda ()
|
||||
(electric-pair-mode 1)
|
||||
(goto-char (point-max))
|
||||
(skip-chars-backward "\"")
|
||||
(mark-sexp -1)))
|
||||
|
||||
(define-electric-pair-test autowrapping-4
|
||||
"foo" "(" :expected-string "(foo)" :expected-point 2
|
||||
:fixture-fn #'(lambda ()
|
||||
(electric-pair-mode 1)
|
||||
(goto-char (point-max))
|
||||
(skip-chars-backward "\"")
|
||||
(mark-sexp -1)))
|
||||
:fixture-fn (lambda ()
|
||||
(electric-pair-mode 1)
|
||||
(goto-char (point-max))
|
||||
(skip-chars-backward "\"")
|
||||
(mark-sexp -1)))
|
||||
|
||||
(define-electric-pair-test autowrapping-5
|
||||
"foo" "\"" :expected-string "\"foo\"" :expected-point 2
|
||||
:fixture-fn #'(lambda ()
|
||||
(electric-pair-mode 1)
|
||||
(mark-sexp 1)))
|
||||
:fixture-fn (lambda ()
|
||||
(electric-pair-mode 1)
|
||||
(mark-sexp 1)))
|
||||
|
||||
(define-electric-pair-test autowrapping-6
|
||||
"foo" "\"" :expected-string "\"foo\"" :expected-point 6
|
||||
:fixture-fn #'(lambda ()
|
||||
(electric-pair-mode 1)
|
||||
(goto-char (point-max))
|
||||
(skip-chars-backward "\"")
|
||||
(mark-sexp -1)))
|
||||
:fixture-fn (lambda ()
|
||||
(electric-pair-mode 1)
|
||||
(goto-char (point-max))
|
||||
(skip-chars-backward "\"")
|
||||
(mark-sexp -1)))
|
||||
|
||||
(define-electric-pair-test autowrapping-7
|
||||
"foo" "\"" :expected-string "``foo''" :expected-point 8
|
||||
:modes '(tex-mode)
|
||||
:test-in-comments nil
|
||||
:fixture-fn #'(lambda ()
|
||||
(electric-pair-mode 1)
|
||||
(goto-char (point-max))
|
||||
(skip-chars-backward "\"")
|
||||
(mark-sexp -1)))
|
||||
:fixture-fn (lambda ()
|
||||
(electric-pair-mode 1)
|
||||
(goto-char (point-max))
|
||||
(skip-chars-backward "\"")
|
||||
(mark-sexp -1)))
|
||||
|
||||
|
||||
;;; Electric quotes
|
||||
|
|
|
|||
|
|
@ -143,7 +143,7 @@
|
|||
(let* ((data-parent-dir
|
||||
(file-name-directory (directory-file-name xref-tests--data-dir)))
|
||||
(project-find-functions
|
||||
#'(lambda (_) (cons 'transient data-parent-dir)))
|
||||
(lambda (_) (cons 'transient data-parent-dir)))
|
||||
(xref-file-name-display 'project-relative)
|
||||
;; Some older BSD find versions can produce '//' in the output.
|
||||
(expected (list
|
||||
|
|
|
|||
|
|
@ -315,8 +315,8 @@
|
|||
"Test signaling a thread as soon as it is started by the OS."
|
||||
(skip-unless (featurep 'threads))
|
||||
(let ((thread
|
||||
(make-thread #'(lambda ()
|
||||
(while t (thread-yield))))))
|
||||
(make-thread (lambda ()
|
||||
(while t (thread-yield))))))
|
||||
(thread-signal thread 'error nil)
|
||||
(sit-for 1)
|
||||
(should-not (thread-live-p thread))
|
||||
|
|
@ -331,7 +331,7 @@
|
|||
(let (buffer-read-only)
|
||||
(erase-buffer))
|
||||
(let ((thread
|
||||
(make-thread #'(lambda () (thread-signal main-thread 'error nil)))))
|
||||
(make-thread (lambda () (thread-signal main-thread 'error nil)))))
|
||||
(while (thread-live-p thread)
|
||||
(thread-yield))
|
||||
(read-event nil nil 0.1)
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue