Re: master bbb92dde01 1/3: Add unit tests and documentation for Eshell pattern-based globs

[Jim Porter <jporterbugs@gmail.com>]

[-- Attachment #1: Type: text/plain, Size: 793 bytes --]

On 4/17/2022 2:49 AM, Lars Ingebrigtsen wrote:
> Eli Zaretskii <eliz@gnu.org> writes:
> 
>> branch: master
>> commit bbb92dde01ec3fc46b24247fb2d181a21dbcc40a
>> Author: Jim Porter <jporterbugs@gmail.com>
>> Commit: Eli Zaretskii <eliz@gnu.org>
>>
>>      Add unit tests and documentation for Eshell pattern-based globs
> 
> Something in this patch series leads to the following "make check"
> failure (on Debian):
> 
> Invalid read syntax: "#<"
[snip]
> It does not fail with "make em-pred-tests".

Does the attached patch fix it? I think the issue was that 
`eshell-partial-let-func' got the original function value too early, so 
during macro-expansion, it would insert something like `#<subr 
file-attributes>', which the parser didn't like. I've moved this bit 
later and it works for me.

[-- Attachment #2: 0001-Fix-Eshell-predicate-tests-when-running-from-make-ch.patch --]
[-- Type: text/plain, Size: 1317 bytes --]

From d0823f77cb942677d32d5268301f581b19f5ec07 Mon Sep 17 00:00:00 2001
From: Jim Porter <jporterbugs@gmail.com>
Date: Sun, 17 Apr 2022 12:33:58 -0700
Subject: [PATCH] Fix Eshell predicate tests when running from 'make check'

* test/lisp/eshell/em-pred-tests.el (eshell-partial-let-func): Get
original function after macro-expansion.
---
 test/lisp/eshell/em-pred-tests.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/test/lisp/eshell/em-pred-tests.el b/test/lisp/eshell/em-pred-tests.el
index fbf8945215..7f88ac4475 100644
--- a/test/lisp/eshell/em-pred-tests.el
+++ b/test/lisp/eshell/em-pred-tests.el
@@ -95,13 +95,13 @@ eshell-partial-let-func
   `(cl-letf
        ,(mapcar
          (lambda (override)
-           (let ((orig-function (symbol-function (car override))))
-             `((symbol-function #',(car override))
+           `((symbol-function #',(car override))
+             (let ((orig-function (symbol-function #',(car override))))
                (lambda (file &rest rest)
                  (apply
                   (if (and (stringp file) (string-prefix-p "/fake/" file))
                       ,(cadr override)
-                    ,orig-function)
+                    orig-function)
                   file rest)))))
          overrides)
      ,@body))
-- 
2.25.1