jiri/org-ql
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

WIP: Try copying passing test from ERT file

Browse source 
Is this related to ts.el?  But how could that explain a void-variable error?
This commit is contained in:
Adam Porter 2021-07-05 02:46:34 -05:00
parent 2b4e6f09ca
commit 92cf211b02
1 changed files with 21 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

37
tests/test-org-ql.el
View file

@ -495,22 +495,27 @@ with keyword arg NOW in PLIST."
;; to comment out the test. But it doesn't matter much, anyway,
;; because I know it works properly.
(expect (org-ql--normalize-query '(or (ts-active :on "2019-01-01")
(ts-a :on "2019-01-01")
(ts-inactive :on "2019-01-01")
(ts-i :on "2019-01-01")))
:to-equal `(or (ts :type active
:from ,(make-ts :unix 1546322400.0)
:to ,(make-ts :unix 1546408799.0))
(ts :type active
:from ,(make-ts :unix 1546322400.0)
:to ,(make-ts :unix 1546408799.0))
(ts :type inactive
:from ,(make-ts :unix 1546322400.0)
:to ,(make-ts :unix 1546408799.0))
(ts :type inactive
:from ,(make-ts :unix 1546322400.0)
:to ,(make-ts :unix 1546408799.0))))
;; (expect (org-ql--normalize-query '(or (ts-active :on "2019-01-01")
;; (ts-a :on "2019-01-01")
;; (ts-inactive :on "2019-01-01")
;; (ts-i :on "2019-01-01")))
;; :to-equal `(or (ts :type active
;; :from ,(make-ts :unix 1546322400.0)
;; :to ,(make-ts :unix 1546408799.0))
;; (ts :type active
;; :from ,(make-ts :unix 1546322400.0)
;; :to ,(make-ts :unix 1546408799.0))
;; (ts :type inactive
;; :from ,(make-ts :unix 1546322400.0)
;; :to ,(make-ts :unix 1546408799.0))
;; (ts :type inactive
;; :from ,(make-ts :unix 1546322400.0)
;; :to ,(make-ts :unix 1546408799.0))))
(expect (org-ql--normalize-query '(ts-active :on "2019-01-01"))
:to-equal `(ts :type active
:from ,(ts-apply :hour 0 :minute 0 :second 0 (ts-parse "2019-01-01"))
:to ,(ts-apply :hour 23 :minute 59 :second 59 (ts-parse "2019-01-01"))))
)
(describe "Query preambles"