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

Tests: (src) More normal forms

Browse source
This commit is contained in:
Adam Porter 2023-03-09 01:44:20 -06:00
parent 1fdad05fef
commit 2ae60f8dc5
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -328,7 +328,10 @@ with keyword arg NOW in PLIST."
(expect (org-ql--normalize-query '(src :regexps ("foo") :lang "bar")) (expect (org-ql--normalize-query '(src :regexps ("foo") :lang "bar"))
:to-equal '(src :lang "bar" :regexps '("foo"))) :to-equal '(src :lang "bar" :regexps '("foo")))
(expect (org-ql--normalize-query '(src :regexps ("foo") :lang)) (expect (org-ql--normalize-query '(src :regexps ("foo") :lang))
:to-equal '(src :regexps '("foo"))))) :to-equal '(src :regexps '("foo"))))
(it "normalizes just the :lang keyword arg"
(expect (org-ql--normalize-query '(src :lang "bar"))
:to-equal '(src :lang "bar" :regexps 'nil))))
(describe "(tags-inherited)" (describe "(tags-inherited)"
(it "handles 0 arguments" (it "handles 0 arguments"