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))))
