blob: 2e75a7c9eedea01ba1e39faccff6d2037218f6c3 (
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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
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
|
