From: Paul Eggert <eggert@cs.ucla.edu>
Date: Tue, 7 Jun 2016 16:34:27 +0000 (-0700)
Subject: Merge from origin/emacs-25
X-Git-Tag: emacs-26.0.90~1842^2~15
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5feeead12693cd97c6d77b14ef05d29ba5cf18bb;p=emacs.git

Merge from origin/emacs-25

604f656 * test/automated/viper-tests.el (viper-test-undo-kmacro): Del...
20eb531 * lisp/mail/footnote.el (footnote-mode): Fix doc typo.
a7a2244 * doc/misc/smtpmail.texi (Encryption): Fix 2012-12-22 typo.
07bd972 * lisp/emacs-lisp/lisp-mode.el (lisp--mode-syntax-table): Fix...
---

5feeead12693cd97c6d77b14ef05d29ba5cf18bb
diff --cc test/lisp/emulation/viper-tests.el
index e2c39b3c3de,00000000000..074dd637538
mode 100644,000000..100644
--- a/test/lisp/emulation/viper-tests.el
+++ b/test/lisp/emulation/viper-tests.el
@@@ -1,160 -1,0 +1,161 @@@
 +;;; viper-tests.el --- tests for viper.
 +
 +;; Copyright (C) 2016 Free Software Foundation, Inc.
 +
 +;; This file is part of GNU Emacs.
 +
 +;; 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:
 +
 +;;; Code:
 +
 +
 +(require 'viper)
 +
 +(defun viper-test-undo-kmacro (kmacro)
 +  "In a clean viper buffer, run KMACRO and return `buffer-string'.
 +
 +This function makes as many attempts as possible to clean up
 +after itself, although it will leave a buffer called
 +*viper-test-buffer* if it fails (this is deliberate!)."
 +  (let (
 +        ;; Viper just turns itself off during batch use.
 +        (noninteractive nil)
 +        ;; Switch off start up message or it will chew the key presses.
 +        (viper-inhibit-startup-message 't)
 +        ;; Select an expert-level for the same reason.
 +        (viper-expert-level 5)
 +        ;; viper loads this even with -q so make sure it's empty!
 +        (viper-custom-file-name (make-temp-file "viper-tests"))
 +        (before-buffer (current-buffer)))
 +    (unwind-protect
 +        (progn
 +          ;; viper-mode is essentially global, so set it here.
 +          (viper-mode)
 +          ;; We must switch to buffer because we are using a keyboard macro
 +          ;; which appears to not go to the current-buffer but what ever is
 +          ;; currently taking keyboard events. We use a named buffer because
 +          ;; then we can see what it in it if it all goes wrong.
 +          (switch-to-buffer
 +           (get-buffer-create
 +            "*viper-test-buffer*"))
 +          (erase-buffer)
 +          ;; The new buffer fails to enter vi state so set it.
 +          (viper-change-state-to-vi)
 +          ;; Run the macro.
 +          (execute-kbd-macro kmacro)
 +          (let ((rtn
 +                 (buffer-substring-no-properties
 +                  (point-min)
 +                  (point-max))))
 +            ;; Kill the buffer iff the macro succeeds.
 +            (kill-buffer)
 +            rtn))
 +      ;; Switch everything off and restore the buffer.
 +      (toggle-viper-mode)
++      (delete-file viper-custom-file-name)
 +      (switch-to-buffer before-buffer))))
 +
 +(ert-deftest viper-test-go ()
 +  "Test that this file is running."
 +  (should t))
 +
 +(ert-deftest viper-test-fix ()
 +  "Test that the viper kmacro fixture is working."
 +  (should
 +   (viper-test-undo-kmacro [])))
 +
 +(ert-deftest viper-test-undo-1 ()
 +  "Test for VI like undo behaviour.
 +
 +Insert 1, then 2 on consecutive lines, followed by undo. This
 +should leave just 1 in the buffer.
 +
 +Test for Bug #22295"
 +  (should
 +   (equal
 +    "1\n"
 +    (viper-test-undo-kmacro
 +     [
 +      ?a
 +      ?1
 +      escape
 +      ?o
 +      ?2
 +      escape
 +      ?u
 +      ]
 +     ))))
 +
 +(ert-deftest viper-test-undo-2 ()
 +  "Test for VI like undo behaviour.
 +
 +Insert \"1 2 3 4 5\" then delete the 2, then the 4, and undo.
 +Should restore the 4, but leave the 2 deleted.
 +
 +Test for Bug #22295"
 +  (should
 +   (equal
 +    "1 3 4 5\n"
 +    (viper-test-undo-kmacro
 +     [
 +      ?i
 +      ?1 ?  ?2 ?  ?3 ?  ?4 ?  ?5
 +      escape
 +      ?F ?2 ?d ?w
 +      ?w ?d ?w
 +      ?u
 +      ]))))
 +
 +(ert-deftest viper-test-undo-3 ()
 +  "Test for VI like undo behaviour.
 +
 +Insert \"1 2 3 4 5 6\", delete the 2, then the 3 4 and 5.
 +Should restore the 3 4 and 5 but not the 2.
 +
 +Test for Bug #22295"
 +  (should
 +   (equal
 +    "1 3 4 5 6\n"
 +    (viper-test-undo-kmacro
 +     [
 +      ;; Insert this lot.
 +      ?i ?1 ? ?2 ? ?3 ? ?4 ? ?5 ? ?6
 +         escape
 +         ;; Start of line.
 +         ?0
 +         ;; Move to 2, delete
 +         ?w ?d ?w
 +         ;; Delete 3 4 5
 +         ?. ?. ?.
 +         ;; Undo del 5, then
 +         ?u ?. ?.
 +         ]))))
 +
 +
 +(ert-deftest viper-test-undo-4()
 +  (should
 +   (equal
 +    ""
 +    (viper-test-undo-kmacro
 +     [
 +      ?i ?1 escape
 +         ?o ?2 escape
 +         ?o ?3 escape
 +         ?u ?. ?.
 +         ])
 +    )))
 +
 +;;; viper-tests.el ends here