From 2ae60f8dc50cf2a156a3ca7ec929d19909139097 Mon Sep 17 00:00:00 2001 From: Adam Porter Date: Thu, 9 Mar 2023 01:44:20 -0600 Subject: [PATCH] Tests: (src) More normal forms --- tests/test-org-ql.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/tests/test-org-ql.el b/tests/test-org-ql.el index 3c44f383..3750798d 100644 --- a/tests/test-org-ql.el +++ b/tests/test-org-ql.el @@ -328,7 +328,10 @@ with keyword arg NOW in PLIST." (expect (org-ql--normalize-query '(src :regexps ("foo") :lang "bar")) :to-equal '(src :lang "bar" :regexps '("foo"))) (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)" (it "handles 0 arguments"