361 lines
17 KiB
EmacsLisp
361 lines
17 KiB
EmacsLisp
;;; chronometrist-tests.el --- Tests for Chronometrist -*- lexical-binding: t; -*-
|
|
|
|
;; This is free and unencumbered software released into the public domain.
|
|
;;
|
|
;; Anyone is free to copy, modify, publish, use, compile, sell, or
|
|
;; distribute this software, either in source code form or as a compiled
|
|
;; binary, for any purpose, commercial or non-commercial, and by any
|
|
;; means.
|
|
;;
|
|
;; For more information, please refer to <https://unlicense.org>
|
|
|
|
;;; Commentary:
|
|
;; These should be replaced by buttercup tests, which have a nicer
|
|
;; syntax.
|
|
|
|
(require 'ert)
|
|
(require 'chronometrist)
|
|
(require 'chronometrist-report)
|
|
|
|
;; TODO - add tests for chronometrist-task-time-one-day with custom day start
|
|
;; times.
|
|
|
|
;; #### CHRONOMETRIST-REPORT ####
|
|
|
|
;;; Code:
|
|
|
|
(defun interval-test (start target)
|
|
"Basic logic used to derive 'gap' in `chronometrist-previous-week-start'."
|
|
(cond ((= start target) 7)
|
|
((> start target) (- start target))
|
|
((< start target) (+ start (- 7 target)))))
|
|
|
|
(ert-deftest chronometrist-interval-test-0 ()
|
|
(should (= (interval-test 0 0) 7))
|
|
(should (= (interval-test 0 1) 6))
|
|
(should (= (interval-test 0 2) 5))
|
|
(should (= (interval-test 0 3) 4))
|
|
(should (= (interval-test 0 4) 3))
|
|
(should (= (interval-test 0 5) 2))
|
|
(should (= (interval-test 0 6) 1)))
|
|
|
|
(ert-deftest chronometrist-interval-test-1 ()
|
|
(should (= (interval-test 1 0) 1))
|
|
(should (= (interval-test 1 1) 7))
|
|
(should (= (interval-test 1 2) 6))
|
|
(should (= (interval-test 1 3) 5))
|
|
(should (= (interval-test 1 4) 4))
|
|
(should (= (interval-test 1 5) 3))
|
|
(should (= (interval-test 1 6) 2)))
|
|
|
|
(ert-deftest chronometrist-interval-test-2 ()
|
|
(should (= (interval-test 2 0) 2))
|
|
(should (= (interval-test 2 1) 1))
|
|
(should (= (interval-test 2 2) 7))
|
|
(should (= (interval-test 2 3) 6))
|
|
(should (= (interval-test 2 4) 5))
|
|
(should (= (interval-test 2 5) 4))
|
|
(should (= (interval-test 2 6) 3)))
|
|
|
|
(ert-deftest chronometrist-interval-test-3 ()
|
|
(should (= (interval-test 3 0) 3))
|
|
(should (= (interval-test 3 1) 2))
|
|
(should (= (interval-test 3 2) 1))
|
|
(should (= (interval-test 3 3) 7))
|
|
(should (= (interval-test 3 4) 6))
|
|
(should (= (interval-test 3 5) 5))
|
|
(should (= (interval-test 3 6) 4)))
|
|
|
|
(ert-deftest chronometrist-interval-test-4 ()
|
|
(should (= (interval-test 4 0) 4))
|
|
(should (= (interval-test 4 1) 3))
|
|
(should (= (interval-test 4 2) 2))
|
|
(should (= (interval-test 4 3) 1))
|
|
(should (= (interval-test 4 4) 7))
|
|
(should (= (interval-test 4 5) 6))
|
|
(should (= (interval-test 4 6) 5)))
|
|
|
|
(ert-deftest chronometrist-interval-test-5 ()
|
|
(should (= (interval-test 5 0) 5))
|
|
(should (= (interval-test 5 1) 4))
|
|
(should (= (interval-test 5 2) 3))
|
|
(should (= (interval-test 5 3) 2))
|
|
(should (= (interval-test 5 4) 1))
|
|
(should (= (interval-test 5 5) 7))
|
|
(should (= (interval-test 5 6) 6)))
|
|
|
|
(ert-deftest chronometrist-interval-test-6 ()
|
|
(should (= (interval-test 6 0) 6))
|
|
(should (= (interval-test 6 1) 5))
|
|
(should (= (interval-test 6 2) 4))
|
|
(should (= (interval-test 6 3) 3))
|
|
(should (= (interval-test 6 4) 2))
|
|
(should (= (interval-test 6 5) 1))
|
|
(should (= (interval-test 6 6) 7)))
|
|
|
|
(ert-deftest chronometrist-previous-week-start-sunday ()
|
|
"Tests for `chronometrist-previous-week-start'."
|
|
(let ((chronometrist-report-week-start-day "Sunday"))
|
|
(should (equal (chronometrist-previous-week-start '(0 0 0 1 9 2018 6 nil 19800))
|
|
'(0 0 0 26 8 2018 0 nil 19800)))
|
|
(should (equal (chronometrist-previous-week-start '(0 0 0 2 9 2018 0 nil 19800))
|
|
'(0 0 0 2 9 2018 0 nil 19800)))
|
|
(should (equal (chronometrist-previous-week-start '(0 0 0 3 9 2018 1 nil 19800))
|
|
'(0 0 0 2 9 2018 0 nil 19800)))
|
|
(should (equal (chronometrist-previous-week-start '(0 0 0 4 9 2018 2 nil 19800))
|
|
'(0 0 0 2 9 2018 0 nil 19800)))
|
|
(should (equal (chronometrist-previous-week-start '(0 0 0 5 9 2018 3 nil 19800))
|
|
'(0 0 0 2 9 2018 0 nil 19800)))
|
|
(should (equal (chronometrist-previous-week-start '(0 0 0 6 9 2018 4 nil 19800))
|
|
'(0 0 0 2 9 2018 0 nil 19800)))
|
|
(should (equal (chronometrist-previous-week-start '(0 0 0 7 9 2018 5 nil 19800))
|
|
'(0 0 0 2 9 2018 0 nil 19800)))
|
|
(should (equal (chronometrist-previous-week-start '(0 0 0 8 9 2018 6 nil 19800))
|
|
'(0 0 0 2 9 2018 0 nil 19800)))))
|
|
|
|
(ert-deftest chronometrist-previous-week-start-monday ()
|
|
"Tests for `chronometrist-previous-week-start'."
|
|
(let ((chronometrist-report-week-start-day "Monday"))
|
|
(should (equal (chronometrist-previous-week-start '(0 0 0 1 9 2018 6 nil 19800))
|
|
'(0 0 0 27 8 2018 1 nil 19800)))
|
|
(should (equal (chronometrist-previous-week-start '(0 0 0 2 9 2018 0 nil 19800))
|
|
'(0 0 0 27 8 2018 1 nil 19800)))
|
|
(should (equal (chronometrist-previous-week-start '(0 0 0 3 9 2018 1 nil 19800))
|
|
'(0 0 0 3 9 2018 1 nil 19800)))
|
|
(should (equal (chronometrist-previous-week-start '(0 0 0 4 9 2018 2 nil 19800))
|
|
'(0 0 0 3 9 2018 1 nil 19800)))
|
|
(should (equal (chronometrist-previous-week-start '(0 0 0 5 9 2018 3 nil 19800))
|
|
'(0 0 0 3 9 2018 1 nil 19800)))
|
|
(should (equal (chronometrist-previous-week-start '(0 0 0 6 9 2018 4 nil 19800))
|
|
'(0 0 0 3 9 2018 1 nil 19800)))
|
|
(should (equal (chronometrist-previous-week-start '(0 0 0 7 9 2018 5 nil 19800))
|
|
'(0 0 0 3 9 2018 1 nil 19800)))
|
|
(should (equal (chronometrist-previous-week-start '(0 0 0 8 9 2018 6 nil 19800))
|
|
'(0 0 0 3 9 2018 1 nil 19800)))))
|
|
|
|
(ert-deftest chronometrist-previous-week-start-tuesday ()
|
|
"Tests for `chronometrist-previous-week-start'."
|
|
(let ((chronometrist-report-week-start-day "Tuesday"))
|
|
(should (equal (chronometrist-previous-week-start '(0 0 0 1 9 2018 6 nil 19800))
|
|
'(0 0 0 28 8 2018 2 nil 19800)))
|
|
(should (equal (chronometrist-previous-week-start '(0 0 0 2 9 2018 0 nil 19800))
|
|
'(0 0 0 28 8 2018 2 nil 19800)))
|
|
(should (equal (chronometrist-previous-week-start '(0 0 0 3 9 2018 1 nil 19800))
|
|
'(0 0 0 28 8 2018 2 nil 19800)))
|
|
(should (equal (chronometrist-previous-week-start '(0 0 0 4 9 2018 2 nil 19800))
|
|
'(0 0 0 4 9 2018 2 nil 19800)))
|
|
(should (equal (chronometrist-previous-week-start '(0 0 0 5 9 2018 3 nil 19800))
|
|
'(0 0 0 4 9 2018 2 nil 19800)))
|
|
(should (equal (chronometrist-previous-week-start '(0 0 0 6 9 2018 4 nil 19800))
|
|
'(0 0 0 4 9 2018 2 nil 19800)))
|
|
(should (equal (chronometrist-previous-week-start '(0 0 0 7 9 2018 5 nil 19800))
|
|
'(0 0 0 4 9 2018 2 nil 19800)))
|
|
(should (equal (chronometrist-previous-week-start '(0 0 0 8 9 2018 6 nil 19800))
|
|
'(0 0 0 4 9 2018 2 nil 19800)))))
|
|
|
|
(ert-deftest chronometrist-previous-week-start-wednesday ()
|
|
"Tests for `chronometrist-previous-week-start'."
|
|
(let ((chronometrist-report-week-start-day "Wednesday"))
|
|
(should (equal (chronometrist-previous-week-start '(0 0 0 1 9 2018 6 nil 19800))
|
|
'(0 0 0 29 8 2018 3 nil 19800)))
|
|
(should (equal (chronometrist-previous-week-start '(0 0 0 2 9 2018 0 nil 19800))
|
|
'(0 0 0 29 8 2018 3 nil 19800)))
|
|
(should (equal (chronometrist-previous-week-start '(0 0 0 3 9 2018 1 nil 19800))
|
|
'(0 0 0 29 8 2018 3 nil 19800)))
|
|
(should (equal (chronometrist-previous-week-start '(0 0 0 4 9 2018 2 nil 19800))
|
|
'(0 0 0 29 8 2018 3 nil 19800)))
|
|
(should (equal (chronometrist-previous-week-start '(0 0 0 5 9 2018 3 nil 19800))
|
|
'(0 0 0 5 9 2018 3 nil 19800)))
|
|
(should (equal (chronometrist-previous-week-start '(0 0 0 6 9 2018 4 nil 19800))
|
|
'(0 0 0 5 9 2018 3 nil 19800)))
|
|
(should (equal (chronometrist-previous-week-start '(0 0 0 7 9 2018 5 nil 19800))
|
|
'(0 0 0 5 9 2018 3 nil 19800)))
|
|
(should (equal (chronometrist-previous-week-start '(0 0 0 8 9 2018 6 nil 19800))
|
|
'(0 0 0 5 9 2018 3 nil 19800)))))
|
|
|
|
(ert-deftest chronometrist-previous-week-start-thursday ()
|
|
"Tests for `chronometrist-previous-week-start'."
|
|
(let ((chronometrist-report-week-start-day "Thursday"))
|
|
(should (equal (chronometrist-previous-week-start '(0 0 0 1 9 2018 6 nil 19800))
|
|
'(0 0 0 30 8 2018 4 nil 19800)))
|
|
(should (equal (chronometrist-previous-week-start '(0 0 0 2 9 2018 0 nil 19800))
|
|
'(0 0 0 30 8 2018 4 nil 19800)))
|
|
(should (equal (chronometrist-previous-week-start '(0 0 0 3 9 2018 1 nil 19800))
|
|
'(0 0 0 30 8 2018 4 nil 19800)))
|
|
(should (equal (chronometrist-previous-week-start '(0 0 0 4 9 2018 2 nil 19800))
|
|
'(0 0 0 30 8 2018 4 nil 19800)))
|
|
(should (equal (chronometrist-previous-week-start '(0 0 0 5 9 2018 3 nil 19800))
|
|
'(0 0 0 30 8 2018 4 nil 19800)))
|
|
(should (equal (chronometrist-previous-week-start '(0 0 0 6 9 2018 4 nil 19800))
|
|
'(0 0 0 6 9 2018 4 nil 19800)))
|
|
(should (equal (chronometrist-previous-week-start '(0 0 0 7 9 2018 5 nil 19800))
|
|
'(0 0 0 6 9 2018 4 nil 19800)))
|
|
(should (equal (chronometrist-previous-week-start '(0 0 0 8 9 2018 6 nil 19800))
|
|
'(0 0 0 6 9 2018 4 nil 19800)))))
|
|
|
|
(ert-deftest chronometrist-previous-week-start-friday ()
|
|
"Tests for `chronometrist-previous-week-start'."
|
|
(let ((chronometrist-report-week-start-day "Friday"))
|
|
(should (equal (chronometrist-previous-week-start '(0 0 0 1 9 2018 6 nil 19800))
|
|
'(0 0 0 31 8 2018 5 nil 19800)))
|
|
(should (equal (chronometrist-previous-week-start '(0 0 0 2 9 2018 0 nil 19800))
|
|
'(0 0 0 31 8 2018 5 nil 19800)))
|
|
(should (equal (chronometrist-previous-week-start '(0 0 0 3 9 2018 1 nil 19800))
|
|
'(0 0 0 31 8 2018 5 nil 19800)))
|
|
(should (equal (chronometrist-previous-week-start '(0 0 0 4 9 2018 2 nil 19800))
|
|
'(0 0 0 31 8 2018 5 nil 19800)))
|
|
(should (equal (chronometrist-previous-week-start '(0 0 0 5 9 2018 3 nil 19800))
|
|
'(0 0 0 31 8 2018 5 nil 19800)))
|
|
(should (equal (chronometrist-previous-week-start '(0 0 0 6 9 2018 4 nil 19800))
|
|
'(0 0 0 31 8 2018 5 nil 19800)))
|
|
(should (equal (chronometrist-previous-week-start '(0 0 0 7 9 2018 5 nil 19800))
|
|
'(0 0 0 7 9 2018 5 nil 19800)))
|
|
(should (equal (chronometrist-previous-week-start '(0 0 0 8 9 2018 6 nil 19800))
|
|
'(0 0 0 7 9 2018 5 nil 19800)))))
|
|
|
|
(ert-deftest chronometrist-previous-week-start-saturday ()
|
|
"Tests for `chronometrist-previous-week-start'."
|
|
(let ((chronometrist-report-week-start-day "Saturday"))
|
|
(should (equal (chronometrist-previous-week-start '(0 0 0 30 8 2018 4 nil 19800))
|
|
'(0 0 0 25 8 2018 6 nil 19800)))
|
|
(should (equal (chronometrist-previous-week-start '(0 0 0 31 8 2018 5 nil 19800))
|
|
'(0 0 0 25 8 2018 6 nil 19800)))
|
|
(should (equal (chronometrist-previous-week-start '(0 0 0 2 9 2018 0 nil 19800))
|
|
'(0 0 0 1 9 2018 6 nil 19800)))
|
|
(should (equal (chronometrist-previous-week-start '(0 0 0 3 9 2018 1 nil 19800))
|
|
'(0 0 0 1 9 2018 6 nil 19800)))
|
|
(should (equal (chronometrist-previous-week-start '(0 0 0 4 9 2018 2 nil 19800))
|
|
'(0 0 0 1 9 2018 6 nil 19800)))
|
|
(should (equal (chronometrist-previous-week-start '(0 0 0 5 9 2018 3 nil 19800))
|
|
'(0 0 0 1 9 2018 6 nil 19800)))
|
|
(should (equal (chronometrist-previous-week-start '(0 0 0 6 9 2018 4 nil 19800))
|
|
'(0 0 0 1 9 2018 6 nil 19800)))
|
|
(should (equal (chronometrist-previous-week-start '(0 0 0 7 9 2018 5 nil 19800))
|
|
'(0 0 0 1 9 2018 6 nil 19800)))
|
|
(should (equal (chronometrist-previous-week-start '(0 0 0 8 9 2018 6 nil 19800))
|
|
'(0 0 0 8 9 2018 6 nil 19800)))))
|
|
|
|
;; #### CHRONOMETRIST-COMMON ####
|
|
|
|
(ert-deftest chronometrist-ptod-tests ()
|
|
"Tests for `chronometrist-task-time-one-day'."
|
|
(let ((timeclock-file "test.timelog"))
|
|
(timeclock-reread-log)
|
|
;; basic 1 hour test
|
|
(should (equal (chronometrist-task-time-one-day "Programming" '(0 0 0 1 1 2018))
|
|
[1 0 0]))
|
|
(should (equal (chronometrist-task-time-one-day "Swimming" '(0 0 0 1 1 2018))
|
|
[1 0 0]))
|
|
(should (equal (chronometrist-task-time-one-day "Cooking" '(0 0 0 1 1 2018))
|
|
[1 0 0]))
|
|
(should (equal (chronometrist-task-time-one-day "Guitar" '(0 0 0 1 1 2018))
|
|
[1 0 0]))
|
|
(should (equal (chronometrist-task-time-one-day "Cycling" '(0 0 0 1 1 2018))
|
|
[1 0 0]))
|
|
;; across midnight
|
|
(should (equal (chronometrist-task-time-one-day "Programming" '(0 0 0 2 1 2018))
|
|
[1 0 0]))
|
|
(should (equal (chronometrist-task-time-one-day "Programming" '(0 0 0 3 1 2018))
|
|
[1 0 0]))))
|
|
|
|
(ert-deftest chronometrist-ptod-midnight-clocked-in ()
|
|
"Tests for `chronometrist-task-time-one-day' behaviour
|
|
across midnight + when not clocked out."
|
|
:expected-result :failed
|
|
(let ((timeclock-file "test2.timelog"))
|
|
(timeclock-reread-log)
|
|
(should (equal (chronometrist-task-time-one-day "Test" '(0 0 0 1 1 2018))
|
|
[1 0 0]))
|
|
(should (equal (chronometrist-task-time-one-day "Test" '(0 0 0 2 1 2018))
|
|
[24 0 0]))))
|
|
|
|
;; #### CHRONOMETRIST ####
|
|
|
|
(ert-deftest chronometrist-seconds-to-hms-tests ()
|
|
"Tests for `chronometrist-seconds-to-hms'."
|
|
(should (equal (chronometrist-seconds-to-hms 1)
|
|
[0 0 1]))
|
|
(should (equal (chronometrist-seconds-to-hms 60)
|
|
[0 1 0]))
|
|
(should (equal (chronometrist-seconds-to-hms 61)
|
|
[0 1 1]))
|
|
(should (equal (chronometrist-seconds-to-hms 3600)
|
|
[1 0 0]))
|
|
(should (equal (chronometrist-seconds-to-hms 3660)
|
|
[1 1 0]))
|
|
(should (equal (chronometrist-seconds-to-hms 3661)
|
|
[1 1 1])))
|
|
|
|
(ert-deftest chronometrist-time-add-tests ()
|
|
"Tests for `chronometrist-time-add'."
|
|
(should (equal (chronometrist-time-add [0 0 0] [0 0 0])
|
|
[0 0 0]))
|
|
(should (equal (chronometrist-time-add [0 0 1] [0 0 0])
|
|
[0 0 1]))
|
|
(should (equal (chronometrist-time-add [0 0 1] [0 0 59])
|
|
[0 1 0]))
|
|
(should (equal (chronometrist-time-add [0 1 0] [0 0 1])
|
|
[0 1 1]))
|
|
(should (equal (chronometrist-time-add [0 1 1] [0 59 59])
|
|
[1 1 0])))
|
|
|
|
(ert-deftest chronometrist-ttod-tests ()
|
|
"Tests for `chronometrist-active-time-one-day'."
|
|
(let ((timeclock-file "test.timelog"))
|
|
(timeclock-reread-log)
|
|
;; 1 hour per activity test
|
|
(should (equal (chronometrist-active-time-one-day '(0 0 0 1 1 2018))
|
|
[5 0 0]))
|
|
;; pan-midnight tests
|
|
(should (equal (chronometrist-active-time-one-day '(0 0 0 2 1 2018))
|
|
[1 0 0]))
|
|
(should (equal (chronometrist-active-time-one-day '(0 0 0 3 1 2018))
|
|
[1 0 0]))
|
|
;; 1 second test
|
|
(should (equal (chronometrist-active-time-one-day '(0 0 0 4 1 2018))
|
|
[0 0 1]))))
|
|
|
|
(ert-deftest chronometrist-format-time-tests ()
|
|
"Tests for `chronometrist-format-time'."
|
|
(should (equal (chronometrist-format-time '( 0 0 0))
|
|
" -"))
|
|
(should (equal (chronometrist-format-time '( 0 0 1))
|
|
" 1"))
|
|
(should (equal (chronometrist-format-time '( 0 0 10))
|
|
" 10"))
|
|
(should (equal (chronometrist-format-time '( 0 1 10))
|
|
" 1:10"))
|
|
(should (equal (chronometrist-format-time '( 0 10 10))
|
|
" 10:10"))
|
|
(should (equal (chronometrist-format-time '( 1 10 10))
|
|
" 1:10:10"))
|
|
(should (equal (chronometrist-format-time '(10 10 10))
|
|
"10:10:10"))
|
|
|
|
(should (equal (chronometrist-format-time '[ 0 0 0])
|
|
" -"))
|
|
(should (equal (chronometrist-format-time '[ 0 0 1])
|
|
" 1"))
|
|
(should (equal (chronometrist-format-time '[ 0 0 10])
|
|
" 10"))
|
|
(should (equal (chronometrist-format-time '[ 0 1 10])
|
|
" 1:10"))
|
|
(should (equal (chronometrist-format-time '[ 0 10 10])
|
|
" 10:10"))
|
|
(should (equal (chronometrist-format-time '[ 1 10 10])
|
|
" 1:10:10"))
|
|
(should (equal (chronometrist-format-time '[10 10 10])
|
|
"10:10:10")))
|
|
|
|
(ert-deftest chronometrist-report-iodd-tests ()
|
|
(should (equal (chronometrist-date-op '(2020 2 28) '+)
|
|
'(2020 2 29))))
|
|
|
|
(provide 'chronometrist-tests)
|
|
|
|
;; Local Variables:
|
|
;; nameless-current-name: "chronometrist"
|
|
;; End:
|
|
|
|
;;; chronometrist-tests.el ends here
|