From 0001aafb1d0861cc54108cac785c777f19dd9226 Mon Sep 17 00:00:00 2001 From: Daniel Borchmann Date: Sun, 17 Feb 2019 10:03:13 +0100 Subject: [PATCH] [Timeline] Updating comments and documentation for tests --- site-lisp/timeline-tools-test.el | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/site-lisp/timeline-tools-test.el b/site-lisp/timeline-tools-test.el index 5cc7a9a..29ecf0f 100644 --- a/site-lisp/timeline-tools-test.el +++ b/site-lisp/timeline-tools-test.el @@ -1,5 +1,10 @@ ;;; timeline-tools-test.el -- Tests for timeline-tools -*- lexical-binding: t -*- +;;; Commentary: + +;; Most of the times in the test cases are not really reasonable, but if we can +;; cope with those, reasonable one should also work ;) + ;;; Code: (require 'ert) @@ -15,7 +20,7 @@ (insert ":LOGBOOK:\n") (insert "CLOCK: [2018-01-07 Sun 13:15]--[2018-01-07 Sun 14:00] => 0:45\n") (insert ":END:\n") - (org-mode) ; otherwise parsing won’t work + (org-mode) (timeline-tools-clocklines-in-range 1515279600.0 1515366000.0)))) (should (equal 1 (length result))) (should (equal 2 (length (car result)))) @@ -71,7 +76,6 @@ CLOCK: [2018-01-08 Mon 16:00]--[2018-01-08 Mon 16:15] => 0:15 ((1515334380.0 . 1515338220.0) (1515423600.0 . 1515424500.0))))))) - (ert-deftest timeline-tools-test-parse-clocklines-4 () "Test `timeline-tools-clocklines-in-range’ with extended time range." (let ((result (with-temp-buffer @@ -154,7 +158,8 @@ CLOCK: [2018-01-11 Thu 13:33]--[2018-01-12 Fri 14:00] => 24:27 ")))) (ert-deftest timeline-tools-test-add-clockline-to-marker-1 () - "Test `timeline-tools-add-clockline-to-marker’ without running clock." + "Test `timeline-tools-add-clockline-to-marker’ without running +clock." (with-temp-buffer (insert " * Task 1