Tests: (src) Normalization with no args

Closes #293.  Thanks to Akira Komamura (@akirak) for reporting.
This commit is contained in:
Adam Porter 2023-03-09 01:47:53 -06:00
parent 0d9940c5df
commit 8bb1739661
3 changed files with 35 additions and 31 deletions

View file

@ -325,6 +325,9 @@ with keyword arg NOW in PLIST."
(it "normalizes non-keyword args with a :lang keyword arg to keywords"
(expect (org-ql--normalize-query '(src "foo" "bar" :lang "baz"))
:to-equal '(src :lang "baz" :regexps '("foo" "bar"))))
(it "normalizes zero args without looping"
(expect (org-ql--normalize-query '(src))
:to-equal '(src)))
(it "normalizes all-keyword args without looping"
(expect (org-ql--normalize-query '(src :regexps ("foo") :lang "bar"))
:to-equal '(src :lang "bar" :regexps '("foo")))