From 1d39286183f82a102975001329eb0df00b7996d0 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Mon, 13 Feb 2017 11:54:22 +0100 Subject: [PATCH] Add tests for "org-duration.el" * testing/lisp/test-org-duration.el: New file. --- testing/lisp/test-org-duration.el | 157 ++++++++++++++++++++++++++++++ 1 file changed, 157 insertions(+) create mode 100644 testing/lisp/test-org-duration.el diff --git a/testing/lisp/test-org-duration.el b/testing/lisp/test-org-duration.el new file mode 100644 index 000000000..c7b82661b --- /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 + +;; 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 . + +;;; 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