ryuslash/git-auto-commit-mode
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Add a few tests for the ‘gac-default-message’ variable

Browse source
This commit is contained in:
Tom Willemse 2022-12-07 07:23:08 -08:00
parent a6b6e0fa18
commit 7b628c0ce0
1 changed files with 39 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

40
tests/git-auto-commit-mode-tests.el
View file

@ -140,7 +140,45 @@
(save-buffer))
(expect (gac-relative-file-name temp-file)
:to-equal "[test-test.txt")))))
:to-equal "[test-test.txt"))))
(describe "Getting a commit message"
(it "should default to the relative file name"
(let* ((temp-file (expand-file-name "test.txt" temp-dir))
(buffer (find-file-noselect temp-file)))
(with-current-buffer buffer
(git-auto-commit-mode)
(insert "test")
(save-buffer))
(expect (shell-command-to-string "git log --format=format:%s")
:to-equal "test.txt")))
(it "should use the message specified in ‘gac-default-message’"
(let* ((temp-file (expand-file-name "test.txt" temp-dir))
(buffer (find-file-noselect temp-file))
(gac-default-message "I made a commit!"))
(with-current-buffer buffer
(git-auto-commit-mode)
(insert "test")
(save-buffer))
(expect (shell-command-to-string "git log --format=format:%s")
:to-equal "I made a commit!")))
(it "should use the function result if ‘gac-default-message’ is a function"
(let* ((temp-file (expand-file-name "test.txt" temp-dir))
(buffer (find-file-noselect temp-file))
(gac-default-message
(lambda (f)
(concat "wip " (gac-relative-file-name f)))))
(with-current-buffer buffer
(git-auto-commit-mode)
(insert "test")
(save-buffer))
(expect (shell-command-to-string "git log --format=format:%s")
:to-equal "wip test.txt")))))
(provide 'git-auto-commit-mode-tests)
;;; git-auto-commit-mode-tests.el ends here