diff options
author | Andrea Corallo <akrl@sdf.org> | 2020-09-26 15:31:50 +0200 |
---|---|---|
committer | Andrea Corallo <akrl@sdf.org> | 2020-09-26 15:31:50 +0200 |
commit | 06acf681d6fd8e2c5c6a9584b5df6b98eccda20b (patch) | |
tree | 5cc7132156db6b77599a86072de21a036828bcf4 /test/lisp/emacs-lisp/lisp-tests.el | |
parent | e5b052d60d905209c6cefcf18c620167ed946301 (diff) | |
parent | e00936bf9f10cf44e1df71a7a11afd770e8a122a (diff) | |
download | emacs-06acf681d6fd8e2c5c6a9584b5df6b98eccda20b.tar.gz emacs-06acf681d6fd8e2c5c6a9584b5df6b98eccda20b.tar.bz2 emacs-06acf681d6fd8e2c5c6a9584b5df6b98eccda20b.zip |
Merge remote-tracking branch 'savannah/master' into HEAD
Diffstat (limited to 'test/lisp/emacs-lisp/lisp-tests.el')
-rw-r--r-- | test/lisp/emacs-lisp/lisp-tests.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/test/lisp/emacs-lisp/lisp-tests.el b/test/lisp/emacs-lisp/lisp-tests.el index a2b8304c96a..437b907ba13 100644 --- a/test/lisp/emacs-lisp/lisp-tests.el +++ b/test/lisp/emacs-lisp/lisp-tests.el @@ -136,8 +136,7 @@ (text-mode) (insert "\"foo\"") (goto-char (point-min)) - (delete-pair) - (should (string-equal "fo\"" (buffer-string))))) + (should-error (delete-pair)))) (ert-deftest lisp-delete-pair-quotes-text-mode-syntax-table () "Test \\[delete-pair] with modified Text Mode syntax for #15014." @@ -296,7 +295,7 @@ (lambda () (up-list 1 t t)) (or "(1 '2 ( 2' 1 '2 ) 2' 1)") ;; abcdefghijklmnopqrstuvwxy - i k x scan-error) + i k x user-error) (define-lisp-up-list-test backward-up-list-basic (lambda () (backward-up-list)) |