diff options
Diffstat (limited to 'tests/org-fc-review-data-test.el')
| -rw-r--r-- | tests/org-fc-review-data-test.el | 53 |
1 files changed, 53 insertions, 0 deletions
diff --git a/tests/org-fc-review-data-test.el b/tests/org-fc-review-data-test.el new file mode 100644 index 0000000..c00083b --- /dev/null +++ b/tests/org-fc-review-data-test.el @@ -0,0 +1,53 @@ +(require 'org-fc) +(require 'org-fc-test-helper) +(require 'ert) + +(ert-deftest org-fc-test-review-data () + (let ((index (org-fc-awk-index-paths + (list + (org-fc-test-fixture "index/review_data.org"))))) + (should (eq (length index) 2)) + (let ((card1 (car index)) + (card2 (cadr index))) + + (should + (equal (plist-get card1 :id) + "f8cc05c7-aa3a-4a21-aa71-38178477e619")) + (should + (eq (length (plist-get card1 :positions)) 2)) + + (let* ((poss (plist-get card1 :positions)) + (pos1 (car poss)) + (pos2 (cadr poss))) + + (should (equal (plist-get pos1 :position) "front")) + (should (equal (plist-get pos1 :ease) 2.5)) + (should (equal (plist-get pos1 :box) 0)) + (should (equal (plist-get pos1 :interval) 0)) + (should (equal (plist-get pos1 :due) '(24485 10257))) + + (should (equal (plist-get pos2 :position) "back")) + (should (equal (plist-get pos2 :ease) 2.8)) + (should (equal (plist-get pos2 :box) 2)) + (should (equal (plist-get pos2 :interval) 123.4)) + (should (equal (plist-get pos2 :due) '(24485 10260)))) + + (should + (equal (plist-get card2 :id) + "404557e5-ec07-4ee1-a000-3f0e8a94eaa0")) + (should + (eq (length (plist-get card2 :positions)) 2)) + + (let* ((poss (plist-get card2 :positions)) + (pos1 (car poss)) + (pos2 (cadr poss))) + + (should (equal (plist-get pos1 :position) "front")) + (should (equal (plist-get pos1 :due) '(24485 13305))) + (should (equal (plist-get pos1 :custom1) 1.0)) + (should (equal (plist-get pos1 :custom2) 3)) + + (should (equal (plist-get pos2 :position) "back")) + (should (equal (plist-get pos2 :due) '(24485 13310))) + (should (equal (plist-get pos2 :custom1) 2.0)) + (should (equal (plist-get pos2 :custom2) 4)))))) |