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

testing/lisp/test-org-colview.el: Add tests 

* test-org-colview.el (test-org-colview/uncompile-format,
test-org-colview/compile-format): Add tests for functions:
`org-columns-uncompile-format' & `org-columns-compile-format'.
This commit is contained in:
Sławomir Grochowski 2023-04-17 19:18:16 +02:00 committed by Ihor Radchenko
parent cfb2ddab11
commit 03afd25582
No known key found for this signature in database
GPG Key ID: 6470762A7DA11D8B
1 changed files with 66 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

66
testing/lisp/test-org-colview.el
View File

@ -26,6 +26,72 @@
(require 'org-duration)
(require 'org-inlinetask)
(ert-deftest test-org-colview/uncompile-format ()
"Test `org-columns-uncompile-format' specifications."
;; With minimum data, one element
(should
(equal "%ITEM"
(org-columns-uncompile-format '(("ITEM" "ITEM" nil nil nil)))))
;; With minimum data, two element
(should
(equal "%ITEM %TODO"
(org-columns-uncompile-format
`(("ITEM" "ITEM" nil nil nil) ("TODO" "TODO" nil nil nil)))))
;; Read width
(should
(equal "%10ITEM"
(org-columns-uncompile-format `(("ITEM" "ITEM" 10 nil nil)))))
;; Read title
(should
(equal "%ITEM(some title)"
(org-columns-uncompile-format `(("ITEM" "some title" nil nil nil)))))
;; Read operator
(should
(equal "%ITEM{+}"
(org-columns-uncompile-format `(("ITEM" "ITEM" nil "+" nil)))))
;; Read operator printf
(should
(equal "%ITEM{+;%.1f}"
(org-columns-uncompile-format `(("ITEM" "ITEM" nil "+" "%.1f"))))))
(ert-deftest test-org-colview/compile-format ()
"Test `org-columns-compile-format' specifications."
;; With minimum data, one element
(should
(equal `(("ITEM" "ITEM" nil nil nil))
(org-columns-compile-format
"%ITEM")))
;; With minimum data, two element
(should
(equal `(("ITEM" "ITEM" nil nil nil) ("TODO" "TODO" nil nil nil))
(org-columns-compile-format
"%ITEM %TODO")))
;; Read width
(should
(equal `(("ITEM" "ITEM" 10 nil nil))
(org-columns-compile-format
"%10ITEM")))
;; Upcase property name
(should
(equal `(("ITEM" "item" nil nil nil))
(org-columns-compile-format
"%item")))
;; Read title
(should
(equal `(("ITEM" "some title" nil nil nil))
(org-columns-compile-format
"%ITEM(some title)")))
;; Read operator
(should
(equal `(("ITEM" "ITEM" nil "+" nil))
(org-columns-compile-format
"%ITEM{+}")))
;; Read operator printf
(should
(equal `(("ITEM" "ITEM" nil "+" "%.1f"))
(org-columns-compile-format
"%ITEM{+;%.1f}"))))
(ert-deftest test-org-colview/get-format ()
"Test `org-columns-get-format' specifications."
;; Without any clue, use `org-columns-default-format'.