From 1d1fc383546426ad0bce70bcb08e0819709a444e Mon Sep 17 00:00:00 2001
From: John Doty <john.doty@databricks.com>
Date: Thu, 22 May 2025 18:57:22 +0000
Subject: [PATCH] [emacs] A test

---
 site-lisp/doty-tools.el | 19 ++++++++++++++++++-
 1 file changed, 18 insertions(+), 1 deletion(-)

diff --git a/site-lisp/doty-tools.el b/site-lisp/doty-tools.el
index 322548d..f4095d2 100644
--- a/site-lisp/doty-tools.el
+++ b/site-lisp/doty-tools.el
@@ -710,7 +710,7 @@ If AT-END is non-nil, insert at end of line, otherwise at beginning."
           :description "Buffer name or file path")
          (:name "line_number"
           :type integer
-          :description "Line to insert at")
+          :description "1-based index of line to insert at")
          (:name "text"
           :type string
           :description "Text to insert")
@@ -722,6 +722,23 @@ If AT-END is non-nil, insert at end of line, otherwise at beginning."
  :confirm t
  :include t)
 
+(ert-deftest doty-tools--test--emacs_insert_line ()
+  "Tests for the emacs_insert_line tool."
+  (with-temp-buffer
+    (doty-tools--test--invoke-tool
+     "emacs_insert_at_line" (list :buffer_or_file (buffer-name)
+                                  :line_number 1
+                                  :text "Hello"))
+    (should (equal "Hello" (buffer-string)))
+
+    (doty-tools--test--invoke-tool
+     "emacs_insert_at_line" (list :buffer_or_file (buffer-name)
+                                  :line_number 1
+                                  :text " world!"
+                                  :at_end t))
+
+    (should (equal "Hello world!" (buffer-string)))))
+
 (defun doty-tools--replace-text (buffer-or-file from-text to-text use-regex replace-all)
   "Replace occurrences of FROM-TEXT with TO-TEXT in BUFFER-OR-FILE.
 If USE-REGEX is non-nil, treat FROM-TEXT as a regular expression.