mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-29 18:36:26 +00:00
Code Releases Activity

Add tests for tag width calculation

Browse source 
* testing/lisp/test-org.el (test-org/tag-align): New test.
This commit is contained in:
Yasushi SHOJI 2016-05-31 16:25:42 +09:00 committed by Nicolas Goaziou
parent 361fa80eba
commit 5111c3a5fa
1 changed files with 22 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
testing/lisp/test-org.el
View file

@ -4131,6 +4131,28 @@ Paragraph<point>"
(org-test-with-temp-text "* H\nA\n* H2\nA"
(org-occur "A" nil (lambda () (equal (org-get-heading) "H2")))))))
;;; Tags
(ert-deftest test-org/tag-align ()
"Test `org-align-tags-here' with different display width."
(should
;; 12345678901234567890
(equal "* Test :abc:"
(org-test-with-temp-text "* Test :abc:"
(let ((org-tags-column -20)
(indent-tabs-mode nil))
(org-fix-tags-on-the-fly))
(buffer-string))))
(should
;; 12345678901234567890
(equal "* Test :日本語:"
(org-test-with-temp-text "* Test :日本語:"
(let ((org-tags-column -20)
(indent-tabs-mode nil))
(org-fix-tags-on-the-fly))
(buffer-string)))))
;;; Timestamps API