mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-12-18 10:16:51 +00:00
Add forward-sexp (and related) tests
* test/lisp/emacs-lisp/lisp-tests.el: New file for testing forward-sexp and related functions (bug#22800).
This commit is contained in:
Aaron S. Hawley
Lars Ingebrigtsen
parent
10b040814e
commit
22994735af
211
test/lisp/emacs-lisp/lisp-tests.el
Normal file
211
test/lisp/emacs-lisp/lisp-tests.el
Normal file
@ -0,0 +1,211 @@
|
|||||||
|
;;; lisp-tests.el --- Test Lisp editing commands -*- lexical-binding: t; -*-
|
||||||
|
|
||||||
|
;; Copyright (C) 2013-2016 Free Software Foundation, Inc.
|
||||||
|
|
||||||
|
;; Author: Aaron S. Hawley <aaron.s.hawley@gmail.com>
|
||||||
|
;; Keywords: internal
|
||||||
|
|
||||||
|
;; GNU Emacs is free software: you can redistribute it and/or modify
|
||||||
|
;; it under the terms of the GNU General Public License as published by
|
||||||
|
;; the Free Software Foundation, either version 3 of the License, or
|
||||||
|
;; (at your option) any later version.
|
||||||
|
|
||||||
|
;; GNU Emacs is distributed in the hope that it will be useful,
|
||||||
|
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||||
|
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||||
|
;; GNU General Public License for more details.
|
||||||
|
|
||||||
|
;; You should have received a copy of the GNU General Public License
|
||||||
|
;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
|
||||||
|
|
||||||
|
;;; Commentary:
|
||||||
|
|
||||||
|
;; Testing of `forward-sexp' and related functions.
|
||||||
|
|
||||||
|
;;; Code:
|
||||||
|
|
||||||
|
(require 'ert)
|
||||||
|
(require 'python)
|
||||||
|
|
||||||
|
(ert-deftest lisp-forward-sexp-1-empty-parens ()
|
||||||
|
"Test basics of \\[forward-sexp]."
|
||||||
|
(with-temp-buffer
|
||||||
|
(insert "()")
|
||||||
|
(goto-char (point-min))
|
||||||
|
(should (null
|
||||||
|
(forward-sexp 1)))))
|
||||||
|
|
||||||
|
(ert-deftest lisp-forward-sexp-1-error-mismatch ()
|
||||||
|
"Test basics of \\[forward-sexp]."
|
||||||
|
(with-temp-buffer
|
||||||
|
(insert "(")
|
||||||
|
(goto-char (point-min))
|
||||||
|
(should-error
|
||||||
|
(forward-sexp 1))))
|
||||||
|
|
||||||
|
(ert-deftest lisp-backward-sexp-1-empty-parens ()
|
||||||
|
"Test basics of \\[backward-sexp]."
|
||||||
|
(with-temp-buffer
|
||||||
|
(insert "()")
|
||||||
|
(should (null
|
||||||
|
(forward-sexp -1)))))
|
||||||
|
|
||||||
|
(ert-deftest lisp-backward-sexp-1-error-mismatch ()
|
||||||
|
"Test mismatched parens with \\[backward-sexp]."
|
||||||
|
(with-temp-buffer
|
||||||
|
(insert "(")
|
||||||
|
(should-error
|
||||||
|
(forward-sexp -1))))
|
||||||
|
|
||||||
|
(ert-deftest lisp-forward-sexp-1-eobp ()
|
||||||
|
"Test \\[forward-sexp] at `eobp'."
|
||||||
|
(with-temp-buffer
|
||||||
|
(insert "()")
|
||||||
|
(should (null ;; (should-error ;; No, per #13994
|
||||||
|
(forward-sexp 1)))))
|
||||||
|
|
||||||
|
(ert-deftest lisp-backward-sexp-1-eobp ()
|
||||||
|
"Test \\[backward-sexp] at `bobp'."
|
||||||
|
(with-temp-buffer
|
||||||
|
(insert "()")
|
||||||
|
(goto-char (point-min))
|
||||||
|
(should (null ;; (should-error ;; No, per #13994
|
||||||
|
(forward-sexp -1)))))
|
||||||
|
|
||||||
|
(ert-deftest lisp-forward-sexp-2-eobp ()
|
||||||
|
"Test \\[forward-sexp] beyond `eobp'."
|
||||||
|
(with-temp-buffer
|
||||||
|
(insert "()")
|
||||||
|
(goto-char (point-min))
|
||||||
|
(should (null ;; (should-error ;; No, per #13994
|
||||||
|
(forward-sexp 2)))
|
||||||
|
(should (eobp))))
|
||||||
|
|
||||||
|
(ert-deftest lisp-backward-sexp-2-bobp ()
|
||||||
|
"Test \\[backward-sexp] beyond `bobp'."
|
||||||
|
(with-temp-buffer
|
||||||
|
(insert "()")
|
||||||
|
(should (null ;; (should-error ;; No, per #13994
|
||||||
|
(forward-sexp -2)))
|
||||||
|
(should (bobp))))
|
||||||
|
|
||||||
|
(ert-deftest lisp-forward-sexp-2-eobp-and-subsequent ()
|
||||||
|
"Test \\[forward-sexp] beyond `eobp' and again."
|
||||||
|
(with-temp-buffer
|
||||||
|
(insert "()")
|
||||||
|
(goto-char (point-min))
|
||||||
|
(should (null ;; (should-error ;; No, per #13994
|
||||||
|
(forward-sexp 2)))
|
||||||
|
(should (eobp))
|
||||||
|
(should (null ;; (should-error ;; No, per #13994
|
||||||
|
(forward-sexp 1)))))
|
||||||
|
|
||||||
|
(ert-deftest lisp-backward-sexp-2-bobp-and-subsequent ()
|
||||||
|
"Test \\[backward-sexp] ahead of `bobp' and again."
|
||||||
|
(with-temp-buffer
|
||||||
|
(insert "()")
|
||||||
|
(should (null ;; (should-error ;; No, per #13994
|
||||||
|
(forward-sexp -2)))
|
||||||
|
(should (bobp))
|
||||||
|
(should (null ;; (should-error ;; No, per #13994
|
||||||
|
(forward-sexp -1)))))
|
||||||
|
|
||||||
|
(ert-deftest lisp-delete-pair-parens ()
|
||||||
|
"Test \\[delete-pair] with parens."
|
||||||
|
(with-temp-buffer
|
||||||
|
(insert "(foo)")
|
||||||
|
(goto-char (point-min))
|
||||||
|
(delete-pair)
|
||||||
|
(should (string-equal "foo" (buffer-string)))))
|
||||||
|
|
||||||
|
(ert-deftest lisp-delete-pair-quotation-marks ()
|
||||||
|
"Test \\[delete-pair] with quotation marks."
|
||||||
|
(with-temp-buffer
|
||||||
|
(insert "\"foo\"")
|
||||||
|
(goto-char (point-min))
|
||||||
|
(delete-pair)
|
||||||
|
(should (string-equal "foo" (buffer-string)))))
|
||||||
|
|
||||||
|
(ert-deftest lisp-delete-pair-quotes-in-text-mode ()
|
||||||
|
"Test \\[delete-pair] against string in Text Mode for #15014."
|
||||||
|
(with-temp-buffer
|
||||||
|
(text-mode)
|
||||||
|
(insert "\"foo\"")
|
||||||
|
(goto-char (point-min))
|
||||||
|
(delete-pair)
|
||||||
|
(should (string-equal "fo\"" (buffer-string)))))
|
||||||
|
|
||||||
|
(ert-deftest lisp-delete-pair-quotes-text-mode-syntax-table ()
|
||||||
|
"Test \\[delete-pair] with modified Text Mode syntax for #15014."
|
||||||
|
(with-temp-buffer
|
||||||
|
(text-mode)
|
||||||
|
(let ((st (copy-syntax-table text-mode-syntax-table)))
|
||||||
|
(with-syntax-table st
|
||||||
|
;; (modify-syntax-entry ?\" "." text-mode-syntax-table)
|
||||||
|
(modify-syntax-entry ?\" "$" st)
|
||||||
|
(insert "\"foo\"")
|
||||||
|
(goto-char (point-min))
|
||||||
|
(delete-pair)
|
||||||
|
(should (string-equal "foo" (buffer-string)))))))
|
||||||
|
|
||||||
|
(ert-deftest lisp-forward-sexp-elisp-inside-symbol ()
|
||||||
|
"Test \\[forward-sexp] on symbol in Emacs Lisp Mode for #20492."
|
||||||
|
(with-temp-buffer
|
||||||
|
(emacs-lisp-mode)
|
||||||
|
(insert "hide-ifdef-env ")
|
||||||
|
(insert (concat (number-sequence 32 126)))
|
||||||
|
(goto-char (point-min))
|
||||||
|
(re-search-forward "hide" nil t) ;; (forward-char 4)
|
||||||
|
(should (looking-at "-"))
|
||||||
|
(forward-sexp)
|
||||||
|
(should (looking-at " "))))
|
||||||
|
|
||||||
|
(ert-deftest lisp-forward-sexp-elisp-quoted-symbol ()
|
||||||
|
"Test \\[forward-sexp] on symbol in Emacs Lisp Mode for #20492."
|
||||||
|
(with-temp-buffer
|
||||||
|
(emacs-lisp-mode)
|
||||||
|
(insert "`hide-ifdef-env'.")
|
||||||
|
(goto-char (point-min))
|
||||||
|
(re-search-forward "hide" nil t) ;; (forward-char 5)
|
||||||
|
(should (= ?- (char-after)))
|
||||||
|
(forward-sexp)
|
||||||
|
(should (= ?. (char-before)))))
|
||||||
|
|
||||||
|
(ert-deftest lisp-forward-sexp-python-triple-quoted-string ()
|
||||||
|
"Test \\[forward-sexp] on Python doc strings for #11321."
|
||||||
|
(with-temp-buffer
|
||||||
|
(insert "\"\"\"Triple-quoted string\"\"\"")
|
||||||
|
(goto-char (point-min))
|
||||||
|
(let ((python-indent-guess-indent-offset nil))
|
||||||
|
(python-mode))
|
||||||
|
(forward-sexp)
|
||||||
|
(should (eobp))))
|
||||||
|
|
||||||
|
(ert-deftest lisp-forward-sexp-python-triple-quotes-string ()
|
||||||
|
"Test \\[forward-sexp] on Python doc strings for #11321."
|
||||||
|
(with-temp-buffer
|
||||||
|
(insert "'''Triple-quoted string'''")
|
||||||
|
(goto-char (point-min))
|
||||||
|
(let ((python-indent-guess-indent-offset nil))
|
||||||
|
(python-mode))
|
||||||
|
(forward-sexp)
|
||||||
|
(should (eobp))))
|
||||||
|
|
||||||
|
(ert-deftest lisp-forward-sexp-emacs-lisp-semi-char-error ()
|
||||||
|
"Test \\[forward-sexp] on expression with unquoted semicolon per #4030."
|
||||||
|
(with-temp-buffer
|
||||||
|
(emacs-lisp-mode)
|
||||||
|
(insert "(insert ?;)")
|
||||||
|
(goto-char (point-min))
|
||||||
|
(should-error (forward-sexp)))) ;; FIXME: Shouldn't be an error.
|
||||||
|
|
||||||
|
(ert-deftest lisp-forward-sexp-emacs-lisp-quote-char ()
|
||||||
|
"Test \\[forward-sexp] on expression with unquoted quote per #4030."
|
||||||
|
(with-temp-buffer
|
||||||
|
(emacs-lisp-mode)
|
||||||
|
(insert "(insert ?\")")
|
||||||
|
(goto-char (point-min))
|
||||||
|
(should-error (forward-sexp)))) ;; FIXME: Shouldn't be an error.
|
||||||
|
|
||||||
|
(provide 'lisp-tests)
|
||||||
|
;;; lisp-tests.el ends here
|
||||||
Loading…
Reference in New Issue
Block a user