bug#47116: emacsy-minimal build failure

[Maxim Cournoyer]

Hello,

Maxime Devos <maximedevos@telenet.be> writes:

> On Fri, 2021-03-12 at 15:16 -0900, Christopher Howard wrote:
>> When trying to build nomad, emacsy-minimal build dies with this
>> failure:
>> 
>> [...]
> This should be fixed by this patch (not yet applied):
> <https://issues.guix.gnu.org/46960>.
>
> Apparently, this issue has been reporter earlier:
> <https://issues.guix.gnu.org/46934>.

The two above issues/patches have been closed/merged.

Sadly, emacsy still fails to build:

--8<---------------cut here---------------start------------->8---
PASS: test/advice.scm
PASS: test/text.scm
FAIL: test/klecl.scm
FAIL: test/kbd-macro.scm
FAIL: test/minibuffer.scm
PASS: test/help.scm
FAIL: test/core.scm
PASS: test/window.scm
XFAIL: test/windows.scm
============================================================================
Testsuite summary for Emacsy 0.4.1
============================================================================
# TOTAL: 19
# PASS:  14
# SKIP:  0
# XFAIL: 1
# FAIL:  4
# XPASS: 0
# ERROR: 0
============================================================================
See ./test-suite.log
Please report to guile-user@gnu.org
============================================================================
make[3]: *** [Makefile:1497: test-suite.log] Error 1
make[3]: Leaving directory '/tmp/guix-build-emacsy-0.4.1.drv-0/emacsy-0.4.1'
make[2]: *** [Makefile:1605: check-TESTS] Error 2
make[2]: Leaving directory '/tmp/guix-build-emacsy-0.4.1.drv-0/emacsy-0.4.1'
make[1]: *** [Makefile:1807: check-am] Error 2
make[1]: Leaving directory '/tmp/guix-build-emacsy-0.4.1.drv-0/emacsy-0.4.1'
make: *** [Makefile:1809: check] Error 2

Test suite failed, dumping logs.

--- ./test-suite.log --------------------------------------------------------

====================================
   Emacsy 0.4.1: ./test-suite.log
====================================

# TOTAL: 19
# PASS:  14
# SKIP:  0
# XFAIL: 1
# FAIL:  4
# XPASS: 0
# ERROR: 0

.. contents:: :depth: 2

FAIL: test/core
===============

WARNING: (guile-user): imported module (emacsy core) overrides core binding 
`map'
WARNING: (guile-user): `map' imported from both (guile) and (emacsy core)
WARNING: (guile-user): imported module (emacsy core) overrides core binding 
`map'
WARNING: (guile-user): `map' imported from both (guile) and (emacsy core)
WARNING: (guile-user): imported module (emacsy core) overrides core binding 
`map'
WARNING: (guile-user): `map' imported from both (guile) and (emacsy core)
WARNING: (guile-user): imported module (emacsy core) overrides core binding 
`map'
WARNING: (guile-user): `map' imported from both (guile) and (emacsy core)
Backtrace:
           5 (primitive-load "/tmp/guix-build-emacsy-0.4.1.drv-0/ema…")
In ice-9/eval.scm:
    619:8  4 (_ #(#(#<directory (check) 7fffef8db8c0>) (let* (#) …) …))
   293:34  3 (_ #(#(#(#<directory (check) 7fffef8db8c0>) (# # …) …) …))
   182:19  2 (proc #(#(#<directory (guile-user) 7fffef8dbf00> (…)) …))
   142:16  1 (compile-top-call #<directory (guile-user) 7fffef8dbf00> …)
In unknown file:
           0 (%resolve-variable (7 . map) #<directory (guile-user) 7…>)

ERROR: In procedure %resolve-variable:
Unbound variable: map

(eval-expression (quote (+ 1 2))) => 33 ; correct

(let* ((symbols (quote (aa ab c d)))) (let-values (((to-string from-string) 
(object-tracker symbol->string))) (map from-string (all-completions "a" (map 
to-string symbols))))) => FAIL test/core.scm (exit status: 1)

FAIL: test/kbd-macro
====================

RAW-READ-EVENT #<key-event a>

RAW-READ-EVENT #<key-event b>

WARNING: (guile-user): imported module (emacsy kbd-macro) overrides core 
binding `map'
WARNING: (guile-user): `map' imported from both (guile) and (emacsy kbd-macro)
WARNING: (guile-user): imported module (emacsy kbd-macro) overrides core 
binding `map'
WARNING: (guile-user): `map' imported from both (guile) and (emacsy kbd-macro)
WARNING: (guile-user): imported module (emacsy kbd-macro) overrides core 
binding `map'
WARNING: (guile-user): `map' imported from both (guile) and (emacsy kbd-macro)
Backtrace:
           5 (primitive-load "/tmp/guix-build-emacsy-0.4.1.drv-0/ema…")
In ice-9/eval.scm:
    619:8  4 (_ #(#(#<directory (check) 7fffee409820>) (map # #) # …))
   293:34  3 (_ #(#(#(#<directory (check) 7fffee409820>) (map …) …) …))
   182:19  2 (proc #(#(#<directory (guile-user) 7fffef8dbf00>)))
   142:16  1 (compile-top-call #<directory (guile-user) 7fffef8dbf00> …)
In unknown file:
           0 (%resolve-variable (7 . map) #<directory (guile-user) 7…>)

ERROR: In procedure %resolve-variable:
Unbound variable: map

test-command-called => 0 ; correct
RECORDING #<key-event a>a is undefined.RECORDING #<key-event b>b is undefined.
test-command-called => 0 ; *** failed ***
 ; expected result: 1

(map command-char last-kbd-macro) => FAIL test/kbd-macro.scm (exit status: 1)

FAIL: test/klecl
================

Backtrace:
           5 (primitive-load "/tmp/guix-build-emacsy-0.4.1.drv-0/ema…")
In emacsy/agenda.scm:
   167:10  4 (%update-agenda #<<agenda> time: 1 segments: (#<<time-s…>)
    155:4  3 (flush-queue! (() . #f))
In emacsy/coroutine.scm:
    64:13  2 (_)
In ice-9/eval.scm:
   626:19  1 (_ #(#(#<directory (guile-user) 7fffef8dbf00>)))
In emacsy/klecl.scm:
   148:12  0 (read-event _)

emacsy/klecl.scm:148:12: In procedure read-event:
Throw to key `read-event-eof' with args `()'.

last-event => #f ; correct
FAIL test/klecl.scm (exit status: 1)

FAIL: test/minibuffer
=====================

RAW-READ-EVENT #<key-event c>

Switching to minibuffer now.
Running exit hook for "#<buffer '*minibuffer-1*'>"
Exit minibuffer!

Set buffer to "#<buffer '*minibuffer-1*'>"
Running enter hook for "#<buffer '*minibuffer-1*'>"
Enter minibuffer!

RAW-READ-EVENT #<key-event a>

RAW-READ-EVENT #<key-event RET>

Backtrace:
           3 (primitive-load "/tmp/guix-build-emacsy-0.4.1.drv-0/ema…")
In ice-9/eval.scm:
    619:8  2 (_ #(#(#<directory (check) 7fffee3c98c0>) (# "What…") …))
   293:34  1 (_ #(#(#(#<directory (check) 7fffee3c98c0>) (# #) # …) …))
In emacsy/util.scm:
    218:6  0 (in-out-guard _ #<procedure 7fffedddc8c0 at emacsy/min…> …)

emacsy/util.scm:218:6: In procedure in-out-guard:
Throw to key `read-event-eof' with args `()'.

(buffer-string) => "" ; correct

(point) => 1 ; correct

(buffer-string) => "What? " ; correct

(point-min) => 7 ; correct

(buffer-string) => "What? Nothing." ; correct

(buffer-string) => "What? " ; correct

(buffer-string) => "What? A [Huh?]" ; correct

(buffer-string) => "What? A" ; correct
c is undefined.
(buffer-string) => "What? A" ; *** failed ***
 ; expected result: "What? Ac"

(read-from-minibuffer "What? ") => a is undefined.RET is undefined.FAIL 
test/minibuffer.scm (exit status: 1)

XFAIL: test/windows
===================


(window? root-window) => #t ; correct

(window-live? root-window) => #t ; correct

(edges->bcoords (quote (0 1 1 0))) => (0 0 1 1) ; correct

(bcoords->edges (quote (0 0 1 1))) => (0 1 1 0) ; correct

(window? i-window) => #t ; correct

(window? window) => #t ; correct

(procedure? split-window) => #t ; correct

(is-a? s-window <internal-window>) => #t ; correct

(window-pixel-bcoords s-window) => (0 0 1 1) ; correct

(window-pixel-bcoords window) => (#(1 0 0.0) #(0 1 0.5) #(1 0 0.0) #(0 1 0.5)) 
; *** failed ***
 ; expected result: (0.0 0.5 1.0 0.5)

(orientation parent-window) => vertical ; correct

(window-pixel-bcoords small-window) => (#(1 0 0.0) #(0 1 0.2) #(1 0 0.0) #(0 1 
0.2)) ; *** failed ***
 ; expected result: (0.0 0.2 1.0 0.2)

(window-pixel-bcoords big-window) => (#(1 0 0.0) #(0 1 0.0) #(1 0 0.0) #(0 1 
0.0)) ; *** failed ***
 ; expected result: (0.0 0.0 1.0 0.8)

(orientation parent-window-2) => horizontal ; correct

(window-pixel-bcoords left-window) => (#(1 0 0.0) #(0 1 0.0) #(1 0 0.0) #(0 1 
0.0)) ; *** failed ***
 ; expected result: (0.0 0.0 0.2 1.0)

(window-pixel-bcoords right-window) => (#(1 0 0.2) #(0 1 0.0) #(1 0 0.2) #(0 1 
0.0)) ; *** failed ***
 ; expected result: (0.2 0.0 0.8 1.0)

(window? pixel-window) => #t ; correct

(window? sub-window) => #t ; correct

(window-child pixel-window) => #<<window> 7fffeee42d00> ; correct

(window-project sub-window #(1.0 1.0 1.0)) => #(#(500 0 0) #(0 400 0) #(0 0 1)) 
; *** failed ***
 ; expected result: #(500.0 400.0 1.0)

(window-project sub-window #(0.0 0.0 1.0)) => #(#(500 0 0) #(0 400 0) #(0 0 1)) 
; *** failed ***
 ; expected result: #(0.0 0.0 1.0)
Splitting the window

(window-project sub-window #(1.0 1.0 1.0)) => #(#(500 0 0) #(0 400 0) #(0 0 1)) 
; *** failed ***
 ; expected result: #(500.0 400.0 1.0)

(window-project sub-window #(0.0 0.0 1.0)) => #(#(500 0 0) #(0 400 0) #(0 0 1)) 
; *** failed ***
 ; expected result: #(0.0 200.0 1.0)

(window-unproject sub-window #(0.0 200.0 1.0)) => #(#(1.0 0 0) #(0 2.0 0) #(0 0 
1)) ; *** failed ***
 ; expected result: #(0.0 0.0 1.0)

(window-list w) => (#<<window> 7fffeee42c80>) ; correct

(window-tree sw) => (#<<window> 7fffeee42c80> #<<window> 7fffeee42c40>) ; 
correct

(window-list sw) => (#<<window> 7fffeee42c80> #<<window> 7fffeee42c40>) ; 
correct

(window-list sw) => (#<<window> 7fffeee42c80> #<<window> 7fffeee42c40>) ; *** 
failed ***
 ; expected result: (#<<window> 7fffeee42c80> #<<window> 7fffeee42c40> #f)

(window-project window #(0 0 1)) => #(#(1 0 0.0) #(0 1 0.5) #(0 0 1)) ; *** 
failed ***
 ; expected result: #(0.0 0.5 1.0)

(window-project window #(1.0 1.0 1.0)) => #(#(1 0 0.0) #(0 1 0.5) #(0 0 1)) ; 
*** failed ***
 ; expected result: #(1.0 1.0 1.0)

(window-unproject window #(0 0.5 1.0)) => #(#(1.0 0 0) #(0 2.0 0) #(0 0 1)) ; 
*** failed ***
 ; expected result: #(0.0 0.0 1.0)

(window-unproject window #(1.0 1.0 1.0)) => #(#(1.0 0 0) #(0 2.0 0) #(0 0 1)) ; 
*** failed ***
 ; expected result: #(1.0 1.0 1.0)

; *** checks *** : 17 correct, 15 failed. First failed example:

(window-pixel-bcoords window) => (#(1 0 0.0) #(0 1 0.5) #(1 0 0.0) #(0 1 0.5)) 
; *** failed ***
 ; expected result: (0.0 0.5 1.0 0.5)
XFAIL test/windows.scm (exit status: 1)


command "make" "check" "-j" "24" failed with status 2
builder for `/gnu/store/qj6y049rpm1p34r29gj164z1wffwqydl-emacsy-0.4.1.drv' 
failed with exit code 1
@ build-failed /gnu/store/qj6y049rpm1p34r29gj164z1wffwqydl-emacsy-0.4.1.drv - 1 
builder for `/gnu/store/qj6y049rpm1p34r29gj164z1wffwqydl-emacsy-0.4.1.drv' 
failed with exit code 1
derivation '/gnu/store/qj6y049rpm1p34r29gj164z1wffwqydl-emacsy-0.4.1.drv' 
offloaded to '127.0.0.1' failed: build of 
`/gnu/store/qj6y049rpm1p34r29gj164z1wffwqydl-emacsy-0.4.1.drv' failed
--8<---------------cut here---------------end--------------->8---

Maxim