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

Add: (effort) predicate

Browse source 
Closes #80.
This commit is contained in:
Adam Porter 2021-06-16 20:38:20 -05:00
parent 0dc073ffac
commit d8bfa2317a
4 changed files with 176 additions and 36 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -643,6 +643,68 @@ RESULTS should be a list of strings as returned by
(org-ql-expect ('(done))
'("Learn universal sign language")))
(describe "(effort)"
(org-ql-it "with a number"
(org-ql-expect ('(effort 5))
'("Order a pizza"))
(org-ql-expect ('(effort "5"))
'("Order a pizza"))
(org-ql-expect ('(effort "0:05"))
'("Order a pizza"))
(org-ql-expect ('(effort 1))
nil))
(org-ql-it "with two numbers"
(org-ql-expect ('(effort 5 6))
'("Order a pizza"))
(org-ql-expect ('(effort "0:05" "0:05"))
'("Order a pizza"))
(org-ql-expect ('(effort 4 5))
'("Order a pizza"))
(org-ql-expect ('(effort 4 6))
'("Order a pizza"))
(org-ql-expect ('(effort 6 7))
nil))
(org-ql-it "<"
(org-ql-expect ('(effort < 5))
nil)
(org-ql-expect ('(effort < 6))
'("Order a pizza"))
(org-ql-expect ('(effort < "0:06"))
'("Order a pizza")))
(org-ql-it "<="
(org-ql-expect ('(effort <= 4))
nil)
(org-ql-expect ('(effort <= 5))
'("Order a pizza"))
(org-ql-expect ('(effort <= 6))
'("Order a pizza"))
(org-ql-expect ('(effort <= "0:06"))
'("Order a pizza")))
(org-ql-it ">"
(org-ql-expect ('(effort > 4))
'("Order a pizza" "Shop for groceries"))
(org-ql-expect ('(effort > 5))
'("Shop for groceries"))
(org-ql-expect ('(effort > "0:05"))
'("Shop for groceries"))
(org-ql-expect ('(effort > 30))
nil)
(org-ql-expect ('(effort > "0:30"))
nil))
(org-ql-it ">="
(org-ql-expect ('(effort >= 4))
'("Order a pizza" "Shop for groceries"))
(org-ql-expect ('(effort >= 5))
'("Order a pizza" "Shop for groceries"))
(org-ql-expect ('(effort >= "0:05"))
'("Order a pizza" "Shop for groceries"))
(org-ql-expect ('(effort >= 30))
'("Shop for groceries"))
(org-ql-expect ('(effort >= 31))
nil)
(org-ql-expect ('(effort >= "0:31"))
nil)))
(org-ql-it "(habit)"
(org-ql-expect ('(habit))
'("Practice leaping tall buildings in a single bound")))