add unit test for hl-file-read

1 files changed, 25 insertions, 0 deletions

diff --git a/llm-tools-hl-test.el b/llm-tools-hl-test.el
new file mode 100644
index 0000000..4bc0fa0
--- /dev/null
+++ b/llm-tools-hl-test.el
@@ -0,0 +1,25 @@
+(require 'ert)
+(require 'llm-tools-hl)
+
+(ert-deftest llm-tools--hl-file-read-test ()
+  "Test that 'llm-tools--hl-file-read'  produces correct hashline format."
+  (let* ((content "\
+const TITLE = \"Mr\";
+export function greet(name) {
+        return [
+              TITLE,
+              name?.trim() || \"guest\",
+        ].join(\" \");
+}")
+         (file (make-temp-file nil nil nil content))
+         (actual (llm-tools--hl-file-read file))
+         (expected "1vx|const TITLE = \"Mr\";
+2in|export function greet(name) {
+3gv|    return [
+4ei|                  TITLE,
+5ff|          name?.trim() || \"guest\",
+6cc|    ].join(" ");
+7gv|}"))
+    (unwind-protect
+        (should (equal actual expected))
+      (delete-file file))))