summaryrefslogtreecommitdiff
path: root/llm-tools-hl-test.el
blob: 4bc0fa0361953596377fa25e96270a4f8eaf70b6 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
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))))