Tests: (src) Normalization with no args
Closes #293. Thanks to Akira Komamura (@akirak) for reporting.
This commit is contained in:
parent
0d9940c5df
commit
8bb1739661
3 changed files with 35 additions and 31 deletions
|
|
@ -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")))
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue