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

tests(key-values): change test tangle location; track test file

This commit is contained in:
contrapunctus 2021-06-06 17:08:19 +05:30
parent a532c0b1c4
commit 68c5a356c5
2 changed files with 38 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
elisp/chronometrist-key-values.org
View File

@ -210,7 +210,7 @@ HISTORY-TABLE must be a hash table. (see `chronometrist-tags-history')"
(chronometrist-history-prep task history-table))
#+END_SRC
**** tests
#+BEGIN_SRC emacs-lisp :tangle chronometrist-key-values-tests.el :load test
#+BEGIN_SRC emacs-lisp :tangle ../tests/chronometrist-key-values-tests.el :load test
(ert-deftest chronometrist-tags-history ()
(progn
(clrhash chronometrist-tags-history)
@ -371,7 +371,7 @@ HISTORY-TABLE must be a hash table (see `chronometrist-key-history')."
(chronometrist-history-prep task history-table))
#+END_SRC
**** tests
#+BEGIN_SRC emacs-lisp :tangle chronometrist-key-values-tests.el :load test
#+BEGIN_SRC emacs-lisp :tangle ../tests/chronometrist-key-values-tests.el :load test
(ert-deftest chronometrist-key-history ()
(progn
(clrhash chronometrist-key-history)
@ -419,7 +419,7 @@ HISTORY-TABLE must be a hash table. (see `chronometrist-value-history')"
history-table))
#+END_SRC
**** tests
#+BEGIN_SRC emacs-lisp :tangle chronometrist-key-values-tests.el :load test
#+BEGIN_SRC emacs-lisp :tangle ../tests/chronometrist-key-values-tests.el :load test
(ert-deftest chronometrist-value-history ()
(progn
(clrhash chronometrist-value-history)

35
tests/chronometrist-key-values-tests.el Normal file
View File

@ -0,0 +1,35 @@
(ert-deftest chronometrist-tags-history ()
(progn
(clrhash chronometrist-tags-history)
(cl-loop for task in '("Guitar" "Programming") do
(chronometrist-tags-history-populate task chronometrist-tags-history "test.sexp")))
(should
(= (hash-table-count chronometrist-tags-history) 2))
(should
(cl-loop for task being the hash-keys of chronometrist-tags-history
always (stringp task)))
(should
(equal (gethash "Guitar" chronometrist-tags-history)
'((classical solo)
(classical warm-up))))
(should
(equal (gethash "Programming" chronometrist-tags-history)
'((reading) (bug-hunting)))))
(ert-deftest chronometrist-key-history ()
(progn
(clrhash chronometrist-key-history)
(cl-loop for task in '("Programming" "Arrangement/new edition") do
(chronometrist-key-history-populate task chronometrist-key-history "test.sexp")))
(should (= (hash-table-count chronometrist-key-history) 2))
(should (= (length (gethash "Programming" chronometrist-key-history)) 3))
(should (= (length (gethash "Arrangement/new edition" chronometrist-key-history)) 2)))
(ert-deftest chronometrist-value-history ()
(progn
(clrhash chronometrist-value-history)
(chronometrist-value-history-populate chronometrist-value-history "test.sexp"))
(should (= (hash-table-count chronometrist-value-history) 5))
(should
(cl-loop for task being the hash-keys of chronometrist-value-history
always (stringp task))))