[elpa] externals/leaf 539758b 26/46: add testcases

[Stefan Monnier]

branch: externals/leaf
commit 539758bc05fc1526012e50163e545ab6695eab08
Author: Naoya Yamashita <conao3@gmail.com>
Commit: Naoya Yamashita <conao3@gmail.com>

    add testcases
---
 leaf-tests.el | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)

diff --git a/leaf-tests.el b/leaf-tests.el
index 5d277ca..710fb47 100644
--- a/leaf-tests.el
+++ b/leaf-tests.el
@@ -2181,6 +2181,31 @@ Example:
                          (format "Error in `leaf' block.  Error msg: %s"
                                  (error-message-string err))))))))
 
+(cort-deftest-with-macroexpand-let leaf/leaf-path
+    ((leaf-expand-leaf-path t))
+  '(((leaf leaf
+       :config (leaf-init))
+     (prog1 'leaf
+       (leaf-handler-leaf-path leaf)
+       (leaf-init)))
+
+    ((leaf leaf
+       :leaf-path nil
+       :config (leaf-init))
+     (prog1 'leaf
+       (leaf-init)))
+
+    ((leaf leaf
+       :leaf-path t nil
+       :config (leaf-init))
+     (prog1 'leaf
+       (leaf-handler-leaf-path leaf)
+       (leaf-init)))
+
+    ((leaf-handler-leaf-path leaf)
+     (when load-in-progress
+       (add-to-list 'leaf--paths (cons 'leaf load-file-name))))))
+
 (cort-deftest-with-macroexpand leaf/leaf-defun
   '(((leaf annotate
        :commands annotate-mode