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

Trying to make test for `timeline-tools' independent of locale

This commit is contained in:
Daniel - 2020-01-05 14:28:31 +01:00
parent 243e579973
commit 4b7e02ccd6
No known key found for this signature in database
GPG Key ID: 1C7071A75BB72D64
1 changed files with 74 additions and 69 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -202,6 +202,7 @@ CLOCK: [2018-01-08 Mon 16:00]--[2018-01-08 Mon 16:15] => 0:15
(ert-deftest timeline-tools-test-clockline-no-conflict-1 ()
"Test `timeline-tools-clockline-no-conflict’ with complex example."
(let ((system-time-locale "C"))
(with-temp-buffer
(insert "
* Task 1
@ -233,11 +234,12 @@ CLOCK: [2018-01-11 Thu 13:33]--[2018-01-12 Fri 14:00] => 24:27
* Task 2
:LOGBOOK:
:END:
"))))
")))))
(ert-deftest timeline-tools-test-add-clockline-to-marker-1 ()
"Test `timeline-tools-add-clockline-to-marker’ without running
clock."
(let ((system-time-locale "C"))
(with-temp-buffer
(insert "
* Task 1
@ -272,11 +274,12 @@ CLOCK: [2018-01-11 Thu 13:33]--[2018-01-12 Fri 14:00] => 24:27
:LOGBOOK:
CLOCK: [2018-01-07 Sun 13:00]--[2018-01-11 Thu 13:33] => 96:33
:END:
")))))
"))))))
(ert-deftest timeline-tools-test-add-clockline-to-marker-2 ()
"Test `timeline-tools-add-clockline-to-marker’ with running
clock at same task."
(let ((system-time-locale "C"))
(with-temp-buffer
(insert "
* Task 1
@ -319,11 +322,12 @@ CLOCK: [2018-01-11 Thu 13:33]--[2018-01-12 Fri 14:00] => 24:27
CLOCK: [2018-01-11 Thu 13:33]
CLOCK: [2018-01-07 Sun 13:00]--[2018-01-11 Thu 13:33] => 96:33
:END:
"))))))
")))))))
(ert-deftest timeline-tools-test-add-clockline-to-marker-3 ()
"Test `timeline-tools-add-clockline-to-marker’ with running
clock at same task."
(let ((system-time-locale "C"))
(with-temp-buffer
(insert "
* Task 1
@ -364,12 +368,13 @@ CLOCK: [2018-01-07 Sun 13:00]--[2018-01-11 Thu 13:33] => 96:33
:LOGBOOK:
CLOCK: [2018-01-11 Thu 13:33]
:END:
"))))))
")))))))
(ert-deftest timeline-tools-test-add-clockline-to-marker-4 ()
"Test `timeline-tools-add-clockline-to-marker’ with running
clock at other task, and where afterwards only the running clock
line is left."
(let ((system-time-locale "C"))
(with-temp-buffer
(insert "
* Task 1
@ -412,6 +417,6 @@ CLOCK: [2018-01-11 Thu 13:33]--[2018-01-12 Fri 14:00] => 24:27
:LOGBOOK:
CLOCK: [2018-01-11 Thu 13:33]
:END:
"))))))
")))))))
;;; timeline-tools-test.el ends here