[elpa] externals/leaf ad3b6a0 16/18: fix testcases

[Stefan Monnier]

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

    fix testcases
---
 leaf-tests.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/leaf-tests.el b/leaf-tests.el
index 3a8e607..bf87adf 100644
--- a/leaf-tests.el
+++ b/leaf-tests.el
@@ -156,6 +156,7 @@ Example:
 (setq leaf-expand-leaf-defun nil)
 (setq leaf-expand-leaf-defvar nil)
 (setq leaf-expand-leaf-path nil)
+(setq leaf-expand-leaf-defer-let nil)
 
 (cort-deftest-with-macroexpand leaf/none
   '(((leaf leaf)
@@ -2341,7 +2342,7 @@ Example:
        (leaf-init)))
 
     ((leaf-handler-leaf-path leaf)
-     (let ((file (or load-file-name buffer-file-name 
byte-compile-current-file)))
+     (let ((file (leaf-this-file)))
        (unless (boundp 'leaf--paths) (defvar leaf--paths nil))
        (when file
          (add-to-list 'leaf--paths (cons 'leaf file)))))))