Subject: bug#44834: Patch to provide failing test for bug 44834

From: Anticrisis <[email-masked]>
Date: Sun, 10 Jan 2021 08:41:33 -1000

Trying again with an attachment, thank you for the suggestion.
--- emacs/test/lisp/progmodes/tcl-tests.el	2021-01-01 22:11:30.620000000 -1000
+++ emacs.patched/test/lisp/progmodes/tcl-tests.el	2021-01-08 12:51:27.420000000 -1000
@@ -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")
@@ -71,6 +71,15 @@
       (insert text)
       (indent-region (point-min) (point-max))
       (should (equal (buffer-string) text)))))
+
+;; From bug#44834
+(ert-deftest tcl-mode-namespace-indent-2 ()
+  (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)