[elpa] externals/leaf d0f9ceb 25/46: fix testcases

[Stefan Monnier]

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

    fix testcases
---
 leaf-tests.el | 20 ++++++--------------
 1 file changed, 6 insertions(+), 14 deletions(-)

diff --git a/leaf-tests.el b/leaf-tests.el
index 3c706ee..5d277ca 100644
--- a/leaf-tests.el
+++ b/leaf-tests.el
@@ -152,7 +152,10 @@ Example:
 
 ;;;; test definition
 
-(setq leaf-expand-minimally t)
+(setq leaf-expand-leaf-protect nil)
+(setq leaf-expand-leaf-defun nil)
+(setq leaf-expand-leaf-defvar nil)
+(setq leaf-expand-leaf-path nil)
 
 (cort-deftest-with-macroexpand leaf/none
   '(((leaf leaf)
@@ -2102,8 +2105,7 @@ Example:
 ;;;; System keywords
 
 (cort-deftest-with-macroexpand-let leaf/leaf-expand-minimally
-    ((leaf-expand-leaf-protect t)
-     (leaf-expand-minimally    t))
+    ((leaf-expand-minimally t))
   '(((leaf leaf
        :config (leaf-init))
      (prog1 'leaf
@@ -2147,7 +2149,7 @@ Example:
        (leaf-init)))))
 
 (cort-deftest-with-macroexpand-let leaf/leaf-protect
-    ((leaf-expand-minimally nil))
+    ((leaf-expand-leaf-protect t))
   '(((leaf leaf
        :config (leaf-init))
      (prog1 'leaf
@@ -2780,16 +2782,6 @@ 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