branch: master commit c675036b1aca5301350a7a0673ea09921b30e11b Author: Ian D <du...@gnu.org> Commit: Ian D <du...@gnu.org>
Added test for empty argument list --- org-edna-tests.el | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/org-edna-tests.el b/org-edna-tests.el index 0d2de3b..3444096 100644 --- a/org-edna-tests.el +++ b/org-edna-tests.el @@ -75,6 +75,14 @@ (should (not modifier2)) (should (= pos2 12))))) +(ert-deftest org-edna-parse-form-empty-argument-list () + (let ((input-string "test-string1()")) + (pcase-let* ((`(,token1 ,args1 ,modifier1 ,pos1) (org-edna-parse-form input-string))) + (should (eq token1 'test-string1)) + (should (not args1)) + (should (not modifier1)) + (should (= pos1 (length input-string)))))) + (defconst org-edna-test-dir (expand-file-name (file-name-directory (or load-file-name buffer-file-name))))