exot/.emacs.d
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

[Timeline] Updating comments and documentation for tests

Browse Source
This commit is contained in:
Daniel Borchmann 2019-02-17 10:03:13 +01:00
parent 5c9229d761
commit 0001aafb1d
Signed by: exot
GPG Key ID: 4F63DB96D45AA9C6
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
site-lisp/timeline-tools-test.el
View File

@ -1,5 +1,10 @@
;;; timeline-tools-test.el -- Tests for timeline-tools -*- lexical-binding: t -*- ;;; 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: ;;; Code:
(require 'ert) (require 'ert)
@ -15,7 +20,7 @@
(insert ":LOGBOOK:\n") (insert ":LOGBOOK:\n")
(insert "CLOCK: [2018-01-07 Sun 13:15]--[2018-01-07 Sun 14:00] => 0:45\n") (insert "CLOCK: [2018-01-07 Sun 13:15]--[2018-01-07 Sun 14:00] => 0:45\n")
(insert ":END:\n") (insert ":END:\n")
(org-mode) ; otherwise parsing won’t work (org-mode)
(timeline-tools-clocklines-in-range 1515279600.0 1515366000.0)))) (timeline-tools-clocklines-in-range 1515279600.0 1515366000.0))))
(should (equal 1 (length result))) (should (equal 1 (length result)))
(should (equal 2 (length (car 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) ((1515334380.0 . 1515338220.0)
(1515423600.0 . 1515424500.0))))))) (1515423600.0 . 1515424500.0)))))))
(ert-deftest timeline-tools-test-parse-clocklines-4 () (ert-deftest timeline-tools-test-parse-clocklines-4 ()
"Test `timeline-tools-clocklines-in-range’ with extended time range." "Test `timeline-tools-clocklines-in-range’ with extended time range."
(let ((result (with-temp-buffer (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 () (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 (with-temp-buffer
(insert " (insert "
* Task 1 * Task 1