branch: externals/leaf
commit d0f9ceb7efc50e96867c69ed487b6d86f4cdcd31
Author: Naoya Yamashita <con...@gmail.com>
Commit: Naoya Yamashita <con...@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
