contrapunctus
/
chronometrist
Archived
1
3
Fork 0
Code Issues 1 Pull Requests Projects Releases Wiki Activity

Add tests - timeclock-list-total-time-one-day

This commit is contained in:
Kashish Sharma 2018-09-14 19:43:56 +05:30
parent e4e678c519
commit 43b1b2e0ad
2 changed files with 17 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
functions.org
View File

@ -1,4 +1,4 @@
* TODO Test coverage [5/44]
* TODO Test coverage [6/44]
- [ ] timeclock-list-idle-timer ()
- [ ] timeclock-list-current-project ()
- [ ] timeclock-list-project-active? (project)
@ -7,7 +7,7 @@
- [ ] timeclock-list-project-at-point ()
- [ ] timeclock-list-goto-last-project ()
- [X] timeclock-list-time-add (a b)
- [ ] timeclock-list-total-time-one-day (&optional date)
- [X] timeclock-list-total-time-one-day (&optional date)
- [ ] timeclock-list-print-non-tabular ()
- [ ] timeclock-list-toggle-project (&optional arg)
- [ ] timeclock-list (&optional arg)

15
timeclock-ui-tests.el
View File

@ -246,6 +246,7 @@
[1 1 1])))
(ert-deftest timeclock-list-time-add-tests ()
"Tests for `timeclock-list-time-add'."
(should (equal (timeclock-list-time-add [0 0 0] [0 0 0])
[0 0 0]))
(should (equal (timeclock-list-time-add [0 0 1] [0 0 0])
@ -257,6 +258,20 @@
(should (equal (timeclock-list-time-add [0 1 1] [0 59 59])
[1 1 0])))
(ert-deftest timeclock-list-ttod-tests ()
"Tests for `timeclock-list-total-time-one-day'."
(let ((timeclock-file "test.timelog"))
(timeclock-reread-log)
(should (equal (timeclock-list-total-time-one-day '(0 0 0 1 1 2018))
[5 0 0]))
(should (equal (timeclock-list-total-time-one-day '(0 0 0 2 1 2018))
[1 0 0]))
(should (equal (timeclock-list-total-time-one-day '(0 0 0 3 1 2018))
[1 0 0]))))
;; (ert-deftest timeclock-report-iodd-tests ()
;; (should (equal (timeclock-report-increment-or-decrement-date '(0 0 0 28 2 2020) '+))))
(provide 'timeclock-ui-tests)
;; Local Variables: