mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Add a failing test for bug#44834

Browse source 
* test/lisp/progmodes/tcl-tests.el (tcl-mode-namespace-indent-2):
New, failing test (bug#44834).
(tcl-mode-function-name-2):
(tcl-mode-function-name-3): Fix names of the tests so that they're
actually run.

Copyright-paperwork-exempt: yes
This commit is contained in:
Anticrisis 2021-01-11 16:16:50 +01:00 • committed by Lars Ingebrigtsen
parent 42e72f4ade
commit 26ed7c7345
1 changed files with 12 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

14
test/lisp/progmodes/tcl-tests.el
View file

@ -50,14 +50,14 @@
(insert "proc notinthis {} {\n # nothing\n}\n\n")
(should-not (add-log-current-defun))))
(ert-deftest tcl-mode-function-name ()
(ert-deftest tcl-mode-function-name-2 ()
(with-temp-buffer
(tcl-mode)
(insert "proc simple {} {\n # nothing\n}")
(backward-char 3)
(should (equal "simple" (add-log-current-defun)))))
(ert-deftest tcl-mode-function-name ()
(ert-deftest tcl-mode-function-name-3 ()
(with-temp-buffer
(tcl-mode)
(insert "proc inthis {} {\n # nothing\n")
@ -72,6 +72,16 @@
(indent-region (point-min) (point-max))
(should (equal (buffer-string) text)))))
;; From bug#44834
(ert-deftest tcl-mode-namespace-indent-2 ()
:expected-result :failed
(with-temp-buffer
(tcl-mode)
(let ((text "namespace eval Foo {\n proc foo {} {}\n\n proc bar {}{}}\n"))
(insert text)
(indent-region (point-min) (point-max))
(should (equal (buffer-string) text)))))
(provide 'tcl-tests)
;;; tcl-tests.el ends here