1 files changed, 161 insertions, 0 deletions
diff --git a/tests/test-hugo-config-toggle-draft.el b/tests/test-hugo-config-toggle-draft.el
new file mode 100644
index 00000000..2e75a7c9
--- /dev/null
+++ b/tests/test-hugo-config-toggle-draft.el
@@ -0,0 +1,161 @@
+;;; test-hugo-config-toggle-draft.el --- Tests for cj/hugo-toggle-draft -*- lexical-binding: t; -*-
+
+;;; Commentary:
+;; Tests for the cj/hugo-toggle-draft function from hugo-config.el
+;;
+;; This function toggles the #+hugo_draft keyword between "true" and "false"
+;; in the current buffer, using regex search and replace-match.
+;;
+;; We test the buffer manipulation logic directly using temp buffers,
+;; mocking only save-buffer to avoid file I/O.
+
+;;; Code:
+
+(require 'ert)
+
+;; Add modules directory to load path
+(add-to-list 'load-path (expand-file-name "modules" user-emacs-directory))
+
+;; Stub dependencies before loading the module
+(unless (boundp 'website-dir)
+  (defvar website-dir "/tmp/test-website/"))
+(unless (fboundp 'env-macos-p)
+  (defun env-macos-p () nil))
+(unless (fboundp 'env-windows-p)
+  (defun env-windows-p () nil))
+
+(require 'hugo-config)
+
+;;; Test Helpers
+
+(defun test-hugo-toggle-draft-in-buffer (content)
+  "Run cj/hugo-toggle-draft on buffer with CONTENT.
+Returns the buffer string after toggling.  Mocks save-buffer."
+  (with-temp-buffer
+    (insert content)
+    (cl-letf (((symbol-function 'save-buffer) #'ignore))
+      (cj/hugo-toggle-draft))
+    (buffer-string)))
+
+(defconst test-hugo-draft-true-post
+  "#+hugo_base_dir: ../../
+#+hugo_section: log
+#+hugo_auto_set_lastmod: t
+#+title: Test Post
+#+date: 2026-02-14
+#+hugo_tags: test
+#+hugo_draft: true
+#+hugo_custom_front_matter: :description \"A test post.\"
+
+Some content here.
+"
+  "Sample post with draft set to true.")
+
+(defconst test-hugo-draft-false-post
+  "#+hugo_base_dir: ../../
+#+hugo_section: log
+#+hugo_auto_set_lastmod: t
+#+title: Test Post
+#+date: 2026-02-14
+#+hugo_tags: test
+#+hugo_draft: false
+#+hugo_custom_front_matter: :description \"A test post.\"
+
+Some content here.
+"
+  "Sample post with draft set to false.")
+
+;;; Normal Cases
+
+(ert-deftest test-hugo-config-toggle-draft-normal-true-to-false ()
+  "Should toggle draft from true to false."
+  (let ((result (test-hugo-toggle-draft-in-buffer test-hugo-draft-true-post)))
+    (should (string-match-p "#\\+hugo_draft: false" result))
+    (should-not (string-match-p "#\\+hugo_draft: true" result))))
+
+(ert-deftest test-hugo-config-toggle-draft-normal-false-to-true ()
+  "Should toggle draft from false to true."
+  (let ((result (test-hugo-toggle-draft-in-buffer test-hugo-draft-false-post)))
+    (should (string-match-p "#\\+hugo_draft: true" result))
+    (should-not (string-match-p "#\\+hugo_draft: false" result))))
+
+(ert-deftest test-hugo-config-toggle-draft-normal-preserves-other-content ()
+  "Should not modify any other lines in the buffer."
+  (let ((result (test-hugo-toggle-draft-in-buffer test-hugo-draft-true-post)))
+    (should (string-match-p "#\\+title: Test Post" result))
+    (should (string-match-p "#\\+hugo_tags: test" result))
+    (should (string-match-p "Some content here\\." result))))
+
+(ert-deftest test-hugo-config-toggle-draft-normal-roundtrip ()
+  "Toggling twice should return to original state."
+  (let* ((first (test-hugo-toggle-draft-in-buffer test-hugo-draft-true-post))
+         (second (with-temp-buffer
+                   (insert first)
+                   (cl-letf (((symbol-function 'save-buffer) #'ignore))
+                     (cj/hugo-toggle-draft))
+                   (buffer-string))))
+    (should (string= second test-hugo-draft-true-post))))
+
+;;; Boundary Cases
+
+(ert-deftest test-hugo-config-toggle-draft-boundary-extra-spaces ()
+  "Should handle extra spaces between keyword and value."
+  (let ((result (test-hugo-toggle-draft-in-buffer "#+hugo_draft:   true\n")))
+    (should (string-match-p "#\\+hugo_draft:   false" result))))
+
+(ert-deftest test-hugo-config-toggle-draft-boundary-keyword-first-line ()
+  "Should work when #+hugo_draft is the first line."
+  (let ((result (test-hugo-toggle-draft-in-buffer "#+hugo_draft: true\nContent.")))
+    (should (string-match-p "#\\+hugo_draft: false" result))
+    (should (string-match-p "Content\\." result))))
+
+(ert-deftest test-hugo-config-toggle-draft-boundary-keyword-last-line ()
+  "Should work when #+hugo_draft is the last line."
+  (let ((result (test-hugo-toggle-draft-in-buffer "#+title: Test\n#+hugo_draft: false")))
+    (should (string-match-p "#\\+hugo_draft: true" result))))
+
+(ert-deftest test-hugo-config-toggle-draft-boundary-only-draft-line ()
+  "Should work when buffer contains only the draft keyword."
+  (let ((result (test-hugo-toggle-draft-in-buffer "#+hugo_draft: true")))
+    (should (string= result "#+hugo_draft: false"))))
+
+(ert-deftest test-hugo-config-toggle-draft-boundary-preserves-point ()
+  "Point should be restored to original position after toggle."
+  (with-temp-buffer
+    (insert test-hugo-draft-true-post)
+    (goto-char 50)
+    (let ((original-point (point)))
+      (cl-letf (((symbol-function 'save-buffer) #'ignore))
+        (cj/hugo-toggle-draft))
+      (should (= (point) original-point)))))
+
+;;; Error Cases
+
+(ert-deftest test-hugo-config-toggle-draft-error-no-keyword ()
+  "Should signal user-error when no #+hugo_draft keyword is present."
+  (should-error
+   (with-temp-buffer
+     (insert "#+title: A Post Without Draft\n#+hugo_tags: test\n")
+     (cl-letf (((symbol-function 'save-buffer) #'ignore))
+       (cj/hugo-toggle-draft)))
+   :type 'user-error))
+
+(ert-deftest test-hugo-config-toggle-draft-error-empty-buffer ()
+  "Should signal user-error on empty buffer."
+  (should-error
+   (with-temp-buffer
+     (cl-letf (((symbol-function 'save-buffer) #'ignore))
+       (cj/hugo-toggle-draft)))
+   :type 'user-error))
+
+(ert-deftest test-hugo-config-toggle-draft-error-invalid-value ()
+  "Should signal user-error when draft has unexpected value."
+  (should-error
+   (with-temp-buffer
+     (insert "#+hugo_draft: maybe\n")
+     (cl-letf (((symbol-function 'save-buffer) #'ignore))
+       (cj/hugo-toggle-draft)))
+   :type 'user-error))
+
+(provide 'test-hugo-config-toggle-draft)
+;;; test-hugo-config-toggle-draft.el ends here