From: Juanma Barranquero <lekktu@gmail.com>
Date: Fri, 13 Nov 2015 13:09:35 +0000 (+0100)
Subject: * test/automated/simple-test.el: Add test for bug#20698 (bug#21885)
X-Git-Tag: emacs-25.0.90~810
X-Git-Url: https://code.delx.au/gnu-emacs/commitdiff_plain/93e7db13d60ea04b3b32cdd4bf0de7a4cda25021

* test/automated/simple-test.el: Add test for bug#20698 (bug#21885)

(simple-test--transpositions): New macro.
(simple-transpose-subr): New test.

Backport.
---

diff --git a/test/automated/simple-test.el b/test/automated/simple-test.el
index 86c9fc2e76..07b5eaa93e 100644
--- a/test/automated/simple-test.el
+++ b/test/automated/simple-test.el
@@ -34,6 +34,17 @@
            (buffer-substring (point) (point-max)))))
 
 
+(defmacro simple-test--transpositions (&rest body)
+  (declare (indent 0)
+           (debug t))
+  `(with-temp-buffer
+     (emacs-lisp-mode)
+     (insert "(s1) (s2) (s3) (s4) (s5)")
+     (backward-sexp 1)
+     ,@body
+     (cons (buffer-substring (point-min) (point))
+           (buffer-substring (point) (point-max)))))
+
 
 ;;; `newline'
 (ert-deftest newline ()
@@ -233,6 +244,12 @@
      (car buffer-undo-list)
      (undo-auto--boundaries 'test))))
 
+;;; Transposition with negative args (bug#20698, bug#21885)
+(ert-deftest simple-transpose-subr ()
+  (should (equal (simple-test--transpositions (transpose-sexps -1))
+                 '("(s1) (s2) (s4)" . " (s3) (s5)")))
+  (should (equal (simple-test--transpositions (transpose-sexps -2))
+                 '("(s1) (s4)" . " (s2) (s3) (s5)"))))
 
 
 (provide 'simple-test)