contrapunctus
/
chronometrist
Archived
1
3
Fork 0
Code Issues 1 Pull Requests Projects Releases Wiki Activity
This repository has been archived on 2022-05-13. You can view files and clone it, but cannot push or open issues or pull requests.
chronometrist/tests/chronometrist-backend-tests...

91 lines
2.7 KiB
Org Mode
Raw Normal View History

convert tests to Org LP; move hash table into backend object * create generic functions reset-internal, on-change, backend-empty-p, memory-layer-empty-p * move most of refresh-file to on-change method
2021-10-18 11:44:55 +00:00
* Setup
** test-file-path-stem
#+BEGIN_SRC emacs-lisp
Write backend tests
2021-10-14 03:45:43 +00:00
(defvar chronometrist-test-file-path-stem
(format "%stest" (file-name-directory (or load-file-name default-directory))))
convert tests to Org LP; move hash table into backend object * create generic functions reset-internal, on-change, backend-empty-p, memory-layer-empty-p * move most of refresh-file to on-change method
2021-10-18 11:44:55 +00:00
#+END_SRC
Write backend tests
2021-10-14 03:45:43 +00:00
convert tests to Org LP; move hash table into backend object * create generic functions reset-internal, on-change, backend-empty-p, memory-layer-empty-p * move most of refresh-file to on-change method
2021-10-18 11:44:55 +00:00
** test-backend
#+BEGIN_SRC emacs-lisp
Write backend tests
2021-10-14 03:45:43 +00:00
(defvar chronometrist-test-backend
Write tests for loop-records; move generic function
2021-10-15 02:09:59 +00:00
(make-instance 'chronometrist-plist-backend :path chronometrist-test-file-path-stem))
convert tests to Org LP; move hash table into backend object * create generic functions reset-internal, on-change, backend-empty-p, memory-layer-empty-p * move most of refresh-file to on-change method
2021-10-18 11:44:55 +00:00
#+END_SRC
Write tests for loop-records; move generic function
2021-10-15 02:09:59 +00:00
convert tests to Org LP; move hash table into backend object * create generic functions reset-internal, on-change, backend-empty-p, memory-layer-empty-p * move most of refresh-file to on-change method
2021-10-18 11:44:55 +00:00
** test-first-record
#+BEGIN_SRC emacs-lisp
Write tests for loop-records; move generic function
2021-10-15 02:09:59 +00:00
(defvar chronometrist-test-first-record
'(:name "Programming"
:start "2018-01-01T00:00:00+0530"
:stop "2018-01-01T01:00:00+0530"))
convert tests to Org LP; move hash table into backend object * create generic functions reset-internal, on-change, backend-empty-p, memory-layer-empty-p * move most of refresh-file to on-change method
2021-10-18 11:44:55 +00:00
#+END_SRC
Write tests for loop-records; move generic function
2021-10-15 02:09:59 +00:00
convert tests to Org LP; move hash table into backend object * create generic functions reset-internal, on-change, backend-empty-p, memory-layer-empty-p * move most of refresh-file to on-change method
2021-10-18 11:44:55 +00:00
** test-latest-record
#+BEGIN_SRC emacs-lisp
Write tests for loop-records; move generic function
2021-10-15 02:09:59 +00:00
(defvar chronometrist-test-latest-record
'(:name "Programming"
:tags (reading)
:book "Smalltalk-80: The Language and Its Implementation"
:start "2020-05-10T16:33:17+0530"
:stop "2020-05-10T17:10:48+0530"))
convert tests to Org LP; move hash table into backend object * create generic functions reset-internal, on-change, backend-empty-p, memory-layer-empty-p * move most of refresh-file to on-change method
2021-10-18 11:44:55 +00:00
#+END_SRC
** test-hash-table
#+BEGIN_SRC emacs-lisp
(defvar chronometrist-test-hash-table
(chronometrist-to-hash-table chronometrist-test-backend))
#+END_SRC
Write backend tests
2021-10-14 03:45:43 +00:00
convert tests to Org LP; move hash table into backend object * create generic functions reset-internal, on-change, backend-empty-p, memory-layer-empty-p * move most of refresh-file to on-change method
2021-10-18 11:44:55 +00:00
* Tests
** count-records
#+BEGIN_SRC emacs-lisp
Write backend tests
2021-10-14 03:45:43 +00:00
(ert-deftest chronometrist-count-records ()
(should (= (chronometrist-count-records chronometrist-test-backend) 12)))
convert tests to Org LP; move hash table into backend object * create generic functions reset-internal, on-change, backend-empty-p, memory-layer-empty-p * move most of refresh-file to on-change method
2021-10-18 11:44:55 +00:00
#+END_SRC
Write backend tests
2021-10-14 03:45:43 +00:00
Make current-task a regular function
2021-10-21 09:03:50 +00:00
** latest-record
convert tests to Org LP; move hash table into backend object * create generic functions reset-internal, on-change, backend-empty-p, memory-layer-empty-p * move most of refresh-file to on-change method
2021-10-18 11:44:55 +00:00
#+BEGIN_SRC emacs-lisp
Write backend tests
2021-10-14 03:45:43 +00:00
(ert-deftest chronometrist-latest-record ()
Write tests for loop-records; move generic function
2021-10-15 02:09:59 +00:00
(should (equal (chronometrist-latest-record chronometrist-test-backend)
chronometrist-test-latest-record)))
convert tests to Org LP; move hash table into backend object * create generic functions reset-internal, on-change, backend-empty-p, memory-layer-empty-p * move most of refresh-file to on-change method
2021-10-18 11:44:55 +00:00
#+END_SRC
Write backend tests
2021-10-14 03:45:43 +00:00
Make current-task a regular function
2021-10-21 09:03:50 +00:00
** current-task
convert tests to Org LP; move hash table into backend object * create generic functions reset-internal, on-change, backend-empty-p, memory-layer-empty-p * move most of refresh-file to on-change method
2021-10-18 11:44:55 +00:00
#+BEGIN_SRC emacs-lisp
Write backend tests
2021-10-14 03:45:43 +00:00
(ert-deftest chronometrist-current-task ()
(chronometrist-insert chronometrist-test-backend '(:name "Test"))
(should (equal (chronometrist-current-task chronometrist-test-backend) "Test"))
(chronometrist-sexp-in-file (chronometrist-backend-file chronometrist-test-backend)
(goto-char (point-max))
(backward-list)
(chronometrist-sexp-delete-list)
(save-buffer))
(should (not (chronometrist-current-task chronometrist-test-backend))))
convert tests to Org LP; move hash table into backend object * create generic functions reset-internal, on-change, backend-empty-p, memory-layer-empty-p * move most of refresh-file to on-change method
2021-10-18 11:44:55 +00:00
#+END_SRC
Write backend tests
2021-10-14 03:45:43 +00:00
convert tests to Org LP; move hash table into backend object * create generic functions reset-internal, on-change, backend-empty-p, memory-layer-empty-p * move most of refresh-file to on-change method
2021-10-18 11:44:55 +00:00
** loop-records
#+BEGIN_SRC emacs-lisp
Write tests for loop-records; move generic function
2021-10-15 02:09:59 +00:00
(ert-deftest chronometrist-loop-records ()
;; `chronometrist-loop-records' is deliberately run twice here
(should (equal (first (last (chronometrist-loop-records for record in chronometrist-test-backend
collect record)))
chronometrist-test-first-record))
(should (equal (first (chronometrist-loop-records for record in chronometrist-test-backend
collect record))
chronometrist-test-latest-record)))
convert tests to Org LP; move hash table into backend object * create generic functions reset-internal, on-change, backend-empty-p, memory-layer-empty-p * move most of refresh-file to on-change method
2021-10-18 11:44:55 +00:00
#+END_SRC
Write tests for loop-records; move generic function
2021-10-15 02:09:59 +00:00
convert tests to Org LP; move hash table into backend object * create generic functions reset-internal, on-change, backend-empty-p, memory-layer-empty-p * move most of refresh-file to on-change method
2021-10-18 11:44:55 +00:00
** list-tasks
#+BEGIN_SRC emacs-lisp
Write tests for loop-records; move generic function
2021-10-15 02:09:59 +00:00
(ert-deftest chronometrist-list-tasks ()
Write backend tests
2021-10-14 03:45:43 +00:00
(let ((task-list (chronometrist-list-tasks chronometrist-test-backend)))
(should (listp task-list))
(should (seq-every-p #'stringp task-list))))
convert tests to Org LP; move hash table into backend object * create generic functions reset-internal, on-change, backend-empty-p, memory-layer-empty-p * move most of refresh-file to on-change method
2021-10-18 11:44:55 +00:00
#+END_SRC
** task-records
#+BEGIN_SRC emacs-lisp
(ert-deftest chronometrist-task-records ()
)
#+END_SRC