tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

Merge branch 'bugfix'

This commit is contained in:
Ihor Radchenko 2023-03-05 13:22:02 +01:00
parent 913e40a5bb 3d817c52c9
commit e52c531e17
No known key found for this signature in database
GPG Key ID: 6470762A7DA11D8B
2 changed files with 37 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
testing/lisp/test-org-clock.el
View File

@ -1276,5 +1276,40 @@ CLOCK: [2012-03-29 Thu 16:00]--[2012-03-29 Thu 17:00] => 1:00"
(test-org-clock-clocktable-contents
(format ":hidefiles t :scope (lambda () (list %S))" the-file))))))))
;;; Mode line
(ert-deftest test-org-clock/mode-line ()
"Test mode line string ends in a space.
\"Elements that are added to [the mode line] should normally end
in a space (to ensure that consecutive 'global-mode-string'
elements display properly)\" per Emacs manual, Section 24.4.4
Variables Used in the Mode Line."
;; Test the variant without effort.
(should
(equal
"<before> [0:00] (Heading) <after> "
(org-test-with-temp-text
"* Heading"
(org-clock-in)
(prog1 (concat "<before> "
(org-clock-get-clock-string)
"<after> ")
(org-clock-out)))))
;; Test the variant with effort.
(should
(equal
"<before> [0:00/1:00] (Heading) <after> "
(org-test-with-temp-text
"* Heading
:PROPERTIES:
:EFFORT: 1h
:END:"
(org-clock-in)
(prog1 (concat "<before> "
(org-clock-get-clock-string)
"<after> ")
(org-clock-out))))))
(provide 'test-org-clock)
;;; test-org-clock.el end here