1 files changed, 179 insertions, 1 deletions

diff --git a/llm-tools-hl-test.el b/llm-tools-hl-test.el
index 4bc0fa0..85777c8 100644
--- a/llm-tools-hl-test.el
+++ b/llm-tools-hl-test.el
@@ -2,7 +2,7 @@
 (require 'llm-tools-hl)
 
 (ert-deftest llm-tools--hl-file-read-test ()
-  "Test that 'llm-tools--hl-file-read'  produces correct hashline format."
+  "Test that 'llm-tools--hl-file-read' produces correct hashline format."
   (let* ((content "\
 const TITLE = \"Mr\";
 export function greet(name) {
@@ -23,3 +23,181 @@ export function greet(name) {
     (unwind-protect
         (should (equal actual expected))
       (delete-file file))))
+
+(ert-deftest llm-tools--hl-anchor-to-line-num-test ()
+  (should (= (llm-tools--hl-anchor-to-line-num "5ff") 5))
+  (should (= (llm-tools--hl-anchor-to-line-num "123ab") 123))
+  (should (= (llm-tools--hl-anchor-to-line-num "1vx") 1)))
+
+(ert-deftest llm-tools--hl-parse-section-single-replace ()
+  (let ((section "= 1vx..1vx\n~const TITLE = \"Mrs\";"))
+    (should (= (length (llm-tools--hl-parse-section section)) 1))
+    (let ((op (car (llm-tools--hl-parse-section section))))
+      (should (eq (hl-op-type op) 'replace))
+      (should (equal (hl-op-range op) '("1vx" "1vx")))
+      (should (equal (hl-op-payload op) '("const TITLE = \"Mrs\";"))))))
+
+(ert-deftest llm-tools--hl-parse-section-multi-line-payload ()
+  (let ((section "= 3gv..6be\n~\treturn [\n~\t\t\"Mrs\",\n~\t\tname?.trim() || \"guest\",\n~\t].join(\" \");"))
+    (let ((op (car (llm-tools--hl-parse-section section))))
+      (should (= (length (hl-op-payload op)) 4)))))
+
+(ert-deftest llm-tools--hl-parse-section-blank-replace ()
+  "Replace with no payload should produce nil payload, not empty list."
+  (let ((section "= 5ff..5ff"))
+    (let ((op (car (llm-tools--hl-parse-section section))))
+      (should (eq (hl-op-type op) 'replace))
+      (should (null (hl-op-payload op))))))
+
+(ert-deftest llm-tools--hl-parse-section-insert-after ()
+  (let ((section "+ 4ei\n~\t\t\"Dr\","))
+    (let ((op (car (llm-tools--hl-parse-section section))))
+      (should (eq (hl-op-type op) 'insert-after))
+      (should (string= (hl-op-anchor op) "4ei"))
+      (should (equal (hl-op-payload op) '("\t\t\"Dr\","))))))
+
+(ert-deftest llm-tools--hl-parse-section-insert-before ()
+  (let ((section "< 5ff\n~\t\t\"Dr\","))
+    (let ((op (car (llm-tools--hl-parse-section section))))
+      (should (eq (hl-op-type op) 'insert-before))
+      (should (string= (hl-op-anchor op) "5ff")))))
+
+(ert-deftest llm-tools--hl-parse-section-delete ()
+  (let ((section "- 5ff..5ff"))
+    (let ((op (car (llm-tools--hl-parse-section section))))
+      (should (eq (hl-op-type op) 'delete))
+      (should (equal (hl-op-range op) '("5ff" "5ff"))))))
+
+(ert-deftest llm-tools--hl-parse-section-skip-comments-and-blanks ()
+  (let ((section "# comment\n\n+ 4ei\n~line"))
+    (should (= (length (llm-tools--hl-parse-section section)) 1))))
+
+(ert-deftest llm-tools--hl-parse-section-multiple-ops ()
+  "Two separate insert ops in one section."
+  (let ((section "+ 4ei\n~first\n< 5ff\n~second"))
+    (let ((ops (llm-tools--hl-parse-section section)))
+      (should (= (length ops) 2))
+      (should (eq (hl-op-type (car ops)) 'insert-after))
+      (should (eq (hl-op-type (cadr ops)) 'insert-before)))))
+
+(ert-deftest llm-tools--hl-apply-replace-single-line ()
+  (let* ((content "line1\nline2\nline3\n")
+         (file (make-temp-file nil nil nil content))
+         (patch (format "@@ test\n= 2%s..2%s\n~REPLACED" (elt 1 (llm-tools--hl-hash (string-lines content))))))
+    (unwind-protect
+        (progn
+          (llm-tools--hl-apply patch)
+          (should (string= (llm-tools--hl-file-read file)
+                           (string-join
+                            (list (format "1%s|line1" (llm-tools--hl-hash "line1"))
+                                  (format "2%s|REPLACED" (llm-tools--hl-hash "REPLACED"))
+                                  (format "3%s|line3" (llm-tools--hl-hash "line3")))
+                            "\n"))))
+      (delete-file file))))
+
+(ert-deftest llm-tools--hl-apply-insert-after ()
+  (let* ((content "A\nB\nC\n")
+         (file (make-temp-file nil nil nil content))
+         (anchor (format "+ %s" (llm-tools--hl-file-line-hash file 1)))
+         (patch (concat "@@ test\n" anchor "\n~NEW")))
+    (unwind-protect
+        (progn
+          (llm-tools--hl-apply patch)
+          (let ((lines (llm-tools--hl-file-lines file)))
+            (should (equal lines '("A" "NEW" "B" "C")))))
+      (delete-file file))))
+
+(ert-deftest llm-tools--hl-apply-insert-before ()
+  (let* ((content "A\nB\nC\n")
+         (file (make-temp-file nil nil nil content))
+         (anchor (format "< %s" (llm-tools--hl-file-line-hash file 3)))
+         (patch (concat "@@ test\n" anchor "\n~NEW")))
+    (unwind-protect
+        (progn
+          (llm-tools--hl-apply patch)
+          (let ((lines (llm-tools--hl-file-lines file)))
+            (should (equal lines '("A" "B" "NEW" "C")))))
+      (delete-file file))))
+
+(ert-deftest llm-tools--hl-apply-append-to-eof ()
+  (let* ((content "A\nB\n")
+         (file (make-temp-file nil nil nil content))
+         (patch "@@ test\n+ EOF\n~APPENDED"))
+    (unwind-protect
+        (progn
+          (llm-tools--hl-apply patch)
+          (let ((lines (llm-tools--hl-file-lines file)))
+            (should (equal lines '("A" "B" "APPENDED")))))
+      (delete-file file))))
+
+(ert-deftest llm-tools--hl-apply-delete ()
+  (let* ((content "A\nB\nC\n")
+         (file (make-temp-file nil nil nil content))
+         (anchor (llm-tools--hl-file-line-hash file 2))
+         (patch (format "@@ test\n- 2%s..2%s" anchor anchor)))
+    (unwind-protect
+        (progn
+          (llm-tools--hl-apply patch)
+          (let ((lines (llm-tools--hl-file-lines file)))
+            (should (equal lines '("A" "C")))))
+      (delete-file file))))
+
+(ert-deftest llm-tools--hl-apply-blank-line ()
+  "Replace with no payload produces a blank line."
+  (let* ((content "A\nB\nC\n")
+         (file (make-temp-file nil nil nil content))
+         (anchor (llm-tools--hl-file-line-hash file 2))
+         (patch (format "@@ test\n= 2%s..2%s" anchor anchor)))
+    (unwind-protect
+        (progn
+          (llm-tools--hl-apply patch)
+          (let ((lines (llm-tools--hl-file-lines file)))
+            (should (equal lines '("A" "" "C")))))
+      (delete-file file))))
+
+(ert-deftest llm-tools--hl-apply-offset-tracking ()
+  "Multiple ops in one file: verify offset adjusts subsequent line numbers."
+  (let* ((content "A\nB\nC\nD\nE\n")
+         (file (make-temp-file nil nil nil content))
+         (a1 (llm-tools--hl-file-line-hash file 1))
+         (a3 (llm-tools--hl-file-line-hash file 3))
+         ;; Insert 2 lines after line 1, then delete original line 3
+         (patch (format "@@ test\n+ 1%s\n~X\n~Y\n- 3%s..3%s" a1 a3 a3)))
+    (unwind-protect
+        (progn
+          (llm-tools--hl-apply patch)
+          ;; After insert: A X Y B C D E  (offset = +2)
+          ;; Original line 3 (C) is now at index 5 (1-based). Delete it.
+          ;; Result: A X Y B D E
+          (let ((lines (llm-tools--hl-file-lines file)))
+            (should (equal lines '("A" "X" "Y" "B" "D" "E")))))
+      (delete-file file))))
+
+(ert-deftest llm-tools--hl-apply-multi-file ()
+  "Two files in one patch both get modified."
+  (let* ((file1 (make-temp-file nil nil nil "A\nB\n"))
+         (file2 (make-temp-file nil nil nil "X\nY\n"))
+         (a1 (llm-tools--hl-file-line-hash file1 1))
+         (a2 (llm-tools--hl-file-line-hash file2 2))
+         (patch (format "@@ %s\n+ 1%s\n~NEW1\n@@ %s\n= 2%s..2%s\n~NEW2"
+                        file1 a1 file2 a2 a2)))
+    (unwind-protect
+        (progn
+          (llm-tools--hl-apply patch)
+          (should (equal (llm-tools--hl-file-lines file1) '("A" "NEW1" "B")))
+          (should (equal (llm-tools--hl-file-lines file2) '("X" "NEW2"))))
+      (delete-file file1)
+      (delete-file file2))))
+
+(ert-deftest llm-tools--hl-apply-multi-line-payload ()
+  "Replace with many payload lines."
+  (let* ((content "A\nB\n")
+         (file (make-temp-file nil nil nil content))
+         (a1 (llm-tools--hl-file-line-hash file 1))
+         (patch (format "@@ test\n= 1%s..1%s\n~ONE\n~TWO\n~THREE" a1 a1)))
+    (unwind-protect
+        (progn
+          (llm-tools--hl-apply patch)
+          (let ((lines (llm-tools--hl-file-lines file)))
+            (should (equal lines '("ONE" "TWO" "THREE" "B")))))
+      (delete-file file))))