[elpa] scratch/org-edna 6cd8a40 28/72: Added test for parsing multiple forms

[Ian Dunn]

branch: scratch/org-edna
commit 6cd8a4000df7fb34f23d159247828ab6ce86793b
Author: Ian D <address@hidden>
Commit: Ian D <address@hidden>

    Added test for parsing multiple forms
---
 org-edna-tests.el | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

diff --git a/org-edna-tests.el b/org-edna-tests.el
index d5f629c..0d2de3b 100644
--- a/org-edna-tests.el
+++ b/org-edna-tests.el
@@ -59,6 +59,22 @@
       (should (not modifier))
       (should (= pos (length input-string))))))
 
+(ert-deftest org-edna-parse-form-multiple-forms ()
+  (let ((input-string "test-string1 test-string2")
+        pos)
+    (pcase-let* ((`(,token1 ,args1 ,modifier1 ,pos1) (org-edna-parse-form 
input-string)))
+      ;; (should (and token1 args1 modifier1 pos1))
+      (should (eq token1 'test-string1))
+      (should (not args1))
+      (should (not modifier1))
+      (should (= pos1 13))
+      (setq pos pos1))
+    (pcase-let* ((`(,token2 ,args2 ,modifier2 ,pos2) (org-edna-parse-form 
(substring input-string pos))))
+      (should (eq token2 'test-string2))
+      (should (not args2))
+      (should (not modifier2))
+      (should (= pos2 12)))))
+
 (defconst org-edna-test-dir
   (expand-file-name (file-name-directory (or load-file-name 
buffer-file-name))))