From e66af03aee48c6d93ad1a4bfed88e2db907effd5 Mon Sep 17 00:00:00 2001 From: Adam Porter Date: Mon, 5 Jul 2021 01:43:51 -0500 Subject: [PATCH] WIP --- tests/test-org-ql.el | 32 ++++++++++++++++---------------- 1 file changed, 16 insertions(+), 16 deletions(-) diff --git a/tests/test-org-ql.el b/tests/test-org-ql.el index cd0a846..8a7d59b 100644 --- a/tests/test-org-ql.el +++ b/tests/test-org-ql.el @@ -495,22 +495,22 @@ 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)))) ) (describe "Query preambles"