ADD test helpers for left and plist

This commit is contained in:
Nathan Dwarshuis 2022-06-08 19:27:16 -04:00
parent eb84acd778
commit 99a945ad0e
1 changed files with 52 additions and 1 deletions

View File

@ -24,6 +24,7 @@
;;; Code: ;;; Code:
(require 's) (require 's)
(require 'either)
(require 'dash) (require 'dash)
(require 'org-x) (require 'org-x)
@ -37,6 +38,50 @@
org-x-weekly-plan-file "weekly.org" org-x-weekly-plan-file "weekly.org"
org-x-quarterly-plan-file "quarterly.org")) org-x-quarterly-plan-file "quarterly.org"))
(buttercup-define-matcher :to-be-left-with (a x)
(cl-destructuring-bind
((a-expr . a) (x-expr . x))
(mapcar #'buttercup--expr-and-value (list a x))
(either-from a
(lambda (l)
(if (equal l x)
`(t . ,(format "Expected %s left with %s" a-expr x))
`(nil . ,(format "Expected %s left with %s, but got left with %s"
a-expr x l))))
(lambda ()
`(nil . ,(format "Expected %s to be a left, got a right" a-expr))))))
(buttercup-define-matcher :to-have-same-as-plist (a b)
(cl-destructuring-bind
((a-expr . a) (b-expr . b))
(mapcar #'buttercup--expr-and-value (list a b))
(let* ((a* (-partition 2 a))
(b* (-partition 2 b))
(a-diff (->> (-difference a* b*) (--map (format "%S" it)) (s-join ", ")))
(b-diff (->> (-difference b* a*) (--map (format "%S" it)) (s-join ", "))))
(cond
((and a-diff b-diff)
(cons nil (format "Expected %s to have pairs '%s' and not to have pairs '%s'"
a-expr b-diff a-diff)))
(a-diff
(cons nil (format "Expected %s not to have pairs '%s'" a-expr a-diff)))
(b-diff
(cons nil (format "Expected %s to have pairs '%s'" a-expr b-diff)))
(t
(cons t (format "Expected %s not to have same items as '%s'"
a-expr b-expr)))))))
;; (defun bs-error (id left)
;; (let ((bs (org-x-dag-id->bs id)))
;; (expect (either-is-left-p bs))
;; (expect (either-from-left bs nil) :to-equal left)))
;; (defun bs-action-equal (id ancestry local)
;; (let ((bs (org-x-dag-id-bs id)))
;; (expect (either-is-right-p bs))
;; (from-either (org-x-dag-id-bs id)
;; (expect (org-x-dag-id-bs id) :to-equal bs))
(describe "Sync DAG" (describe "Sync DAG"
;; TODO this won't actually fail if there is an error ;; TODO this won't actually fail if there is an error
(it "Sync completes without error" (it "Sync completes without error"
@ -46,7 +91,13 @@
(it "One random hash is present in the dag" (it "One random hash is present in the dag"
(expect (org-x-dag-id->title "06592f95-9cf5-4d7e-8546-da7796d76813") (expect (org-x-dag-id->title "06592f95-9cf5-4d7e-8546-da7796d76813")
:to-equal :to-equal
"don't be a dick"))) "don't be a dick"))
(it "test my own macros"
(expect (either :left "blabla") :to-be-left-with "blabla"))
(it "test my own macros"
(expect '(:a 1) :to-have-same-as-plist '(:b 1))))
(provide 'org-x-dag-test) (provide 'org-x-dag-test)
;;; org-x-dag-test.el ends here ;;; org-x-dag-test.el ends here