procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
(simple-test--transpositions): New macro.
(simple-transpose-subr): New test.
This commit is contained in:
Juanma Barranquero 2015-11-13 14:09:35 +01:00
parent 2b4c0c0cef
commit a731c2f163
1 changed files with 17 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
test/automated/simple-test.el
View file

@ -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)