From 5111c3a5fa0dcc7bacb065270d87a03bde4888b5 Mon Sep 17 00:00:00 2001 From: Yasushi SHOJI Date: Tue, 31 May 2016 16:25:42 +0900 Subject: [PATCH] Add tests for tag width calculation * testing/lisp/test-org.el (test-org/tag-align): New test. --- testing/lisp/test-org.el | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) diff --git a/testing/lisp/test-org.el b/testing/lisp/test-org.el index db7e5257a..4873fc2f4 100644 --- a/testing/lisp/test-org.el +++ b/testing/lisp/test-org.el @@ -4132,6 +4132,28 @@ Paragraph" (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 (ert-deftest test-org/time-stamp () -- 2.11.4.GIT