ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix a test

This commit is contained in:
Nicolas Goaziou 2016-06-04 21:27:55 +02:00
parent 827413ef2f
commit daa11e13de
1 changed files with 27 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -415,10 +415,13 @@
;; {@min}, {@max} and {@mean} apply to ages.
(should
(equal
(let ((org-columns--time (float-time (current-time))))
(org-columns--summary-min-age (list "<2014-03-04 Tue>") nil))
(org-test-with-temp-text
"* H
"0d 00h 0m 0s"
(cl-letf (((symbol-function 'current-time)
(lambda ()
(apply #'encode-time
(org-parse-time-string "<2014-03-04 Tue>")))))
(org-test-with-temp-text
"* H
** S1
:PROPERTIES:
:A: <2012-03-29 Thu>
@ -427,14 +430,17 @@
:PROPERTIES:
:A: <2014-03-04 Tue>
:END:"
(let ((org-columns-default-format "%A{@min}")) (org-columns))
(get-char-property (point) 'org-columns-value-modified))))
(let ((org-columns-default-format "%A{@min}")) (org-columns))
(get-char-property (point) 'org-columns-value-modified)))))
(should
(equal
(let ((org-columns--time (float-time (current-time))))
(org-columns--summary-max-age (list "<2012-03-29 Thu>") nil))
(org-test-with-temp-text
"* H
"705d 01h 0m 0s"
(cl-letf (((symbol-function 'current-time)
(lambda ()
(apply #'encode-time
(org-parse-time-string "<2014-03-04 Tue>")))))
(org-test-with-temp-text
"* H
** S1
:PROPERTIES:
:A: <2012-03-29 Thu>
@ -443,15 +449,17 @@
:PROPERTIES:
:A: <2014-03-04 Tue>
:END:"
(let ((org-columns-default-format "%A{@max}")) (org-columns))
(get-char-property (point) 'org-columns-value-modified))))
(let ((org-columns-default-format "%A{@max}")) (org-columns))
(get-char-property (point) 'org-columns-value-modified)))))
(should
(equal
(let ((org-columns--time (float-time (current-time))))
(org-columns--summary-mean-age
(list "<2012-03-29 Thu>" "<2014-03-04 Tue>") nil))
(org-test-with-temp-text
"* H
"352d 12h 30m 0s"
(cl-letf (((symbol-function 'current-time)
(lambda ()
(apply #'encode-time
(org-parse-time-string "<2014-03-04 Tue>")))))
(org-test-with-temp-text
"* H
** S1
:PROPERTIES:
:A: <2012-03-29 Thu>
@ -460,8 +468,8 @@
:PROPERTIES:
:A: <2014-03-04 Tue>
:END:"
(let ((org-columns-default-format "%A{@mean}")) (org-columns))
(get-char-property (point) 'org-columns-value-modified))))
(let ((org-columns-default-format "%A{@mean}")) (org-columns))
(get-char-property (point) 'org-columns-value-modified)))))
;; If a time value is expressed as a duration, return a duration.
;; If any of them follows H:MM:SS pattern, use it too.
(should