1 files changed, 147 insertions, 0 deletions
diff --git a/tests/test-restclient-config-inject-skyfi-key.el b/tests/test-restclient-config-inject-skyfi-key.el
new file mode 100644
index 00000000..d471b913
--- /dev/null
+++ b/tests/test-restclient-config-inject-skyfi-key.el
@@ -0,0 +1,147 @@
+;;; test-restclient-config-inject-skyfi-key.el --- Tests for cj/restclient--inject-skyfi-key -*- lexical-binding: t; -*-
+
+;;; Commentary:
+;; Unit tests for cj/restclient--inject-skyfi-key function.
+;; Replaces the :skyfi-key placeholder in a restclient buffer with the real
+;; API key from authinfo. Tests cover Normal, Boundary, and Error cases.
+
+;;; Code:
+
+(when noninteractive
+  (package-initialize))
+
+(require 'ert)
+(require 'restclient-config)
+
+;; ---------------------------------------------------------------------------
+;; Test Helpers
+;; ---------------------------------------------------------------------------
+
+(defvar test-inject--fake-key "sk_test_fake_key_12345"
+  "Fake API key used in tests.")
+
+(defmacro test-inject--with-skyfi-buffer (content &rest body)
+  "Create a temp buffer with CONTENT simulating skyfi-api.rest, then run BODY.
+Sets buffer-file-name to skyfi-api.rest and activates restclient-mode.
+Binds `cj/skyfi-api-key' to return `test-inject--fake-key'."
+  (declare (indent 1))
+  `(with-temp-buffer
+     (insert ,content)
+     (setq buffer-file-name (expand-file-name "data/skyfi-api.rest" user-emacs-directory))
+     (restclient-mode)
+     (cl-letf (((symbol-function 'cj/skyfi-api-key)
+                (lambda () test-inject--fake-key)))
+       ,@body)))
+
+;; ---------------------------------------------------------------------------
+;;; Normal Cases
+;; ---------------------------------------------------------------------------
+
+(ert-deftest test-inject-skyfi-key-replaces-placeholder ()
+  "Replaces :skyfi-key = PLACEHOLDER with real key."
+  (test-inject--with-skyfi-buffer
+      ":skyfi-key = PLACEHOLDER\n#\nGET https://example.com\n"
+    (cj/restclient--inject-skyfi-key)
+    (goto-char (point-min))
+    (should (string-match-p (format ":skyfi-key = %s" test-inject--fake-key)
+                            (buffer-string)))))
+
+(ert-deftest test-inject-skyfi-key-preserves-other-content ()
+  "Rest of buffer content unchanged after injection."
+  (let ((rest-content "# SkyFi API\nGET https://app.skyfi.com/platform-api/\nAPIKey: :skyfi-key\n"))
+    (test-inject--with-skyfi-buffer
+        (concat ":skyfi-key = PLACEHOLDER\n" rest-content)
+      (cj/restclient--inject-skyfi-key)
+      (should (string-match-p "# SkyFi API" (buffer-string)))
+      (should (string-match-p "APIKey: :skyfi-key" (buffer-string))))))
+
+(ert-deftest test-inject-skyfi-key-only-replaces-skyfi-key-line ()
+  "Does not modify other restclient variable lines."
+  (test-inject--with-skyfi-buffer
+      ":skyfi-key = PLACEHOLDER\n:other-var = keep-me\n"
+    (cj/restclient--inject-skyfi-key)
+    (should (string-match-p ":other-var = keep-me" (buffer-string)))))
+
+;; ---------------------------------------------------------------------------
+;;; Boundary Cases
+;; ---------------------------------------------------------------------------
+
+(ert-deftest test-inject-skyfi-key-no-key-line-no-error ()
+  "Buffer with no :skyfi-key line — no change, no error."
+  (test-inject--with-skyfi-buffer
+      "# Just comments\nGET https://example.com\n"
+    (let ((before (buffer-string)))
+      (cj/restclient--inject-skyfi-key)
+      (should (string= before (buffer-string))))))
+
+(ert-deftest test-inject-skyfi-key-already-has-value ()
+  "Buffer where :skyfi-key already has a real value — still replaces (idempotent)."
+  (test-inject--with-skyfi-buffer
+      ":skyfi-key = old_real_key_abc\n"
+    (cj/restclient--inject-skyfi-key)
+    (should (string-match-p (format ":skyfi-key = %s" test-inject--fake-key)
+                            (buffer-string)))))
+
+(ert-deftest test-inject-skyfi-key-empty-buffer ()
+  "Empty buffer — no error."
+  (test-inject--with-skyfi-buffer ""
+    (cj/restclient--inject-skyfi-key)
+    (should (string= "" (buffer-string)))))
+
+(ert-deftest test-inject-skyfi-key-only-first-occurrence ()
+  "Multiple :skyfi-key lines — only first replaced."
+  (test-inject--with-skyfi-buffer
+      ":skyfi-key = PLACEHOLDER\n:skyfi-key = SECOND\n"
+    (cj/restclient--inject-skyfi-key)
+    (let ((content (buffer-string)))
+      (should (string-match-p (format ":skyfi-key = %s" test-inject--fake-key) content))
+      (should (string-match-p ":skyfi-key = SECOND" content)))))
+
+;; ---------------------------------------------------------------------------
+;;; Error Cases
+;; ---------------------------------------------------------------------------
+
+(ert-deftest test-inject-skyfi-key-wrong-mode-no-replacement ()
+  "Wrong major mode — no replacement happens."
+  (with-temp-buffer
+    (insert ":skyfi-key = PLACEHOLDER\n")
+    (setq buffer-file-name (expand-file-name "data/skyfi-api.rest" user-emacs-directory))
+    (fundamental-mode)
+    (let ((before (buffer-string)))
+      (cj/restclient--inject-skyfi-key)
+      (should (string= before (buffer-string))))))
+
+(ert-deftest test-inject-skyfi-key-wrong-filename-no-replacement ()
+  "Wrong filename — no replacement happens."
+  (with-temp-buffer
+    (insert ":skyfi-key = PLACEHOLDER\n")
+    (setq buffer-file-name "/tmp/other-file.rest")
+    (restclient-mode)
+    (let ((before (buffer-string)))
+      (cj/restclient--inject-skyfi-key)
+      (should (string= before (buffer-string))))))
+
+(ert-deftest test-inject-skyfi-key-no-filename-no-replacement ()
+  "No filename (scratch buffer) — no replacement happens."
+  (with-temp-buffer
+    (insert ":skyfi-key = PLACEHOLDER\n")
+    (restclient-mode)
+    (setq buffer-file-name nil)
+    (let ((before (buffer-string)))
+      (cj/restclient--inject-skyfi-key)
+      (should (string= before (buffer-string))))))
+
+(ert-deftest test-inject-skyfi-key-auth-returns-nil-no-error ()
+  "Auth-source returns nil — no error, no replacement."
+  (with-temp-buffer
+    (insert ":skyfi-key = PLACEHOLDER\n")
+    (setq buffer-file-name (expand-file-name "data/skyfi-api.rest" user-emacs-directory))
+    (restclient-mode)
+    (cl-letf (((symbol-function 'cj/skyfi-api-key)
+               (lambda () nil)))
+      (let ((before (buffer-string)))
+        (cj/restclient--inject-skyfi-key)
+        (should (string= before (buffer-string)))))))
+
+(provide 'test-restclient-config-inject-skyfi-key)
+;;; test-restclient-config-inject-skyfi-key.el ends here