77 lines
3.9 KiB
EmacsLisp
77 lines
3.9 KiB
EmacsLisp
|
;;; commit-msg-tests.el --- ERT tests for hooks/commit-msg -*- lexical-binding: t; -*-
|
||
|
|
|
||
|
|
;; Run with: make test-hooks (or)
|
||
|
|
;; emacs -Q --batch -l test/commit-msg-tests.el -f ert-run-tests-batch-and-exit
|
||
|
|
;;
|
||
|
|
;; The hook is POSIX sh; these tests drive it from Emacs Lisp, so the
|
||
|
|
;; check and its tests are written in different languages. Each test
|
||
|
|
;; feeds one message file to the hook and reads only its exit status.
|
||
|
|
;; The table holds messages that must pass and messages that must be
|
||
|
|
;; refused, so a hook that accepts everything, or refuses everything,
|
||
|
|
;; fails here.
|
||
|
|
|
||
|
|
;;; Code:
|
||
|
|
|
||
|
|
(require 'ert)
|
||
|
|
|
||
|
|
(defconst cmt--hook
|
||
|
|
(expand-file-name "../hooks/commit-msg"
|
||
|
|
(file-name-directory (or load-file-name buffer-file-name)))
|
||
|
|
"The hook under test.")
|
||
|
|
|
||
|
|
(defun cmt--status (message)
|
||
|
|
"Return the exit status of the hook run on MESSAGE."
|
||
|
|
(let ((file (make-temp-file "commit-msg-test-")))
|
||
|
|
(unwind-protect
|
||
|
|
(progn
|
||
|
|
(let ((coding-system-for-write 'no-conversion))
|
||
|
|
(with-temp-file file (insert message)))
|
||
|
|
(call-process "sh" nil nil nil cmt--hook file))
|
||
|
|
(delete-file file))))
|
||
|
|
|
||
|
|
(defconst cmt--subject "Fix a thing\n\nBody text.\n\n")
|
||
|
|
|
||
|
|
(defconst cmt--accept
|
||
|
|
`(("no trailer at all" . "Fix a thing\n\nBody text.\n")
|
||
|
|
("persona form, semicolon" . ,(concat cmt--subject "Assisted-by: Mentat (for Corwin; claude-opus-5-5)\n"))
|
||
|
|
("persona form, comma" . ,(concat cmt--subject "Assisted-by: Mentat (for Corwin, claude-opus-5-5)\n"))
|
||
|
|
("key case varies" . ,(concat cmt--subject "Assisted-By: Mentat (for Corwin; claude-opus-5-5)\n"))
|
||
|
|
("CRLF line endings" . "Fix a thing\r\n\r\nAssisted-by: Mentat (for Corwin; claude-opus-5-5)\r\n")
|
||
|
|
("no final newline" . ,(concat cmt--subject "Assisted-by: Mentat (for Corwin; claude-opus-5-5)"))
|
||
|
|
("comment line ignored" . ,(concat cmt--subject "# Claude-Session: https://example.invalid/x\n"))
|
||
|
|
("after the scissors line" . ,(concat cmt--subject
|
||
|
|
"# ------------------------ >8 ------------------------\n"
|
||
|
|
"+Claude-Session: https://example.invalid/x\n"
|
||
|
|
"+Co-Authored-By: Claude <noreply@anthropic.com>\n")))
|
||
|
|
"Messages the hook must accept, by name.")
|
||
|
|
|
||
|
|
(defconst cmt--refuse
|
||
|
|
`(("session link" . ,(concat cmt--subject "Claude-Session: https://claude.ai/code/session_x\n"))
|
||
|
|
("session link, lower case" . ,(concat cmt--subject "claude-session: https://claude.ai/code/session_x\n"))
|
||
|
|
("co-author, Claude" . ,(concat cmt--subject "Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com>\n"))
|
||
|
|
("co-author, lower case" . ,(concat cmt--subject "co-authored-by: Someone <bot@anthropic.com>\n"))
|
||
|
|
("older Assisted-by form" . ,(concat cmt--subject "Assisted-by: Claude:claude-opus-4-8\n"))
|
||
|
|
("persona form, no model" . ,(concat cmt--subject "Assisted-by: Mentat (for Corwin)\n"))
|
||
|
|
("persona form, no person" . ,(concat cmt--subject "Assisted-by: Mentat (claude-opus-5-5)\n"))
|
||
|
|
("good line then a bad one" . ,(concat cmt--subject
|
||
|
|
"Assisted-by: Mentat (for Corwin; claude-opus-5-5)\n"
|
||
|
|
"Claude-Session: https://claude.ai/code/session_x\n")))
|
||
|
|
"Messages the hook must refuse, by name.")
|
||
|
|
|
||
|
|
(ert-deftest cmt-accepts ()
|
||
|
|
"Every message in `cmt--accept' passes the hook."
|
||
|
|
(skip-unless (executable-find "sh"))
|
||
|
|
(dolist (case cmt--accept)
|
||
|
|
(should (equal (cons (car case) 0)
|
||
|
|
(cons (car case) (cmt--status (cdr case)))))))
|
||
|
|
|
||
|
|
(ert-deftest cmt-refuses ()
|
||
|
|
"Every message in `cmt--refuse' is refused by the hook."
|
||
|
|
(skip-unless (executable-find "sh"))
|
||
|
|
(dolist (case cmt--refuse)
|
||
|
|
(should (equal (cons (car case) 1)
|
||
|
|
(cons (car case) (cmt--status (cdr case)))))))
|
||
|
|
|
||
|
|
(provide 'commit-msg-tests)
|
||
|
|
;;; commit-msg-tests.el ends here
|