[elpa] externals/leaf c5ddde8 09/46: leaf-path: add test

[Stefan Monnier]

branch: externals/leaf
commit c5ddde8bbb2d6965fd4e03fa4d6ea48fa8122f30
Author: Zheng Junjie <873216071@qq.com>
Commit: Zheng Junjie <873216071@qq.com>

    leaf-path: add test
---
 leaf-tests.el | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/leaf-tests.el b/leaf-tests.el
index ff47f0e..3c706ee 100644
--- a/leaf-tests.el
+++ b/leaf-tests.el
@@ -2780,6 +2780,16 @@ Example:
        (mapcar 'car (cdr (assoc "Leaf" (funcall 
imenu-create-index-function)))))
      '("scala-mode" "lsp-metals" "*scala-flycheck-integration"))))
 
+(let ((leaf--paths nil))
+  ;; must eval in `require' or `load'.
+  (leaf leaf-1)
+  (leaf leaf-2 :leaf-path nil)
+  (eval `(cort-deftest-with-equal leaf/leaf-path
+           '((leaf--paths
+              ',(list (cons 'leaf-1 load-file-name)))
+             ((assoc 'leaf-2 leaf--paths)
+              nil)))))
+
 (when (version<= "24.3" emacs-version)
   (require 'cl-lib)
   (cort-deftest-with-equal leaf/leaf-plist-get