summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <mail@nicolasgoaziou.fr>2017-02-13 11:54:22 +0100
committerNicolas Goaziou <mail@nicolasgoaziou.fr>2017-02-13 14:39:40 +0100
commit1d39286183f82a102975001329eb0df00b7996d0 (patch)
treeb5826a2414a3ec062b84ab5a1d4daf830e7493c4
parentf2fa092079e54f5bacc3140b9e440226c648dacd (diff)
downloadorg-mode-1d39286183f82a102975001329eb0df00b7996d0.tar.gz
Add tests for "org-duration.el"
* testing/lisp/test-org-duration.el: New file.
-rw-r--r--testing/lisp/test-org-duration.el157
1 files changed, 157 insertions, 0 deletions
diff --git a/testing/lisp/test-org-duration.el b/testing/lisp/test-org-duration.el
new file mode 100644
index 0000000..c7b8266
--- /dev/null
+++ b/testing/lisp/test-org-duration.el
@@ -0,0 +1,157 @@
+;;; test-org-duration.el --- Tests for org-duration.el -*- lexical-binding: t; -*-
+
+;; Copyright (C) 2017 Nicolas Goaziou
+
+;; Author: Nicolas Goaziou <mail@nicolasgoaziou.fr>
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+;;; Code:
+
+(ert-deftest test-org-duration/to-minutes ()
+ "Test `org-duration-to-minutes' specifications."
+ ;; Raise an error for unknown duration format.
+ (should-error (org-duration-to-minutes "1:2"))
+ ;; Return number of minutes, as a float.
+ (should (= (org-duration-to-minutes "1:01") 61))
+ (should (floatp (org-duration-to-minutes "1:01")))
+ ;; Handle various duration formats.
+ (should (= (org-duration-to-minutes "1:20:30") 80.5))
+ (should (= (org-duration-to-minutes "2h 10min") 130))
+ (should (= (org-duration-to-minutes "1d 1:02") 1502))
+ (should (= (org-duration-to-minutes "2.5h") 450))
+ ;; Special case: a bare number is treated as minutes.
+ (should (= (org-duration-to-minutes "2") 2))
+ (should (= (org-duration-to-minutes "2.5") 2.5))
+ ;; Support custom units.
+ (should (= 4
+ (let ((org-duration-units '(("longmin" . 2)))
+ org-duration--unit-re
+ org-duration--full-re
+ org-duration--mixed-re)
+ (org-duration-set-regexps)
+ (org-duration-to-minutes "2longmin"))))
+ (should (= 61
+ (let ((org-duration-units '(("h" . 61)))
+ org-duration--unit-re
+ org-duration--full-re
+ org-duration--mixed-re)
+ (org-duration-set-regexps)
+ (org-duration-to-minutes "1h"))))
+ ;; When CANONICAL is non-nil, ignore custom units and only recognize
+ ;; units defined in `org-duration-canonical-units'.
+ (should (= 60
+ (let ((org-duration-units '(("h" . 61)))
+ org-duration--unit-re
+ org-duration--full-re
+ org-duration--mixed-re)
+ (org-duration-set-regexps)
+ (org-duration-to-minutes "1h" t))))
+ (should-error (let ((org-duration-units '(("longmin" . 2)))
+ org-duration--unit-re
+ org-duration--full-re
+ org-duration--mixed-re)
+ (org-duration-set-regexps)
+ (org-duration-to-minutes "2longmin" t))))
+
+(ert-deftest test-org-duration/from-minutes ()
+ "Test `org-duration-from-minutes' specifications."
+ ;; Format number of minutes according to `org-duration-format'.
+ (should (equal "1:00"
+ (let ((org-duration-format 'h:mm))
+ (org-duration-from-minutes 60))))
+ (should (equal "1:01:30"
+ (let ((org-duration-format 'h:mm:ss))
+ (org-duration-from-minutes 61.5))))
+ (should (equal "1:01"
+ (let ((org-duration-format 'h:mm))
+ (org-duration-from-minutes 61.5))))
+ ;; Handle required parameter in advanced format specifications.
+ (should (equal "1h"
+ (let ((org-duration-format '(("h" . nil) ("min" . nil))))
+ (org-duration-from-minutes 60))))
+ (should (equal "1h 0min"
+ (let ((org-duration-format '(("h" . nil) ("min" . t))))
+ (org-duration-from-minutes 60))))
+ (should (equal "50min"
+ (let ((org-duration-format '(("h" . nil) ("min" . nil))))
+ (org-duration-from-minutes 50))))
+ (should (equal "0h 50min"
+ (let ((org-duration-format '(("h" . t) ("min" . t))))
+ (org-duration-from-minutes 50))))
+ ;; Handle mixed mode.
+ (should (equal "1d 0:10"
+ (let ((org-duration-format '(("d" . nil) (special . h:mm))))
+ (org-duration-from-minutes (+ (* 24 60) 10)))))
+ (should (equal "1d 0:12:30"
+ (let ((org-duration-format '(("d" . nil) (special . h:mm:ss))))
+ (org-duration-from-minutes (+ (* 24 60) 12.5)))))
+ ;; Handle fractional duration. Parameter is the precision.
+ (should (equal "1.5h"
+ (let ((org-duration-format '(("h" . nil) (special . 1))))
+ (org-duration-from-minutes 90))))
+ (should (equal "1.50h"
+ (let ((org-duration-format '(("h" . nil) (special . 2))))
+ (org-duration-from-minutes 90))))
+ ;; When using fractional duration, use first required unit or the
+ ;; first with a non-zero integer part. If none is found, refer to
+ ;; smallest unit specified in format.
+ (should (equal "0.7h"
+ (let ((org-duration-format
+ '(("h" . t) ("min" . nil) (special . 1))))
+ (org-duration-from-minutes 40))))
+ (should (equal "40.0min"
+ (let ((org-duration-format
+ '(("h" . nil) ("min" . nil) (special . 1))))
+ (org-duration-from-minutes 40))))
+ (should (equal "0.5min"
+ (let ((org-duration-format
+ '(("h" . nil) ("min" . nil) (special . 1))))
+ (org-duration-from-minutes 0.5)))))
+
+(ert-deftest test-org-duration/p ()
+ "Test `org-duration-p' specifications."
+ ;; Test all duration formats.
+ (should (org-duration-p "3:12"))
+ (should (org-duration-p "123:12"))
+ (should (org-duration-p "1:23:45"))
+ (should (org-duration-p "3d 3h 4min"))
+ (should (org-duration-p "3d 13:35"))
+ (should (org-duration-p "2.35h"))
+ ;; Handle custom units, but return nil for unknown units.
+ (should-not (org-duration-p "1minute"))
+ (should (let ((org-duration-units '(("minute" . 1)))
+ org-duration--unit-re
+ org-duration--full-re
+ org-duration--mixed-re)
+ (org-duration-set-regexps)
+ (org-duration-p "2minute")))
+ ;; Tolerate white space between the number and the unit.
+ (should (org-duration-p "2 h"))
+ ;; Return nil for ill-formed H:MM:SS strings.
+ (should-not (org-duration-p "3::12"))
+ (should-not (org-duration-p "3:2"))
+ (should-not (org-duration-p "3:12:4"))
+ ;; Return nil in mixed mode if H:MM:SS part is not last.
+ (should-not (org-duration-p "3d 13:35 13h")))
+
+(ert-deftest test-org-duration/h:mm-only-p ()
+ "Test `org-duration-h:mm-only-p' specifications."
+ (should (org-duration-h:mm-only-p '("123:31" "1:00")))
+ (should-not (org-duration-h:mm-only-p '("123:32" "1h")))
+ (should (eq 'h:mm:ss (org-duration-h:mm-only-p '("3:33" "1:23:45")))))
+
+
+(provide 'test-org-duration)
+;;; test-org-duration.el ends here