Diff of the two buildlogs: -- --- b1/build.log 2025-03-11 11:50:15.706564478 +0000 +++ b2/build.log 2025-03-11 14:20:45.450008707 +0000 @@ -1,6 +1,6 @@ I: pbuilder: network access will be disabled during build -I: Current time: Mon Apr 13 02:56:43 -12 2026 -I: pbuilder-time-stamp: 1776092203 +I: Current time: Wed Mar 12 01:50:18 +14 2025 +I: pbuilder-time-stamp: 1741693818 I: Building the build Environment I: extracting base tarball [/var/cache/pbuilder/trixie-reproducible-base.tgz] I: copying local configuration @@ -22,52 +22,84 @@ dpkg-source: info: unpacking racket-mode_20250212~git.eef5e9a-1.debian.tar.xz I: Not using root during the build. I: Installing the build-deps -I: user script /srv/workspace/pbuilder/1753909/tmp/hooks/D02_print_environment starting +I: user script /srv/workspace/pbuilder/2951003/tmp/hooks/D01_modify_environment starting +debug: Running on codethink04-arm64. +I: Changing host+domainname to test build reproducibility +I: Adding a custom variable just for the fun of it... +I: Changing /bin/sh to bash +'/bin/sh' -> '/bin/bash' +lrwxrwxrwx 1 root root 9 Mar 11 11:50 /bin/sh -> /bin/bash +I: Setting pbuilder2's login shell to /bin/bash +I: Setting pbuilder2's GECOS to second user,second room,second work-phone,second home-phone,second other +I: user script /srv/workspace/pbuilder/2951003/tmp/hooks/D01_modify_environment finished +I: user script /srv/workspace/pbuilder/2951003/tmp/hooks/D02_print_environment starting I: set - BUILDDIR='/build/reproducible-path' - BUILDUSERGECOS='first user,first room,first work-phone,first home-phone,first other' - BUILDUSERNAME='pbuilder1' - BUILD_ARCH='arm64' - DEBIAN_FRONTEND='noninteractive' + BASH=/bin/sh + BASHOPTS=checkwinsize:cmdhist:complete_fullquote:extquote:force_fignore:globasciiranges:globskipdots:hostcomplete:interactive_comments:patsub_replacement:progcomp:promptvars:sourcepath + BASH_ALIASES=() + BASH_ARGC=() + BASH_ARGV=() + BASH_CMDS=() + BASH_LINENO=([0]="12" [1]="0") + BASH_LOADABLES_PATH=/usr/local/lib/bash:/usr/lib/bash:/opt/local/lib/bash:/usr/pkg/lib/bash:/opt/pkg/lib/bash:. + BASH_SOURCE=([0]="/tmp/hooks/D02_print_environment" [1]="/tmp/hooks/D02_print_environment") + BASH_VERSINFO=([0]="5" [1]="2" [2]="37" [3]="1" [4]="release" [5]="aarch64-unknown-linux-gnu") + BASH_VERSION='5.2.37(1)-release' + BUILDDIR=/build/reproducible-path + BUILDUSERGECOS='second user,second room,second work-phone,second home-phone,second other' + BUILDUSERNAME=pbuilder2 + BUILD_ARCH=arm64 + DEBIAN_FRONTEND=noninteractive DEB_BUILD_OPTIONS='buildinfo=+all reproducible=+all parallel=12 ' - DISTRIBUTION='trixie' - HOME='/root' - HOST_ARCH='arm64' + DIRSTACK=() + DISTRIBUTION=trixie + EUID=0 + FUNCNAME=([0]="Echo" [1]="main") + GROUPS=() + HOME=/root + HOSTNAME=i-capture-the-hostname + HOSTTYPE=aarch64 + HOST_ARCH=arm64 IFS=' ' - INVOCATION_ID='3ac0d689e8094f35b39534e0b97eed22' - LANG='C' - LANGUAGE='en_US:en' - LC_ALL='C' - MAIL='/var/mail/root' - OPTIND='1' - PATH='/usr/sbin:/usr/bin:/sbin:/bin:/usr/games' - PBCURRENTCOMMANDLINEOPERATION='build' - PBUILDER_OPERATION='build' - PBUILDER_PKGDATADIR='/usr/share/pbuilder' - PBUILDER_PKGLIBDIR='/usr/lib/pbuilder' - PBUILDER_SYSCONFDIR='/etc' - PPID='1753909' - PS1='# ' - PS2='> ' + INVOCATION_ID=fe15c9dc1aec4d7097a0ddf57fba119d + LANG=C + LANGUAGE=nl_BE:nl + LC_ALL=C + MACHTYPE=aarch64-unknown-linux-gnu + MAIL=/var/mail/root + OPTERR=1 + OPTIND=1 + OSTYPE=linux-gnu + PATH=/usr/sbin:/usr/bin:/sbin:/bin:/usr/games:/i/capture/the/path + PBCURRENTCOMMANDLINEOPERATION=build + PBUILDER_OPERATION=build + PBUILDER_PKGDATADIR=/usr/share/pbuilder + PBUILDER_PKGLIBDIR=/usr/lib/pbuilder + PBUILDER_SYSCONFDIR=/etc + PIPESTATUS=([0]="0") + POSIXLY_CORRECT=y + PPID=2951003 PS4='+ ' - PWD='/' - SHELL='/bin/bash' - SHLVL='2' - SUDO_COMMAND='/usr/bin/timeout -k 18.1h 18h /usr/bin/ionice -c 3 /usr/bin/nice /usr/sbin/pbuilder --build --configfile /srv/reproducible-results/rbuild-debian/r-b-build.yxiJcC2r/pbuilderrc_ZcXT --distribution trixie --hookdir /etc/pbuilder/first-build-hooks --debbuildopts -b --basetgz /var/cache/pbuilder/trixie-reproducible-base.tgz --buildresult /srv/reproducible-results/rbuild-debian/r-b-build.yxiJcC2r/b1 --logfile b1/build.log racket-mode_20250212~git.eef5e9a-1.dsc' - SUDO_GID='109' - SUDO_UID='104' - SUDO_USER='jenkins' - TERM='unknown' - TZ='/usr/share/zoneinfo/Etc/GMT+12' - USER='root' - _='/usr/bin/systemd-run' - http_proxy='http://192.168.101.4:3128' + PWD=/ + SHELL=/bin/bash + SHELLOPTS=braceexpand:errexit:hashall:interactive-comments:posix + SHLVL=3 + SUDO_COMMAND='/usr/bin/timeout -k 24.1h 24h /usr/bin/ionice -c 3 /usr/bin/nice -n 11 /usr/bin/unshare --uts -- /usr/sbin/pbuilder --build --configfile /srv/reproducible-results/rbuild-debian/r-b-build.yxiJcC2r/pbuilderrc_6rrG --distribution trixie --hookdir /etc/pbuilder/rebuild-hooks --debbuildopts -b --basetgz /var/cache/pbuilder/trixie-reproducible-base.tgz --buildresult /srv/reproducible-results/rbuild-debian/r-b-build.yxiJcC2r/b2 --logfile b2/build.log racket-mode_20250212~git.eef5e9a-1.dsc' + SUDO_GID=109 + SUDO_UID=104 + SUDO_USER=jenkins + TERM=unknown + TZ=/usr/share/zoneinfo/Etc/GMT-14 + UID=0 + USER=root + _='I: set' + http_proxy=http://192.168.101.4:3128 I: uname -a - Linux codethink03-arm64 6.1.0-31-cloud-arm64 #1 SMP Debian 6.1.128-1 (2025-02-07) aarch64 GNU/Linux + Linux i-capture-the-hostname 6.1.0-31-cloud-arm64 #1 SMP Debian 6.1.128-1 (2025-02-07) aarch64 GNU/Linux I: ls -l /bin - lrwxrwxrwx 1 root root 7 Mar 4 2025 /bin -> usr/bin -I: user script /srv/workspace/pbuilder/1753909/tmp/hooks/D02_print_environment finished + lrwxrwxrwx 1 root root 7 Mar 4 11:20 /bin -> usr/bin +I: user script /srv/workspace/pbuilder/2951003/tmp/hooks/D02_print_environment finished -> Attempting to satisfy build-dependencies -> Creating pbuilder-satisfydepends-dummy package Package: pbuilder-satisfydepends-dummy @@ -377,7 +409,7 @@ Get: 250 http://deb.debian.org/debian trixie/main arm64 tex-common all 6.19 [29.4 kB] Get: 251 http://deb.debian.org/debian trixie/main arm64 texinfo-lib arm64 7.1.1-1+b1 [220 kB] Get: 252 http://deb.debian.org/debian trixie/main arm64 texinfo all 7.1.1-1 [1753 kB] -Fetched 267 MB in 3s (106 MB/s) +Fetched 267 MB in 1s (279 MB/s) Preconfiguring packages ... Selecting previously unselected package libpython3.13-minimal:arm64. (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 19914 files and directories currently installed.) @@ -1203,8 +1235,8 @@ Setting up tzdata (2025a-2) ... Current default time zone: 'Etc/UTC' -Local time is now: Mon Apr 13 14:58:13 UTC 2026. -Universal Time is now: Mon Apr 13 14:58:13 UTC 2026. +Local time is now: Tue Mar 11 11:50:56 UTC 2025. +Universal Time is now: Tue Mar 11 11:50:56 UTC 2025. Run 'dpkg-reconfigure tzdata' if you wish to change it. Setting up liberror-perl (0.17030-1) ... @@ -1449,7 +1481,11 @@ Building tag database... -> Finished parsing the build-deps I: Building the package -I: Running cd /build/reproducible-path/racket-mode-20250212~git.eef5e9a/ && env PATH="/usr/sbin:/usr/bin:/sbin:/bin:/usr/games" HOME="/nonexistent/first-build" dpkg-buildpackage -us -uc -b && env PATH="/usr/sbin:/usr/bin:/sbin:/bin:/usr/games" HOME="/nonexistent/first-build" dpkg-genchanges -S > ../racket-mode_20250212~git.eef5e9a-1_source.changes +I: user script /srv/workspace/pbuilder/2951003/tmp/hooks/A99_set_merged_usr starting +Not re-configuring usrmerge for trixie +I: user script /srv/workspace/pbuilder/2951003/tmp/hooks/A99_set_merged_usr finished +hostname: Name or service not known +I: Running cd /build/reproducible-path/racket-mode-20250212~git.eef5e9a/ && env PATH="/usr/sbin:/usr/bin:/sbin:/bin:/usr/games:/i/capture/the/path" HOME="/nonexistent/second-build" dpkg-buildpackage -us -uc -b && env PATH="/usr/sbin:/usr/bin:/sbin:/bin:/usr/games:/i/capture/the/path" HOME="/nonexistent/second-build" dpkg-genchanges -S > ../racket-mode_20250212~git.eef5e9a-1_source.changes dpkg-buildpackage: info: source package racket-mode dpkg-buildpackage: info: source version 20250212~git.eef5e9a-1 dpkg-buildpackage: info: source distribution unstable @@ -1511,8 +1547,8 @@ emacs --batch -Q --eval '(progn (add-to-list (quote load-path) "/build/reproducible-path/racket-mode-20250212~git.eef5e9a/doc/../") (package-initialize))' -l generate.el --funcall 'racket-generate-reference.org' Note, built-in variable `image-scaling-factor' not bound emacs --batch -Q -l ox-texinfo racket-mode.org --eval "(setq indent-tabs-mode nil make-backup-files nil org-src-preserve-indentation t)" --funcall org-texinfo-export-to-texinfo -Processing Texinfo file /tmp/testo4iq0c.info... -makeinfo: warning: input file testo4iq0c.info; did you mean testo4iq0c.texi? +Processing Texinfo file /tmp/testh1E5aU.info... +makeinfo: warning: input file testh1E5aU.info; did you mean testh1E5aU.texi? Process completed. makeinfo --no-split racket-mode.texi -o racket-mode.info makeinfo --html --no-split --no-headers --no-number-sections --set-customization-variable DOCTYPE="" --css-ref='racket-mode.css' racket-mode.texi @@ -1531,15 +1567,15 @@ raco test: (submod (file "./racket/find.rkt") test) raco test: (submod (file "./racket/identifier.rkt") test) raco test: (submod (file "./racket/imports.rkt") test) -cpu time: 17 real time: 45 gc time: 1 +cpu time: 16 real time: 16 gc time: 1 raco test: (submod (file "./racket/logger.rkt") test) raco test: (submod (file "./racket/scribble.rkt") test) Skipping identifier->bluebox tests (racket-doc seemingly not installed). raco test: (submod (file "./racket/syntax.rkt") test) raco test: (submod (file "./racket/text-lines.rkt") test) raco test: (submod (file "./racket/commands/check-syntax.rkt") test) -cpu time: 78108 real time: 242400 gc time: 22356 -cpu time: 236 real time: 466 gc time: 9 +cpu time: 74712 real time: 74736 gc time: 22152 +cpu time: 240 real time: 240 gc time: 26 raco test: (submod (file "./racket/commands/describe.rkt") test) raco test: (submod (file "./racket/commands/find-module.rkt") test) raco test: (submod (file "./racket/commands/requires.rkt") test) @@ -1554,23 +1590,23 @@ dh_elpa_test emacs -batch -Q -l package --eval "(add-to-list 'package-directory-list \"/usr/share/emacs/site-lisp/elpa\")" --eval "(add-to-list 'package-directory-list \"/usr/share/emacs/site-lisp/elpa-src\")" --eval "(setq ert-batch-backtrace-right-margin nil)" -f package-initialize -L . -L test --eval "(progn (setenv \"DEBIAN_BUILDD\" \"1\") (setq user-emacs-directory \"/tmp/emacs-home\"))" -l test/racket-tests.el -f ert-run-tests-batch-and-exit Note, built-in variable `image-scaling-factor' not bound -Running 15 tests (2026-04-13 04:46:48-1200, selector `t') +Running 15 tests (2025-03-12 02:39:09+1400, selector `t') racket-test/unique-repls - passed 1/15 racket-test/unique-repls (0.017831 sec) - passed 2/15 racket-tests/cmd-read (5.466981 sec) + passed 1/15 racket-test/unique-repls (0.006015 sec) + passed 2/15 racket-tests/cmd-read (2.256683 sec) racket-tests/debugger Break before expression Break before expression Break after expression: (values 42) {racket-back-end-/} killed - -Break before expression {racket--repl-start}: picked next session id 1 back end is (:directory "/" :racket-program nil :remote-source-dir nil :restart-watch-directories nil :windows nil) {logger /}: [ info] racket-mode: starting repl session 1 {logger /}: [ debug] racket-mode: (set-session! 1 #f) => sessions: #hasheq((1 . #(struct:session # # # # #f #))) {logger /}: [ debug] racket-mode: (set-session! 1 #f) => sessions: #hasheq((1 . #(struct:session # # # # #f #))) +{logger /}: [ debug] racket-mode: (set-session! 1 #f) => sessions: #hasheq((1 . #(struct:session # # # # #f #))) +{logger /}: [ debug] racket-mode: 27 cpu | 27 real | 0 gc :: '(1 "*" (repl-start 1)) back end is (:directory "/" :racket-program nil :remote-source-dir nil :restart-watch-directories nil :windows nil) {logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(10 "*" (hash-lang create 1 () "#lang racket/base\n(define (f x) (+ 1 x))\n(f 41)\n")) {racket--repl-start}: picked next session id 2 @@ -1579,286 +1615,376 @@ {logger /}: [ debug] racket-mode: (set-session! 2 #f) => sessions: #hasheq((2 . #(struct:session # # # # #f #))) {logger /}: [ debug] racket-mode: (set-session! 2 #f) => sessions: #hasheq((2 . #(struct:session # # # # #f #))) {logger /}: [ debug] racket-mode: (set-session! 2 #f) => sessions: #hasheq((2 . #(struct:session # # # # #f #))) -{logger /}: [ debug] racket-mode: 20 cpu | 36 real | 9 gc :: '(12 "*" (repl-start 2)) -{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(18 "*" (hash-lang update 2 5 31 0 " ")) -{logger /}: [ debug] racket-mode: '(run ("/tmp/testoG1hk5.rkt") ((test) (main)) 2048 #t 80 1 debug () ("/tmp/testoG1hk5.rkt" "/tmp/ajnGjBS.rkt" "/tmp/bwp2sAu.rkt" "/tmp/c5HWjqx.rkt" "/tmp/testoG1hk5.rkt")): using session ID 2 +{logger /}: [ debug] racket-mode: 22 cpu | 22 real | 0 gc :: '(12 "*" (repl-start 2)) {logger /}: [ debug] racket-mode: '(debug-disable): using session ID 2 {logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(13 2 (debug-disable)) -{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(15 "*" (hash-lang update 2 2 1 0 " \n")) -{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(16 "*" (hash-lang update 2 3 1 30 " \n")) +{logger /}: [ debug] racket-mode: '(run ("/tmp/testpuNC5A.rkt") ((test) (main)) 2048 #t 80 1 debug () ("/tmp/testpuNC5A.rkt" "/tmp/abHi9Pl.rkt" "/tmp/bPLxuV9.rkt" "/tmp/cw7LrJO.rkt" "/tmp/testpuNC5A.rkt")): using session ID 2 +{logger /}: [ debug] racket-mode: (set-session! 2 #) => sessions: #hasheq((2 . #(struct:session # # # # # #))) {logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(17 "*" (hash-lang update 2 4 30 1 "\n")) -{logger /}: [ debug] racket-mode: (set-session! 2 #) => sessions: #hasheq((2 . #(struct:session # # # # # #))) {logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(19 "*" (hash-lang update 2 6 32 1 " ")) +{logger /}: [ debug] racket-mode: 17 cpu | 17 real | 9 gc :: '(15 "*" (hash-lang update 2 2 1 0 " \n")) +{logger /}: [ debug] racket-mode: 17 cpu | 17 real | 9 gc :: '(16 "*" (hash-lang update 2 3 1 30 " \n")) +{logger /}: [ debug] racket-mode: 5 cpu | 5 real | 0 gc :: '(20 "*" (hash-lang update 2 7 31 2 "")) +{logger /}: [ debug] racket-mode: 19 cpu | 19 real | 9 gc :: '(18 "*" (hash-lang update 2 5 31 0 " ")) {logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(23 "*" (hash-lang update 2 10 61 1 "\n")) -{logger /}: [ debug] racket-mode: 5 cpu | 17 real | 0 gc :: '(20 "*" (hash-lang update 2 7 31 2 "")) -{logger /}: [ debug] racket-mode: 5 cpu | 17 real | 0 gc :: '(21 "*" (hash-lang update 2 8 31 0 " \n")) -{logger /}: [ debug] racket-mode: 5 cpu | 17 real | 0 gc :: '(22 "*" (hash-lang update 2 9 31 31 " \n")) +{logger /}: [ debug] racket-mode: 5 cpu | 5 real | 0 gc :: '(21 "*" (hash-lang update 2 8 31 0 " \n")) +{logger /}: [ debug] racket-mode: 5 cpu | 5 real | 0 gc :: '(22 "*" (hash-lang update 2 9 31 31 " \n")) {logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(27 "*" (hash-lang update 2 14 104 1 "\n")) -{logger /}: [ debug] racket-mode: 31 cpu | 69 real | 26 gc :: '(24 "*" (hash-lang update 2 11 62 0 " ")) -{logger /}: [ debug] racket-mode: 32 cpu | 69 real | 26 gc :: '(25 "*" (hash-lang update 2 12 104 0 "\n")) -{logger /}: [ debug] racket-mode: 32 cpu | 70 real | 26 gc :: '(26 +{logger /}: [ debug] racket-mode: 5 cpu | +Break before expression + Break before expression Break after expression: (values 42) - "*" (hash-lang update 2 13 62 43 " \n")) -{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(29 "*" (hash-lang update 2 16 125 1 " ")) +5 real | 0 gc :: '(24 "*" (hash-lang update 2 11 62 0 " ")) +{logger /}: [ debug] racket-mode: 5 cpu | 5 real | 0 gc :: '(25 "*" (hash-lang update 2 12 104 0 "\n")) +{logger /}: [ debug] racket-mode: 5 cpu | 5 real | 0 gc :: '(26 "*" (hash-lang update 2 13 62 43 " \n")) {logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(28 "*" (hash-lang update 2 15 105 0 " ")) +{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(29 "*" (hash-lang update 2 16 125 1 " ")) {logger /}: [ debug] racket-mode: '(debug-resume (all (0 before))): using session ID 2 {logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(30 2 (debug-resume (all (0 before)))) -{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(33 "*" (hash-lang update 2 19 125 1 " ")) {logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(31 "*" (hash-lang update 2 17 105 21 "")) {logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(32 "*" (hash-lang update 2 18 105 0 " ")) +{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(33 "*" (hash-lang update 2 19 125 1 " ")) {logger /}: [ debug] racket-mode: '(debug-resume (all (1 before))): using session ID 2 {logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(34 2 (debug-resume (all (1 before)))) -{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(39 "*" (hash-lang update 2 24 107 1 "\n")) {logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(35 "*" (hash-lang update 2 20 105 0 " ")) {logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(36 "*" (hash-lang update 2 21 105 2 "42")) {logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(37 "*" (hash-lang update 2 22 106 1 "2")) {logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(38 "*" (hash-lang update 2 23 107 0 "\n")) -{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(44 "*" (hash-lang update 2 29 129 1 " ")) {logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(40 "*" (hash-lang update 2 25 107 1 "\n")) -{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(41 "*" (hash-lang update 2 26 108 0 "\n")) +{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(39 "*" (hash-lang update 2 24 107 1 "\n")) {logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(42 "*" (hash-lang update 2 27 109 21 "")) +{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(41 "*" (hash-lang update 2 26 108 0 "\n")) +{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(44 "*" (hash-lang update 2 29 129 1 " ")) {logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(43 "*" (hash-lang update 2 28 109 0 " ")) {logger /}: [ debug] racket-mode: '(debug-resume (all (2 after (#t . "(42)")))): using session ID 2 {logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(45 2 (debug-resume (all (2 after (#t . "(42)"))))) -{logger /}: [ debug] racket-mode: (set-session! 2 #) => sessions: #hasheq((2 . #(struct:session # # # # # #))) -{logger /}: [ debug] racket-mode: 91 cpu | 710 real | 33 gc :: '(14 2 (run ("/tmp/testoG1hk5.rkt") ((test) (main)) 2048 #t 80 1 debug () ("/tmp/testoG1hk5.rkt" "/tmp/ajnGjBS.rkt" "/tmp/bwp2sAu.rkt" "/tmp/c5HWjqx.rkt" "/tmp/testoG1hk5.rkt"))) -{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(49 "*" (hash-lang update 2 32 124 1 " ")) +{logger /}: [ debug] racket-mode: (set-session! 2 #) => sessions: #hasheq((2 . #(struct:session # # # # # #))) +{logger /}: [ debug] racket-mode: 150 cpu | 736 real | 48 gc :: '(14 2 (run ("/tmp/testpuNC5A.rkt") ((test) (main)) 2048 #t 80 1 debug () ("/tmp/testpuNC5A.rkt" "/tmp/abHi9Pl.rkt" "/tmp/bPLxuV9.rkt" "/tmp/cw7LrJO.rkt" "/tmp/testpuNC5A.rkt"))) {logger /}: [ debug] racket-mode: '(syms): using session ID 2 -{logger /}: [ debug] racket-mode: 2 cpu | 2 real | 0 gc :: '(47 "*" (hash-lang update 2 30 109 21 "")) -{logger /}: [ debug] racket-mode: 2 cpu | 2 real | 0 gc :: '(48 "*" (hash-lang update 2 31 109 0 " ")) -{logger /}: [ debug] racket-mode: 2 cpu | 2 real | 0 gc :: '(46 2 (syms)) +{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(48 "*" (hash-lang update 2 31 109 0 " ")) +{logger /}: [ debug] racket-mode: 8 cpu | 8 real | 0 gc :: '(46 2 (syms)) +{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(49 "*" (hash-lang update 2 32 124 1 " ")) +{logger /}: [ debug] racket-mode: 4 cpu | 4 real | 0 gc :: '(47 "*" (hash-lang update 2 30 109 21 "")) {logger /}: [ debug] racket-mode: '(repl-exit): using session ID 2 {logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(50 2 (repl-exit)) {logger /}: [ debug] racket-mode: (remove-session! 2) => sessions: '#hasheq() -{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(55 "*" (hash-lang update 2 37 127 1 "\n")) -{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(51 "*" (hash-lang update 2 33 109 16 "")) -{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(52 "*" (hash-lang update 2 34 109 0 " ")) -{logger /}: [ debug] r +{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(51 "*" (hash-lang {racket-back-end-/} killed - passed 3/15 racket-tests/debugger (1232.977141 sec) + passed 3/15 racket-tests/debugger (648.044549 sec) racket-tests/expand-expression -acket-mode: 0 cpu | 0 real | 0 gc :: '(53 "*" (hash-lang update 2 35 127 0 "\n")) +update 2 33 109 16 "")) +{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(52 "*" (hash-lang update 2 34 109 0 " ")) +{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(53 "*" (hash-lang update 2 35 127 0 "\n")) +{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(55 "*" (hash-lang update 2 37 127 1 "\n")) {logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(54 "*" (hash-lang update 2 36 109 19 " \n")) -{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(56 "*" (hash-lang delete 1)) {racket--repl-start}: picked next session id 3 back end is (:directory "/" :racket-program nil :remote-source-dir nil :restart-watch-directories nil :windows nil) +{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(56 "*" (hash-lang delete 1)) {logger /}: [ info] racket-mode: starting repl session 3 {logger /}: [ debug] racket-mode: (set-session! 3 #f) => sessions: #hasheq((3 . #(struct:session # # # # #f #))) {logger /}: [ debug] racket-mode: (set-session! 3 #f) => sessions: #hasheq((3 . #(struct:session # # # # #f #))) {logger /}: [ debug] racket-mode: (set-session! 3 #f) => sessions: #hasheq((3 . #(struct:session # # # # #f #))) -{logger /}: [ debug] racket-mode: 10 cpu | 18 real | 0 gc :: '(57 "*" (repl-start 3)) -{logger /}: [ debug] racket-mode: '(run ("/tmp/testOQBhhX.rkt") ((test) (main)) 2048 #t 80 1 medium () ()): using session ID 3 +{logger /}: [ debug] racket-mode: 40 cpu | 40 real | 11 gc :: '(57 "*" (repl-start 3)) {logger /}: [ debug] racket-mode: '(debug-disable): using session ID 3 {logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(58 3 (debug-disable)) -{logger /}: [ debug] racket-mode: (set-session! 3 #) => sessions: #hasheq((3 . #(struct:session # # # # # #))) -{logger /}: [ debug] racket-mode: (set-session! 3 #) => sessions: #hasheq((3 . #(struct:session # # # # # #))) -{logger /}: [ debug] racket-mode: 29 cpu | 50 real | 5 gc :: '(59 3 (run ("/tmp/testOQBhhX.rkt") ((test) (main)) 2048 #t 80 1 medium () ())) +{logger /}: [ debug] racket-mode: '(run ("/tmp/test14I8PQ.rkt") ((test) (main)) 2048 #t 80 1 medium () ()): using session ID 3 +{logger /}: [ debug] racket-mode: (set-session! 3 #) => sessions: #hasheq((3 . #(struct:session # # # # # #))) +{logger /}: [ debug] racket-mode: (set-session! 3 #) => sessions: #hasheq((3 . #(struct:session # # # # # #))) +{logger /}: [ debug] racket-mode: 81 cpu | 81 real | 39 gc :: '(59 3 (run ("/tmp/test14I8PQ.rkt") ((test) (main)) 2048 #t 80 1 medium () ())) {logger /}: [ debug] racket-mode: '(syms): using session ID 3 -{logger /}: [ debug] racket-mode: 1 cpu | 1 real | 0 gc :: '(60 3 (syms)) -{logger /}: [ debug] racket-mode: '(macro-stepper "/tmp/testOQBhhX.rkt" "(cond [(< 1 2) #t] [else #f])" disable): using session ID 3 -{logger /}: [ debug] racket-mode: "/tmp/testOQBhhX.rkt" 'disable # -{logger /}: [ debug] racket-mode: 10765 cpu | 16366 real | 3922 gc :: '(61 3 (macro-stepper "/tmp/testOQBhhX.rkt" "(cond [(< 1 2) #t] [else #f])" disable)) +{logger /}: [ debug] racket-mode: 3 cpu | 3 real | 0 gc :: '(60 3 (syms)) +{logger /}: [ debug] racket-mode: '(macro-stepper "/tmp/test14I8PQ.rkt" "(cond [(< 1 2) #t] [else #f])" disable): using session ID 3 +{logger /}: [ debug] racket-mode: "/tmp/test14I8PQ.rkt" 'disable # +{logger /}: [ debug] racket-mode: 10817 cpu | 10821 real | 3785 gc :: '(61 3 (macro-stepper "/tmp/test14I8PQ.rkt" "(cond [(< 1 2) #t] [else #f])" disable)) {logger /}: [ debug] racket-mode: '(macro-stepper/next all): using session ID 3 -{logger /}: [ debug] racket-mode: "Macro transformation\n(cond ((< 1 2) #t) (else #f))\n ==>\n(if:1 (< 1 2) (let-values:1 () #t) (let-values:1 () #f))\n\nAdd explicit #%app\n(if:1 (< 1 2) (let-values:1 () #t) (let-values:1 () #f))\n ==>\n(if:1 (#%app < 1 2) (let-values:1 () #t) (let-values:1 () #f))\n\nMacro transformation\n(if:1 (#%app < 1 2) (let-values:1 () #t) (let-values:1 () #f))\n ==>\n(if:1 (#%app:2 < 1 2) (let-values:1 () #t) (let-values:1 () #f))\n\nAdd explicit #%datum\n(if:1 (#%app:2 < 1 2) (let-values:1 () #t) (let-values:1 () #f))\n ==>\n(if:1 (#%app:2 < (#%datum . 1) 2) (let-values:1 () #t) (let-values:1 () #f))\n\nMacro transformation\n(if:1 (#%app:2 < (#%datum . 1) 2) (let-values:1 () #t) (let-values:1 () #f))\n ==>\n(if:1 (#%app:2 < (quote 1) 2) (let-values:1 () #t) (let-values:1 () #f))\n\nAdd explicit #%datum\n(if:1 (#%app:2 < (quote 1) 2) (let-values:1 () #t) (let-values:1 () #f))\n ==>\n(if:1\n (#%app:2 < (quote 1) (#%datum . 2))\n (let-values:1 () #t)\n (let-values:1 () #f))\n\nMacro transformation\n(if:1\n (#%app:2 < (quote 1) (#%datum . 2))\n (let-values:1 () #t)\n (let-values:1 () #f))\n ==>\n(if:1\n (#%app:2 < (quote 1) (quote 2))\n (let-values:1 () #t)\n (let-values:1 () #f))\n\nAdd explicit #%datum\n(if:1\n (#%app:2 < (q +{logger /}: [ debug] racket-mode: "Macro transformation\n(cond ((< 1 2) #t) (else #f))\n ==>\n(if:1 (< 1 2) (let-values:1 () #t) (let-values:1 () #f))\n\nAdd explicit #%app\n(if:1 (< 1 2) (let-values:1 () #t) (let-values:1 () #f))\n ==>\n(if:1 (#%app < 1 2) (let-values:1 () #t) (let-values:1 () #f))\n\nMacro transformation\n(if:1 (#%app < 1 2) (let-values:1 () #t) (let-values:1 () #f))\n ==>\n(if:1 (#%app:2 < 1 2) (let-values:1 () #t) (let-values:1 () #f))\n\nAdd explicit #%datum\n(if:1 (#%app:2 < 1 2) (let-values:1 () #t) (let-values:1 () #f))\n ==>\n(if:1 (#%app:2 < (#%datum . 1) 2) (let-values:1 () #t) (let-values:1 () #f))\n\nMacro transformation\n(if:1 (#%app:2 < (#%datum . 1) 2) (let-values:1 () #t) (let-values:1 () #f))\n ==>\n(if:1 (#%app:2 < (quote 1) 2) (let-values:1 () #t) (let-values:1 () #f))\n\nAdd explicit #%datum\n(if:1 (#%app:2 < (quote 1) 2) (let-values:1 () #t) (let-values:1 () #f))\n ==>\n(if:1\n (#%app:2 < (quote 1) (#%datum . 2))\n (let-values {racket-back-end-/} killed - passed 4/15 racket-tests/expand-expression (501.825279 sec) + passed 4/15 racket-tests/expand-expression (325.598666 sec) racket-tests/expand-file-deep {racket-back-end-/} killed - passed 5/15 racket-tests/expand-file-deep (540.022772 sec) +Test racket-tests/expand-file-deep backtrace: + signal(ert-test-failed (((should (faceup-test-font-lock-buffer nil racket-tests/expand-deep-0)) :form (faceup-test-font-lock-buffer nil "«f:macro hiding disabled by command prefix»\n\n«f:Original»\n(module foo racket/base (#%module-begin (define x 42) x))\n\n") :value nil :explanation (2 6 number-of-lines-differ (on-line 1 ("«f:macro hiding disabled by command prefix»") ("«f:Starting macro expansion stepper... please wait...»")) (on-line 3 ("«f:Original»") (nil)) (on-line 4 ("(module foo racket/base (#%module-begin (define x 42) x))") (nil)) (on-line 5 ("") (nil)) (on-line 6 ("") (nil)))))) + ert-fail(((should (faceup-test-font-lock-buffer nil racket-tests/expand-deep-0)) :form (faceup-test-font-lock-buffer nil "«f:macro hiding disabled by command prefix»\n\n«f:Original»\n(module foo racket/base (#%module-begin (define x 42) x))\n\n") :value nil :explanation (2 6 number-of-lines-differ (on-line 1 ("«f:macro hiding disabled by command prefix»") ("«f:Starting macro expansion stepper... please wait...»")) (on-line 3 ("«f:Original»") (nil)) (on-line 4 ("(module foo racket/base (#%module-begin (define x 42) x))") (nil)) (on-line 5 ("") (nil)) (on-line 6 ("") (nil))))) + (if (unwind-protect (setq value-1014 (apply fn-1012 args-1013)) (setq form-description-1016 (nconc (list '(should (faceup-test-font-lock-buffer nil racket-tests/expand-deep-0))) (list :form (cons fn-1012 args-1013)) (if (eql value-1014 'ert-form-evaluation-aborted-1015) nil (list :value value-1014)) (if (eql value-1014 'ert-form-evaluation-aborted-1015) nil (let* ((-explainer- ...)) (if -explainer- (list :explanation ...) nil))))) (ert--signal-should-execution form-description-1016)) nil (ert-fail form-description-1016)) + (let (form-description-1016) (if (unwind-protect (setq value-1014 (apply fn-1012 args-1013)) (setq form-description-1016 (nconc (list '(should ...)) (list :form (cons fn-1012 args-1013)) (if (eql value-1014 'ert-form-evaluation-aborted-1015) nil (list :value value-1014)) (if (eql value-1014 'ert-form-evaluation-aborted-1015) nil (let* (...) (if -explainer- ... nil))))) (ert--signal-should-execution form-description-1016)) nil (ert-fail form-description-1016))) + (let ((value-1014 'ert-form-evaluation-aborted-1015)) (let (form-description-1016) (if (unwind-protect (setq value-1014 (apply fn-1012 args-1013)) (setq form-description-1016 (nconc (list '...) (list :form (cons fn-1012 args-1013)) (if (eql value-1014 ...) nil (list :value value-1014)) (if (eql value-1014 ...) nil (let* ... ...)))) (ert--signal-should-execution form-description-1016)) nil (ert-fail form-description-1016))) value-1014) + (let* ((fn-1012 #'faceup-test-font-lock-buffer) (args-1013 (condition-case err (list nil racket-tests/expand-deep-0) (error (progn (setq fn-1012 #'signal) (list (car err) (cdr err))))))) (let ((value-1014 'ert-form-evaluation-aborted-1015)) (let (form-description-1016) (if (unwind-protect (setq value-1014 (apply fn-1012 args-1013)) (setq form-description-1016 (nconc (list ...) (list :form ...) (if ... nil ...) (if ... nil ...))) (ert--signal-should-execution form-description-1016)) nil (ert-fail form-description-1016))) value-1014)) + (progn (racket-tests/call-until-true #'(lambda nil (faceup-test-font-lock-buffer nil racket-tests/expand-deep-0))) (let* ((fn-1012 #'faceup-test-font-lock-buffer) (args-1013 (condition-case err (list nil racket-tests/expand-deep-0) (error (progn (setq fn-1012 ...) (list ... ...)))))) (let ((value-1014 'ert-form-evaluation-aborted-1015)) (let (form-description-1016) (if (unwind-protect (setq value-1014 (apply fn-1012 args-1013)) (setq form-description-1016 (nconc ... ... ... ...)) (ert--signal-should-execution form-description-1016)) nil (ert-fail form-description-1016))) value-1014))) + (let* ((dir (make-temp-file "test" t)) (path (concat dir "/" racket-tests/expand-mod-name ".rkt")) (code "#lang racket/base\n(define x 42)\nx")) (write-region code nil path nil 'no-wrote-file-message) (find-file path) (racket-expand-file 4) (set-buffer "*Racket Stepper *") (let* ((fn-1002 #'eq) (args-1003 (condition-case err (list major-mode 'racket-stepper-mode) (error (progn (setq fn-1002 ...) (list ... ...)))))) (let ((value-1004 'ert-form-evaluation-aborted-1005)) (let (form-description-1006) (if (unwind-protect (setq value-1004 (apply fn-1002 args-1003)) (setq form-description-1006 (nconc ... ... ... ...)) (ert--signal-should-execution form-description-1006)) nil (ert-fail form-description-1006))) value-1004)) (let* ((fn-1007 #'equal) (args-1008 (condition-case err (list header-line-format "Press RET to step. C-u RET to step all. C-h m to see help.") (error (progn (setq fn-1007 ...) (list ... ...)))))) (let ((value-1009 'ert-form-evaluation-aborted-1010)) (let (form-description-1011) (if (unwind-protect (setq value-1009 (apply fn-1007 args-1008)) (setq form-description-1011 (nconc ... ... ... ...)) (ert--signal-should-execution form-description-1011)) nil (ert-fail form-description-1011))) value-1009)) (progn (racket-tests/call-until-true #'(lambda nil (faceup-test-font-lock-buffer nil racket-tests/expand-deep-0))) (let* ((fn-1012 #'faceup-test-font-lock-buffer) (args-1013 (condition-case err (list nil racket-tests/expand-deep-0) (error (progn ... ...))))) (let ((value-1014 'ert-form-evaluation-aborted-1015)) (let (form-description-1016) (if (unwind-protect (setq value-1014 ...) (setq form-description-1016 ...) (ert--signal-should-execution form-description-1016)) nil (ert-fail form-description-1016))) value-1014))) (racket-tests/press "RET") (progn (racket-tests/call-until-true #'(lambda nil (faceup-test-font-lock-buffer nil racket-tests/expand-deep-1))) (let* ((fn-1017 #'faceup-test-font-lock-buffer) (args-1018 (condition-case err (list nil racket-tests/expand-deep-1) (error (progn ... ...))))) (let ((value-1019 'ert-form-evaluation-aborted-1020)) (let (form-description-1021) (if (unwind-protect (setq value-1019 ...) (setq form-description-1021 ...) (ert--signal-should-execution form-description-1021)) nil (ert-fail form-description-1021))) value-1019))) (racket-tests/press "RET") (progn (racket-tests/call-until-true #'(lambda nil (faceup-test-font-lock-buffer nil racket-tests/expand-deep-2))) (let* ((fn-1022 #'faceup-test-font-lock-buffer) (args-1023 (condition-case err (list nil racket-tests/expand-deep-2) (error (progn ... ...))))) (let ((value-1024 'ert-form-evaluation-aborted-1025)) (let (form-description-1026) (if (unwind-protect (setq value-1024 ...) (setq form-description-1026 ...) (ert--signal-should-execution form-description-1026)) nil (ert-fail form-description-1026))) value-1024))) (kill-buffer) (delete-file path)) + #f(lambda () [t] (let* ((dir (make-temp-file "test" t)) (path (concat dir "/" racket-tests/expand-mod-name ".rkt")) (code "#lang racket/base\n(define x 42)\nx")) (write-region code nil path nil 'no-wrote-file-message) (find-file path) (racket-expand-file 4) (set-buffer "*Racket Stepper *") (let* ((fn-1002 ...) (args-1003 ...)) (let (...) (let ... ...) value-1004)) (let* ((fn-1007 ...) (args-1008 ...)) (let (...) (let ... ...) value-1009)) (progn (racket-tests/call-until-true #'...) (let* (... ...) (let ... ... value-1014))) (racket-tests/press "RET") ...))() + funcall(#f(lambda () [t] (let* ((dir (make-temp-file "test" t)) (path (concat dir "/" racket-tests/expand-mod-name ".rkt")) (code "#lang racket/base\n(define x 42)\nx")) (write-region code nil path nil 'no-wrote-file-message) (find-file path) (racket-expand-file 4) (set-buffer "*Racket Stepper *") (let* ((fn-1002 #'eq) (args-1003 (condition-case err (list major-mode ...) (error ...)))) (let ((value-1004 'ert-form-evaluation-aborted-1005)) (let (form-description-1006) (if (unwind-protect ... ... ...) nil (ert-fail form-description-1006))) value-1004)) (let* ((fn-1007 #'equal) (args-1008 (condition-case err (list header-line-format "Press RET to step. C-u RET to step all. C-h m to see help.") (error ...)))) (let ((value-1009 'ert-form-evaluation-aborted-1010)) (let (form-description-1011) (if (unwind-protect ... ... ...) nil (ert-fail form-description-1011))) value-1009)) (progn (racket-tests/call-until-true #'(lambda nil (faceup-test-font-lock-buffer nil racket-tests/expand-deep-0))) (let* ((fn-1012 #'faceup-test-font-lock-buffer) (args-1013 (condition-case err ... ...))) (let ((value-1014 ...)) (let (form-description-1016) (if ... nil ...)) value-1014))) (racket-tests/press "RET") (progn (racket-tests/call-until-true #'(lambda nil (faceup-test-font-lock-buffer nil racket-tests/expand-deep-1))) (let* ((fn-1017 #'faceup-test-font-lock-buffer) (args-1018 (condition-case err ... ...))) (let ((value-1019 ...)) (let (form-description-1021) (if ... nil ...)) value-1019))) (racket-tests/press "RET") (progn (racket-tests/call-until-true #'(lambda nil (faceup-test-font-lock-buffer nil racket-tests/expand-deep-2))) (let* ((fn-1022 #'faceup-test-font-lock-buffer) (args-1023 (condition-case err ... ...))) (let ((value-1024 ...)) (let (form-description-1026) (if ... nil ...)) value-1024))) (kill-buffer) (delete-file path)))) + (unwind-protect (funcall thunk) (racket-stop-back-end)) + (let ((racket-command-timeout racket-tests/timeout)) (unwind-protect (funcall thunk) (racket-stop-back-end))) + racket-tests/call-with-back-end-settings(#f(lambda () [t] (let* ((dir (make-temp-file "test" t)) (path (concat dir "/" racket-tests/expand-mod-name ".rkt")) (code "#lang racket/base\n(define x 42)\nx")) (write-region code nil path nil 'no-wrote-file-message) (find-file path) (racket-expand-file 4) (set-buffer "*Racket Stepper *") (let* ((fn-1002 #'eq) (args-1003 (condition-case err (list major-mode ...) (error ...)))) (let ((value-1004 'ert-form-evaluation-aborted-1005)) (let (form-description-1006) (if (unwind-protect ... ... ...) nil (ert-fail form-description-1006))) value-1004)) (let* ((fn-1007 #'equal) (args-1008 (condition-case err (list header-line-format "Press RET to step. C-u RET to step all. C-h m to see help.") (error ...)))) (let ((value-1009 'ert-form-evaluation-aborted-1010)) (let (form-description-1011) (if (unwind-protect ... ... ...) nil (ert-fail form-description-1011))) value-1009)) (progn (racket-tests/call-until-true #'(lambda nil (faceup-test-font-lock-buffer nil racket-tests/expand-deep-0))) (let* ((fn-1012 #'faceup-test-font-lock-buffer) (args-1013 (condition-case err ... ...))) (let ((value-1014 ...)) (let (form-description-1016) (if ... nil ...)) value-1014))) (racket-tests/press "RET") (progn (racket-tests/call-until-true #'(lambda nil (faceup-test-font-lock-buffer nil racket-tests/expand-deep-1))) (let* ((fn-1017 #'faceup-test-font-lock-buffer) (args-1018 (condition-case err ... ...))) (let ((value-1019 ...)) (let (form-description-1021) (if ... nil ...)) value-1019))) (racket-tests/press "RET") (progn (racket-tests/call-until-true #'(lambda nil (faceup-test-font-lock-buffer nil racket-tests/expand-deep-2))) (let* ((fn-1022 #'faceup-test-font-lock-buffer) (args-1023 (condition-case err ... ...))) (let ((value-1024 ...)) (let (form-description-1026) (if ... nil ...)) value-1024))) (kill-buffer) (delete-file path)))) + #f(lambda () [t] (message "racket-tests/expand-file-deep") (racket-tests/call-with-back-end-settings #'(lambda nil (let* ... ... ... ... ... ... ... ... ... ...))) nil)() + #f(compiled-function () #)() + handler-bind-1(#f(compiled-function () #) (error quit) #f(compiled-function (err) #)) + ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test :name racket-tests/expand-file-deep :documentation nil :body #f(lambda () [t] (message "racket-tests/expand-file-deep") (racket-tests/call-with-back-end-settings ...) nil) :most-recent-result #s(ert-test-failed :messages "racket-tests/expand-file-deep\n{racket-back-end-/} killed\n" :should-forms (... ... ...) :duration 900.028960384 :condition (ert-test-failed ...) :backtrace (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :infos nil) :expected-result-type (satisfies racket-tests/expected-result-for-expand-file-p) :tags nil :file-name "/build/reproducible-path/racket-mode-20250212~git.eef5e9a/test/racket-tests.el") :result #s(ert-test-failed :messages "racket-tests/expand-file-deep\n{racket-back-end-/} killed\n" :should-forms ((... :form ... :value t) (... :form ... :value t :explanation nil) (... :form ... :value nil :explanation ...)) :duration 900.028960384 :condition (ert-test-failed (... :form ... :value nil :explanation ...)) :backtrace (#s(backtrace-frame :evald t :fun signal :args ... :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert-fail :args ... :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun if :args ... :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun let :args ... :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun let :args ... :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun let* :args ... :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun progn :args ... :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun let* :args ... :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald t :fun #f(lambda () ... ...) :args nil :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun funcall :args ... :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun unwind-protect :args ... :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun let :args ... :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald t :fun racket-tests/call-with-back-end-settings :args ... :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald t :fun #f(lambda () ... ... ... nil) :args nil :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun #f(compiled-function () #) :args nil :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun handler-bind-1 :args ... :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert--run-test-internal :args #0 :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert-run-test :args ... :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert-run-or-rerun-test :args ... :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert-run-tests :args ... :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert-run-tests-batch :args ... :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert-run-tests-batch-and-exit :args nil :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun command-line-1 :args ... :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald t :fun command-line :args nil :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun normal-top-level :args nil :flags nil :locals nil :buffer nil :pos nil)) :infos nil) :exit-continuation #f(compiled-function () #) :ert-debug-on-error nil)) + ert-run-test(#s(ert-test :name racket-tests/expand-file-deep :documentation nil :body #f(lambda () [t] (message "racket-tests/expand-file-deep") (racket-tests/call-with-back-end-settings #'(lambda nil ...)) nil) :most-recent-result #s(ert-test-failed :messages "racket-tests/expand-file-deep\n{racket-back-end-/} killed\n" :should-forms (((should ...) :form (eq racket-stepper-mode racket-stepper-mode) :value t) ((should ...) :form (equal "Press RET to step. C-u RET to step all. C-h m to see help." "Press RET to step. C-u RET to step all. C-h m to see help.") :value t :explanation nil) ((should ...) :form (faceup-test-font-lock-buffer nil "«f:macro hiding disabled by command prefix»\n\n«f:Original»\n(module foo racket/base (#%module-begin (define x 42) x))\n\n") :value nil :explanation (2 6 number-of-lines-differ ... ... ... ... ...))) :duration 900.028960384 :condition (ert-test-failed ((should ...) :form (faceup-test-font-lock-buffer nil "«f:macro hiding disabled by command prefix»\n\n«f:Original»\n(module foo racket/base (#%module-begin (define x 42) x))\n\n") :value nil :explanation (2 6 number-of-lines-differ ... ... ... ... ...))) :backtrace (#s(backtrace-frame :evald t :fun signal :args (ert-test-failed ...) :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert-fail :args (...) :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun if :args (... nil ...) :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun let :args (... ...) :flags nil :locals (... ... ... ... ... ... ...) :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun let :args (... ... value-1014) :flags nil :locals (... ... ... ... ... ...) :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun let* :args (... ...) :flags nil :locals (... ... ... ... ...) :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun progn :args (... ...) :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun let* :args (... ... ... ... ... ... ... ... ... ... ... ... ... ...) :flags nil :locals (... ... ...) :buffer nil :pos nil) #s(backtrace-frame :evald t :fun #f(lambda () ... ...) :args nil :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun funcall :args (#f(lambda () ... ...)) :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun unwind-protect :args (... ...) :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun let :args (... ...) :flags nil :locals (...) :buffer nil :pos nil) #s(backtrace-frame :evald t :fun racket-tests/call-with-back-end-settings :args (#f(lambda () ... ...)) :flags nil :locals (...) :buffer nil :pos nil) #s(backtrace-frame :evald t :fun #f(lambda () ... ... ... nil) :args nil :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun #f(compiled-function () #) :args nil :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun handler-bind-1 :args (#f(compiled-function () #) ... #f(compiled-function (err) #)) :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert--run-test-internal :args (...) :flags nil :locals (... ...) :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert-run-test :args #0 :flags nil :locals (... ... ...) :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert-run-or-rerun-test :args (... #1 #f(compiled-function (event-type &rest event-args) #)) :flags nil :locals (...) :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert-run-tests :args (t #f(compiled-function (event-type &rest event-args) #) nil) :flags nil :locals (...) :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert-run-tests-batch :args (nil) :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert-run-tests-batch-and-exit :args nil :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun command-line-1 :args (...) :flags nil :locals (... ...) :buffer nil :pos nil) #s(backtrace-frame :evald t :fun command-line :args nil :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun normal-top-level :args nil :flags nil :locals nil :buffer nil :pos nil)) :infos nil) :expected-result-type (satisfies racket-tests/expected-result-for-expand-file-p) :tags nil :file-name "/build/reproducible-path/racket-mode-20250212~git.eef5e9a/test/racket-tests.el")) + ert-run-or-rerun-test(#s(ert--stats :selector t :tests ... :test-map # :test-results ... :test-start-times ... :test-end-times ... :passed-expected 4 :passed-unexpected 0 :failed-expected 0 :failed-unexpected 1 :skipped 0 :start-time ... :end-time nil :aborted-p nil ...) #s(ert-test :name racket-tests/expand-file-deep :documentation nil :body #f(lambda () ... ... ... nil) :most-recent-result ... :expected-result-type ... :tags nil :file-name "/build/reproducible-path/racket-mode-20250212~git.eef5e9a/test/racket-tests.el") #f(compiled-function (event-type &rest event-args) #)) + ert-run-tests(t #f(compiled-function (event-type &rest event-args) #) nil) + ert-run-tests-batch(nil) + ert-run-tests-batch-and-exit() + command-line-1(("-l" "package" "--eval" "(add-to-list 'package-directory-list \"/usr/share/emacs/site-lisp/elpa\")" "--eval" "(add-to-list 'package-directory-list \"/usr/share/emacs/site-lisp/elpa-src\")" "--eval" "(setq ert-batch-backtrace-right-margin nil)" "-f" "package-initialize" "-L" "." "-L" "test" "--eval" "(progn (setenv \"DEBIAN_BUILDD\" \"1\") (setq user-emacs-directory \"/tmp/emacs-home\"))" "-l" "test/racket-tests.el" "-f" "ert-run-tests-batch-and-exit")) + command-line() + normal-top-level() + +Test racket-tests/expand-file-deep condition: + (ert-test-failed + ((should + (faceup-test-font-lock-buffer nil racket-tests/expand-deep-0)) + :form + (faceup-test-font-lock-buffer nil + "«f:macro hiding disabled by command prefix»\n\n«f:Original»\n(module foo racket/base (#%module-begin (define x 42) x))\n\n") + :value nil :explanation + (2 6 number-of-lines-differ + (on-line 1 ("«f:macro hiding disabled by command prefix»") + ("«f:Starting macro expansion stepper... please wait...»")) + (on-line 3 ("«f:Original»") (nil)) + (on-line 4 + ("(module foo racket/base (#%module-begin (define x 42) x))") + (nil)) + (on-line 5 ("") (nil)) (on-line 6 ("") (nil))))) + FAILED 5/15 racket-tests/expand-file-deep (900.028960 sec) at test/racket-tests.el:1 racket-tests/expand-file-shallow {racket-back-end-/} killed - passed 6/15 racket-tests/expand-file-shallow (520.145810 sec) - passed 7/15 racket-tests/fill-paragraph-comment (0.000838 sec) - passed 8/15 racket-tests/font-lock (0.175201 sec) - passed 9/15 racket-tests/indent-same (0.362729 sec) - skipped 10/15 racket-tests/indent-speed-1 (0.000175 sec) - skipped 11/15 racket-tests/indent-speed-2 (0.000104 sec) - skipped 12/15 racket-tests/profile (0.000093 sec) +Test racket-tests/expand-file-shallow backtrace: + signal(ert-test-failed (((should (faceup-test-font-lock-buffer nil racket-tests/expand-shallow-0)) :form (faceup-test-font-lock-buffer nil "«:button:racket-expand-hiding»: standard\n\n«f:Original»\n(module foo racket/base (#%module-begin (define x 42) x))\n\n") :value nil :explanation (2 6 number-of-lines-differ (on-line 1 ("«:button:racket-expand-hiding»: standard") ("«f:Starting macro expansion stepper... please wait...»")) (on-line 3 ("«f:Original»") (nil)) (on-line 4 ("(module foo racket/base (#%module-begin (define x 42) x))") (nil)) (on-line 5 ("") (nil)) (on-line 6 ("") (nil)))))) + ert-fail(((should (faceup-test-font-lock-buffer nil racket-tests/expand-shallow-0)) :form (faceup-test-font-lock-buffer nil "«:button:racket-expand-hiding»: standard\n\n«f:Original»\n(module foo racket/base (#%module-begin (define x 42) x))\n\n") :value nil :explanation (2 6 number-of-lines-differ (on-line 1 ("«:button:racket-expand-hiding»: standard") ("«f:Starting macro expansion stepper... please wait...»")) (on-line 3 ("«f:Original»") (nil)) (on-line 4 ("(module foo racket/base (#%module-begin (define x 42) x))") (nil)) (on-line 5 ("") (nil)) (on-line 6 ("") (nil))))) + (if (unwind-protect (setq value-994 (apply fn-992 args-993)) (setq form-description-996 (nconc (list '(should (faceup-test-font-lock-buffer nil racket-tests/expand-shallow-0))) (list :form (cons fn-992 args-993)) (if (eql value-994 'ert-form-evaluation-aborted-995) nil (list :value value-994)) (if (eql value-994 'ert-form-evaluation-aborted-995) nil (let* ((-explainer- ...)) (if -explainer- (list :explanation ...) nil))))) (ert--signal-should-execution form-description-996)) nil (ert-fail form-description-996)) + (let (form-description-996) (if (unwind-protect (setq value-994 (apply fn-992 args-993)) (setq form-description-996 (nconc (list '(should ...)) (list :form (cons fn-992 args-993)) (if (eql value-994 'ert-form-evaluation-aborted-995) nil (list :value value-994)) (if (eql value-994 'ert-form-evaluation-aborted-995) nil (let* (...) (if -explainer- ... nil))))) (ert--signal-should-execution form-description-996)) nil (ert-fail form-description-996))) + (let ((value-994 'ert-form-evaluation-aborted-995)) (let (form-description-996) (if (unwind-protect (setq value-994 (apply fn-992 args-993)) (setq form-description-996 (nconc (list '...) (list :form (cons fn-992 args-993)) (if (eql value-994 ...) nil (list :value value-994)) (if (eql value-994 ...) nil (let* ... ...)))) (ert--signal-should-execution form-description-996)) nil (ert-fail form-description-996))) value-994) + (let* ((fn-992 #'faceup-test-font-lock-buffer) (args-993 (condition-case err (list nil racket-tests/expand-shallow-0) (error (progn (setq fn-992 #'signal) (list (car err) (cdr err))))))) (let ((value-994 'ert-form-evaluation-aborted-995)) (let (form-description-996) (if (unwind-protect (setq value-994 (apply fn-992 args-993)) (setq form-description-996 (nconc (list ...) (list :form ...) (if ... nil ...) (if ... nil ...))) (ert--signal-should-execution form-description-996)) nil (ert-fail form-description-996))) value-994)) + (progn (racket-tests/call-until-true #'(lambda nil (faceup-test-font-lock-buffer nil racket-tests/expand-shallow-0))) (let* ((fn-992 #'faceup-test-font-lock-buffer) (args-993 (condition-case err (list nil racket-tests/expand-shallow-0) (error (progn (setq fn-992 ...) (list ... ...)))))) (let ((value-994 'ert-form-evaluation-aborted-995)) (let (form-description-996) (if (unwind-protect (setq value-994 (apply fn-992 args-993)) (setq form-description-996 (nconc ... ... ... ...)) (ert--signal-should-execution form-description-996)) nil (ert-fail form-description-996))) value-994))) + (let* ((dir (make-temp-file "test" t)) (path (concat dir "/" racket-tests/expand-mod-name ".rkt")) (code "#lang racket/base\n(define x 42)\nx")) (write-region code nil path nil 'no-wrote-file-message) (find-file path) (let ((racket-expand-hiding 'standard)) (racket-expand-file)) (set-buffer "*Racket Stepper *") (let* ((fn-982 #'eq) (args-983 (condition-case err (list major-mode 'racket-stepper-mode) (error (progn (setq fn-982 ...) (list ... ...)))))) (let ((value-984 'ert-form-evaluation-aborted-985)) (let (form-description-986) (if (unwind-protect (setq value-984 (apply fn-982 args-983)) (setq form-description-986 (nconc ... ... ... ...)) (ert--signal-should-execution form-description-986)) nil (ert-fail form-description-986))) value-984)) (let* ((fn-987 #'equal) (args-988 (condition-case err (list header-line-format "Press RET to step. C-u RET to step all. C-h m to see help.") (error (progn (setq fn-987 ...) (list ... ...)))))) (let ((value-989 'ert-form-evaluation-aborted-990)) (let (form-description-991) (if (unwind-protect (setq value-989 (apply fn-987 args-988)) (setq form-description-991 (nconc ... ... ... ...)) (ert--signal-should-execution form-description-991)) nil (ert-fail form-description-991))) value-989)) (progn (racket-tests/call-until-true #'(lambda nil (faceup-test-font-lock-buffer nil racket-tests/expand-shallow-0))) (let* ((fn-992 #'faceup-test-font-lock-buffer) (args-993 (condition-case err (list nil racket-tests/expand-shallow-0) (error (progn ... ...))))) (let ((value-994 'ert-form-evaluation-aborted-995)) (let (form-description-996) (if (unwind-protect (setq value-994 ...) (setq form-description-996 ...) (ert--signal-should-execution form-description-996)) nil (ert-fail form-description-996))) value-994))) (racket-tests/press "RET") (progn (racket-tests/call-until-true #'(lambda nil (faceup-test-font-lock-buffer nil racket-tests/expand-shallow-1))) (let* ((fn-997 #'faceup-test-font-lock-buffer) (args-998 (condition-case err (list nil racket-tests/expand-shallow-1) (error (progn ... ...))))) (let ((value-999 'ert-form-evaluation-aborted-1000)) (let (form-description-1001) (if (unwind-protect (setq value-999 ...) (setq form-description-1001 ...) (ert--signal-should-execution form-description-1001)) nil (ert-fail form-description-1001))) value-999))) (kill-buffer) (delete-file path)) + #f(lambda () [t] (let* ((dir (make-temp-file "test" t)) (path (concat dir "/" racket-tests/expand-mod-name ".rkt")) (code "#lang racket/base\n(define x 42)\nx")) (write-region code nil path nil 'no-wrote-file-message) (find-file path) (let ((racket-expand-hiding ...)) (racket-expand-file)) (set-buffer "*Racket Stepper *") (let* ((fn-982 ...) (args-983 ...)) (let (...) (let ... ...) value-984)) (let* ((fn-987 ...) (args-988 ...)) (let (...) (let ... ...) value-989)) (progn (racket-tests/call-until-true #'...) (let* (... ...) (let ... ... value-994))) (racket-tests/press "RET") ...))() + funcall(#f(lambda () [t] (let* ((dir (make-temp-file "test" t)) (path (concat dir "/" racket-tests/expand-mod-name ".rkt")) (code "#lang racket/base\n(define x 42)\nx")) (write-region code nil path nil 'no-wrote-file-message) (find-file path) (let ((racket-expand-hiding 'standard)) (racket-expand-file)) (set-buffer "*Racket Stepper *") (let* ((fn-982 #'eq) (args-983 (condition-case err (list major-mode ...) (error ...)))) (let ((value-984 'ert-form-evaluation-aborted-985)) (let (form-description-986) (if (unwind-protect ... ... ...) nil (ert-fail form-description-986))) value-984)) (let* ((fn-987 #'equal) (args-988 (condition-case err (list header-line-format "Press RET to step. C-u RET to step all. C-h m to see help.") (error ...)))) (let ((value-989 'ert-form-evaluation-aborted-990)) (let (form-description-991) (if (unwind-protect ... ... ...) nil (ert-fail form-description-991))) value-989)) (progn (racket-tests/call-until-true #'(lambda nil (faceup-test-font-lock-buffer nil racket-tests/expand-shallow-0))) (let* ((fn-992 #'faceup-test-font-lock-buffer) (args-993 (condition-case err ... ...))) (let ((value-994 ...)) (let (form-description-996) (if ... nil ...)) value-994))) (racket-tests/press "RET") (progn (racket-tests/call-until-true #'(lambda nil (faceup-test-font-lock-buffer nil racket-tests/expand-shallow-1))) (let* ((fn-997 #'faceup-test-font-lock-buffer) (args-998 (condition-case err ... ...))) (let ((value-999 ...)) (let (form-description-1001) (if ... nil ...)) value-999))) (kill-buffer) (delete-file path)))) + (unwind-protect (funcall thunk) (racket-stop-back-end)) + (let ((racket-command-timeout racket-tests/timeout)) (unwind-protect (funcall thunk) (racket-stop-back-end))) + racket-tests/call-with-back-end-settings(#f(lambda () [t] (let* ((dir (make-temp-file "test" t)) (path (concat dir "/" racket-tests/expand-mod-name ".rkt")) (code "#lang racket/base\n(define x 42)\nx")) (write-region code nil path nil 'no-wrote-file-message) (find-file path) (let ((racket-expand-hiding 'standard)) (racket-expand-file)) (set-buffer "*Racket Stepper *") (let* ((fn-982 #'eq) (args-983 (condition-case err (list major-mode ...) (error ...)))) (let ((value-984 'ert-form-evaluation-aborted-985)) (let (form-description-986) (if (unwind-protect ... ... ...) nil (ert-fail form-description-986))) value-984)) (let* ((fn-987 #'equal) (args-988 (condition-case err (list header-line-format "Press RET to step. C-u RET to step all. C-h m to see help.") (error ...)))) (let ((value-989 'ert-form-evaluation-aborted-990)) (let (form-description-991) (if (unwind-protect ... ... ...) nil (ert-fail form-description-991))) value-989)) (progn (racket-tests/call-until-true #'(lambda nil (faceup-test-font-lock-buffer nil racket-tests/expand-shallow-0))) (let* ((fn-992 #'faceup-test-font-lock-buffer) (args-993 (condition-case err ... ...))) (let ((value-994 ...)) (let (form-description-996) (if ... nil ...)) value-994))) (racket-tests/press "RET") (progn (racket-tests/call-until-true #'(lambda nil (faceup-test-font-lock-buffer nil racket-tests/expand-shallow-1))) (let* ((fn-997 #'faceup-test-font-lock-buffer) (args-998 (condition-case err ... ...))) (let ((value-999 ...)) (let (form-description-1001) (if ... nil ...)) value-999))) (kill-buffer) (delete-file path)))) + #f(lambda () [t] (message "racket-tests/expand-file-shallow") (racket-tests/call-with-back-end-settings #'(lambda nil (let* ... ... ... ... ... ... ... ... ... ...))) nil)() + #f(compiled-function () #)() + handler-bind-1(#f(compiled-function () #) (error quit) #f(compiled-function (err) #)) + ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test :name racket-tests/expand-file-shallow :documentation nil :body #f(lambda () [t] (message "racket-tests/expand-file-shallow") (racket-tests/call-with-back-end-settings ...) nil) :most-recent-result #s(ert-test-failed :messages "racket-tests/expand-file-shallow\n{racket-back-end-/} killed\n" :should-forms (... ... ...) :duration 900.034255547 :condition (ert-test-failed ...) :backtrace (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :infos nil) :expected-result-type (satisfies racket-tests/expected-result-for-expand-file-p) :tags nil :file-name "/build/reproducible-path/racket-mode-20250212~git.eef5e9a/test/racket-tests.el") :result #s(ert-test-failed :messages "racket-tests/expand-file-shallow\n{racket-back-end-/} killed\n" :should-forms ((... :form ... :value t) (... :form ... :value t :explanation nil) (... :form ... :value nil :explanation ...)) :duration 900.034255547 :condition (ert-test-failed (... :form ... :value nil :explanation ...)) :backtrace (#s(backtrace-frame :evald t :fun signal :args ... :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert-fail :args ... :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun if :args ... :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun let :args ... :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun let :args ... :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun let* :args ... :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun progn :args ... :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun let* :args ... :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald t :fun #f(lambda () ... ...) :args nil :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun funcall :args ... :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun unwind-protect :args ... :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun let :args ... :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald t :fun racket-tests/call-with-back-end-settings :args ... :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald t :fun #f(lambda () ... ... ... nil) :args nil :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun #f(compiled-function () #) :args nil :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun handler-bind-1 :args ... :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert--run-test-internal :args #0 :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert-run-test :args ... :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert-run-or-rerun-test :args ... :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert-run-tests :args ... :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert-run-tests-batch :args ... :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert-run-tests-batch-and-exit :args nil :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun command-line-1 :args ... :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald t :fun command-line :args nil :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun normal-top-level :args nil :flags nil :locals nil :buffer nil :pos nil)) :infos nil) :exit-continuation #f(compiled-function () #) :ert-debug-on-error nil)) + ert-run-test(#s(ert-test :name racket-tests/expand-file-shallow :documentation nil :body #f(lambda () [t] (message "racket-tests/expand-file-shallow") (racket-tests/call-with-back-end-settings #'(lambda nil ...)) nil) :most-recent-result #s(ert-test-failed :messages "racket-tests/expand-file-shallow\n{racket-back-end-/} killed\n" :should-forms (((should ...) :form (eq racket-stepper-mode racket-stepper-mode) :value t) ((should ...) :form (equal "Press RET to step. C-u RET to step all. C-h m to see help." "Press RET to step. C-u RET to step all. C-h m to see help.") :value t :explanation nil) ((should ...) :form (faceup-test-font-lock-buffer nil "«:button:racket-expand-hiding»: standard\n\n«f:Original»\n(module foo racket/base (#%module-begin (define x 42) x))\n\n") :value nil :explanation (2 6 number-of-lines-differ ... ... ... ... ...))) :duration 900.034255547 :condition (ert-test-failed ((should ...) :form (faceup-test-font-lock-buffer nil "«:button:racket-expand-hiding»: standard\n\n«f:Original»\n(module foo racket/base (#%module-begin (define x 42) x))\n\n") :value nil :explanation (2 6 number-of-lines-differ ... ... ... ... ...))) :backtrace (#s(backtrace-frame :evald t :fun signal :args (ert-test-failed ...) :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert-fail :args (...) :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun if :args (... nil ...) :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun let :args (... ...) :flags nil :locals (... ... ... ... ... ... ...) :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun let :args (... ... value-994) :flags nil :locals (... ... ... ... ... ...) :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun let* :args (... ...) :flags nil :locals (... ... ... ... ...) :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun progn :args (... ...) :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun let* :args (... ... ... ... ... ... ... ... ... ... ... ...) :flags nil :locals (... ... ...) :buffer nil :pos nil) #s(backtrace-frame :evald t :fun #f(lambda () ... ...) :args nil :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun funcall :args (#f(lambda () ... ...)) :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun unwind-protect :args (... ...) :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun let :args (... ...) :flags nil :locals (...) :buffer nil :pos nil) #s(backtrace-frame :evald t :fun racket-tests/call-with-back-end-settings :args (#f(lambda () ... ...)) :flags nil :locals (...) :buffer nil :pos nil) #s(backtrace-frame :evald t :fun #f(lambda () ... ... ... nil) :args nil :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun #f(compiled-function () #) :args nil :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun handler-bind-1 :args (#f(compiled-function () #) ... #f(compiled-function (err) #)) :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert--run-test-internal :args (...) :flags nil :locals (... ...) :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert-run-test :args #0 :flags nil :locals (... ... ...) :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert-run-or-rerun-test :args (... #1 #f(compiled-function (event-type &rest event-args) #)) :flags nil :locals (...) :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert-run-tests :args (t #f(compiled-function (event-type &rest event-args) #) nil) :flags nil :locals (...) :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert-run-tests-batch :args (nil) :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert-run-tests-batch-and-exit :args nil :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun command-line-1 :args (...) :flags nil :locals (... ...) :buffer nil :pos nil) #s(backtrace-frame :evald t :fun command-line :args nil :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun normal-top-level :args nil :flags nil :locals nil :buffer nil :pos nil)) :infos nil) :expected-result-type (satisfies racket-tests/expected-result-for-expand-file-p) :tags nil :file-name "/build/reproducible-path/racket-mode-20250212~git.eef5e9a/test/racket-tests.el")) + ert-run-or-rerun-test(#s(ert--stats :selector t :tests ... :test-map # :test-results ... :test-start-times ... :test-end-times ... :passed-expected 4 :passed-unexpected 0 :failed-expected 0 :failed-unexpected 2 :skipped 0 :start-time ... :end-time nil :aborted-p nil ...) #s(ert-test :name racket-tests/expand-file-shallow :documentation nil :body #f(lambda () ... ... ... nil) :most-recent-result ... :expected-result-type ... :tags nil :file-name "/build/reproducible-path/racket-mode-20250212~git.eef5e9a/test/racket-tests.el") #f(compiled-function (event-type &rest event-args) #)) + ert-run-tests(t #f(compiled-function (event-type &rest event-args) #) nil) + ert-run-tests-batch(nil) + ert-run-tests-batch-and-exit() + command-line-1(("-l" "package" "--eval" "(add-to-list 'package-directory-list \"/usr/share/emacs/site-lisp/elpa\")" "--eval" "(add-to-list 'package-directory-list \"/usr/share/emacs/site-lisp/elpa-src\")" "--eval" "(setq ert-batch-backtrace-right-margin nil)" "-f" "package-initialize" "-L" "." "-L" "test" "--eval" "(progn (setenv \"DEBIAN_BUILDD\" \"1\") (setq user-emacs-directory \"/tmp/emacs-home\"))" "-l" "test/racket-tests.el" "-f" "ert-run-tests-batch-and-exit")) + command-line() + normal-top-level() + +Test racket-tests/expand-file-shallow condition: + (ert-test-failed + ((should + (faceup-test-font-lock-buffer nil racket-tests/expand-shallow-0)) + :form + (faceup-test-font-lock-buffer nil + "«:button:racket-expand-hiding»: standard\n\n«f:Original»\n(module foo racket/base (#%module-begin (define x 42) x))\n\n") + :value nil :explanation + (2 6 number-of-lines-differ + (on-line 1 ("«:button:racket-expand-hiding»: standard") + ("«f:Starting macro expansion stepper... please wait...»")) + (on-line 3 ("«f:Original»") (nil)) + (on-line 4 + ("(module foo racket/base (#%module-begin (define x 42) x))") + (nil)) + (on-line 5 ("") (nil)) (on-line 6 ("") (nil))))) + FAILED 6/15 racket-tests/expand-file-shallow (900.034256 sec) at test/racket-tests.el:446 + passed 7/15 racket-tests/fill-paragraph-comment (0.055369 sec) + passed 8/15 racket-tests/font-lock (0.452077 sec) + passed 9/15 racket-tests/indent-same (0.556514 sec) + skipped 10/15 racket-tests/indent-speed-1 (0.000113 sec) + skipped 11/15 racket-tests/indent-speed-2 (0.000092 sec) + skipped 12/15 racket-tests/profile (0.000085 sec) racket-tests/repl -uote 1) (quote 2))\n (let-values:1 () #t)\n (let-values:1 () #f))\n ==>\n(if:1\n (#%app:2 < (quote 1) (quote 2))\n (let-values:1 () (#%datum . #t))\n (let-values:1 () #f))\n\nMacro transformation\n(if:1\n (#%app:2 < (quote 1) (quote 2))\n (let-values:1 () (#%datum . #t))\n (let-values:1 () #f))\n ==>\n(if:1\n (#%app:2 < (quote 1) (quote 2))\n (let-values:1 () (quote #t))\n (let-values:1 () #f))\n\nAdd explicit #%datum\n(if:1\n (#%app:2 < (quote 1) (quote 2))\n (let-values:1 () (quote #t))\n (let-values:1 () #f))\n ==>\n(if:1\n (#%app:2 < (quote 1) (quote 2))\n (let-values:1 () (quote #t))\n (let-values:1 () (#%datum . #f)))\n\nMacro transformation\n(if:1\n (#%app:2 < (quote 1) (quote 2))\n (let-values:1 () (quote #t))\n (let-values:1 () (#%datum . #f)))\n ==>\n(if:1\n (#%app:2 < (quote 1) (quote 2))\n (let-values:1 () (quote #t))\n (let-values:1 () (quote #f)))\n\n" -{logger /}: [ debug] racket-mode: 150 cpu | 812 real | 1 gc :: '(62 3 (macro-stepper/next all)) -{logger /}: [ debug] racket-mode: '(repl-exit): using session ID 3 -{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(63 3 (repl-exit)) -{logger /}: [ debug] racket-mode: (remove-session! 3) => sessions: '#hasheq() -back end is (:directory "/" :racket-program nil :remote-source-dir nil :restart-watch-directories nil :windows nil) -{logger /}: [ debug] racket-mode: "/tmp/testcrko8y/foo.rkt" 'disable # -{logger /}: [ debug] racket-mode: 10305 cpu | 19215 real | 3563 gc :: '(64 "*" (macro-stepper "/tmp/testcrko8y/foo.rkt" () disable)) -{logger /}: [ debug] racket-mode: "Macro transformation\n(module foo racket/base (#%module-begin (define x 42) x))\n ==>\n(module\n foo\n racket/base\n (printing:module-begin:1\n (module:1\n configure-runtime:1\n '#%kernel:1\n (#%require:1 racket/runtime-config:1)\n (configure:1 #f))\n (define x 42)\n x))\n\n" -{logger /}: [ debug] racket-mode: 12 cpu | 75 real | 0 gc :: '(65 "*" (macro-stepper/next next)) -{logger /}: [ debug] racket-mode: "Macro transformation\n(module\n foo\n racket/base\n (printing:module-begin:1\n (module:1\n configure-runtime:1\n '#%kernel:1\n (#%require:1 racket/runtime-config:1)\n (configure:1 #f))\n (define x 42)\n x))\n ==>\n(module\n foo\n racket/base\n (#%module-begin:2\n (do-wrapping-module-begin:2\n print-result:2\n (module:1\n configure-runtime:1\n '#%kernel:1\n (#%require:1 racket/runtime-config:1)\n (configure:1 #f)))\n (do-wrapping-module-begin:2 print-result:2 (define x 42))\n (do-wrapping-module-begin:2 print-result:2 x)))\n\n" -{logger /}: [ debug] racket-mode: 12 cpu | 70 real | 0 gc :: '(66 "*" (macro-stepper/next next)) -back end is (:directory "/" :racket-program nil :remote-source-dir nil :restart-watch-directories nil :windows nil) -{logger /}: [ debug] racket-mode: "/tmp/test24TE2J/foo.rkt" 'standard # -{logger /}: [ debug] racket-mode: 10449 cpu | 14256 real | 3666 gc :: '(67 "*" (macro-stepper "/tmp/test24TE2J/foo.rkt" () standard)) -{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(68 "*" (macro-stepper/next next)) -{racket--repl-start}: picked next session id 4 -back end is (:directory "/" :racket-program nil :remote-source-dir nil :restart-watch-directories nil :windows nil) -{logger /}: [ info] racket-mode: starting repl session 4 -{logger /}: [ debug] racket-mode: (set-session! 4 #f) => sessions: #hasheq((4 . #(struct:session # # # # #f #))) -{logger /}: [ debug] racket-mode: (set-session! 4 #f) => sessions: #hasheq((4 . #(struct:session # # # # #f #))) -{logger /}: [ debug] racket-mode: (set-session! 4 #f) => sessions: #hasheq((4 . #(struct:session # # # # #f #))) -{logger /}: [ debug] racket-mode: 10 cpu | 10 real | 0 gc :: '(69 "*" (repl-start 4)) -{logger /}: [ debug] + {racket-back-end-/} killed - passed 13/15 racket-tests/repl (455.183895 sec) +Test racket-tests/repl backtrace: + signal(ert-test-failed (((should (racket-tests/see-back-rx (rx "Starting back end...\n" "Welcome to Racket v" (+ (any hex ".-")) (32 " [" (or "bc" "cs") "]") ".\n" (32 "Warning: GUI programs might not work correctly because\n" "your version of Racket lacks `current-get-interaction-evt`,\n" "which was added in Racket 8.4.\n") "————— run repl.rkt —————\n" "repl.rkt> "))) :form (racket-tests/see-back-rx "Starting back end\\.\\.\\.\nWelcome to Racket v[.[:xdigit:]-]+\\(?: \\[\\(?:bc\\|cs\\)]\\)?\\.\n\\(?:Warning: GUI programs might not work correctly because\nyour version of Racket lacks `current-get-interaction-evt`,\nwhich was added in Racket 8\\.4\\.\n\\)?————— run repl\\.rkt —————\nrepl\\.rkt> ") :value nil :explanation (actual . "Starting back end...\n")))) + ert-fail(((should (racket-tests/see-back-rx (rx "Starting back end...\n" "Welcome to Racket v" (+ (any hex ".-")) (32 " [" (or "bc" "cs") "]") ".\n" (32 "Warning: GUI programs might not work correctly because\n" "your version of Racket lacks `current-get-interaction-evt`,\n" "which was added in Racket 8.4.\n") "————— run repl.rkt —————\n" "repl.rkt> "))) :form (racket-tests/see-back-rx "Starting back end\\.\\.\\.\nWelcome to Racket v[.[:xdigit:]-]+\\(?: \\[\\(?:bc\\|cs\\)]\\)?\\.\n\\(?:Warning: GUI programs might not work correctly because\nyour version of Racket lacks `current-get-interaction-evt`,\nwhich was added in Racket 8\\.4\\.\n\\)?————— run repl\\.rkt —————\nrepl\\.rkt> ") :value nil :explanation (actual . "Starting back end...\n"))) + (if (unwind-protect (setq value-752 (apply fn-750 args-751)) (setq form-description-754 (nconc (list '(should (racket-tests/see-back-rx ...))) (list :form (cons fn-750 args-751)) (if (eql value-752 'ert-form-evaluation-aborted-753) nil (list :value value-752)) (if (eql value-752 'ert-form-evaluation-aborted-753) nil (let* ((-explainer- ...)) (if -explainer- (list :explanation ...) nil))))) (ert--signal-should-execution form-description-754)) nil (ert-fail form-description-754)) + (let (form-description-754) (if (unwind-protect (setq value-752 (apply fn-750 args-751)) (setq form-description-754 (nconc (list '(should ...)) (list :form (cons fn-750 args-751)) (if (eql value-752 'ert-form-evaluation-aborted-753) nil (list :value value-752)) (if (eql value-752 'ert-form-evaluation-aborted-753) nil (let* (...) (if -explainer- ... nil))))) (ert--signal-should-execution form-description-754)) nil (ert-fail form-description-754))) + (let ((value-752 'ert-form-evaluation-aborted-753)) (let (form-description-754) (if (unwind-protect (setq value-752 (apply fn-750 args-751)) (setq form-description-754 (nconc (list '...) (list :form (cons fn-750 args-751)) (if (eql value-752 ...) nil (list :value value-752)) (if (eql value-752 ...) nil (let* ... ...)))) (ert--signal-should-execution form-description-754)) nil (ert-fail form-description-754))) value-752) + (let* ((fn-750 #'racket-tests/see-back-rx) (args-751 (condition-case err (list "Starting back end\\.\\.\\.\nWelcome to Racket v[.[:xdigit:]-]+\\(?: \\[\\(?:bc\\|cs\\)]\\)?\\.\n\\(?:Warning: GUI programs might not work correctly because\nyour version of Racket lacks `current-get-interaction-evt`,\nwhich was added in Racket 8\\.4\\.\n\\)?————— run repl\\.rkt —————\nrepl\\.rkt> ") (error (progn (setq fn-750 #'signal) (list (car err) (cdr err))))))) (let ((value-752 'ert-form-evaluation-aborted-753)) (let (form-description-754) (if (unwind-protect (setq value-752 (apply fn-750 args-751)) (setq form-description-754 (nconc (list ...) (list :form ...) (if ... nil ...) (if ... nil ...))) (ert--signal-should-execution form-description-754)) nil (ert-fail form-description-754))) value-752)) + #f(lambda () [t] (let* ((fn-750 #'racket-tests/see-back-rx) (args-751 (condition-case err ... ...))) (let ((value-752 ...)) (let (form-description-754) (if ... nil ...)) value-752)) (progn (racket-tests/call-until-true #'(lambda nil ...)) (let* ((fn-755 ...) (args-756 ...)) (let (...) (let ... ...) value-757))) (racket-tests/type "current-out") (completion-at-point) (let* ((fn-760 #'racket-tests/see-back) (args-761 (condition-case err ... ...))) (let ((value-762 ...)) (let (form-description-764) (if ... nil ...)) value-762)) (racket-tests/press "RET") (let* ((fn-765 #'racket-tests/see-back) (args-766 (condition-case err ... ...))) (let ((value-767 ...)) (let (form-description-769) (if ... nil ...)) value-767)) (racket-tests/type&press "(if 1" "C-j") (let* ((fn-770 #'racket-tests/see-back) (args-771 (condition-case err ... ...))) (let ((value-772 ...)) (let (form-description-774) (if ... nil ...)) value-772)) (racket-tests/type&press "2" "C-j") (let* ((fn-775 #'racket-tests/see-back) (args-776 (condition-case err ... ...))) (let ((value-777 ...)) (let (form-description-779) (if ... nil ...)) value-777)) (racket-tests/type&press "3)" "RET") (let* ((fn-780 #'racket-tests/see-back) (args-781 (condition-case err ... ...))) (let ((value-782 ...)) (let (form-description-784) (if ... nil ...)) value-782)) (racket-tests/type&press "1 2 3" "RET") (let* ((fn-785 #'racket-tests/see-back) (args-786 (condition-case err ... ...))) (let ((value-787 ...)) (let (form-description-789) (if ... nil ...)) value-787)) (racket-tests/type&press "(+ 1) (+ 2) (+ 3)" "RET") (let* ((fn-790 #'racket-tests/see-back) (args-791 (condition-case err ... ...))) (let ((value-792 ...)) (let (form-description-794) (if ... nil ...)) value-792)) (racket-tests/type&press "\"1\" '2 #(3)" "RET") (let* ((fn-795 #'racket-tests/see-back) (args-796 (condition-case err ... ...))) (let ((value-797 ...)) (let (form-description-799) (if ... nil ...)) value-797)) (racket-tests/type&press "1 " "RET") (let* ((fn-800 #'racket-tests/see-back) (args-801 (condition-case err ... ...))) (let ((value-802 ...)) (let (form-description-804) (if ... nil ...)) value-802)) (let ((tail '...)) (while tail (let (...) (define-key paredit-mode-map ... nil) (setq tail ...)))) (let ((typing "[cond [[values 1] #t] [else #f]]") (expected "(cond [(values 1) #t] [else #f])\n#t\nrepl.rkt> ")) (mapc #'(lambda ... ... ... ... ... ... ...) (list (cons t nil) (cons nil t) (cons nil nil)))) (racket-tests/type&press "(exit)" "RET") (let* ((fn-810 #'racket-tests/see-back) (args-811 (condition-case err ... ...))) (let ((value-812 ...)) (let (form-description-814) (if ... nil ...)) value-812)) (kill-buffer))() + funcall(#f(lambda () [t] (let* ((fn-750 #'racket-tests/see-back-rx) (args-751 (condition-case err (list "Starting back end\\.\\.\\.\nWelcome to Racket v[.[:xdigit:]-]+\\(?: \\[\\(?:bc\\|cs\\)]\\)?\\.\n\\(?:Warning: GUI programs might not work correctly because\nyour version of Racket lacks `current-get-interaction-evt`,\nwhich was added in Racket 8\\.4\\.\n\\)?————— run repl\\.rkt —————\nrepl\\.rkt> ") (error ...)))) (let ((value-752 'ert-form-evaluation-aborted-753)) (let (form-description-754) (if (unwind-protect ... ... ...) nil (ert-fail form-description-754))) value-752)) (progn (racket-tests/call-until-true #'(lambda nil (member "current-output-port" racket--repl-namespace-symbols))) (let* ((fn-755 #'member) (args-756 (condition-case err ... ...))) (let ((value-757 ...)) (let (form-description-759) (if ... nil ...)) value-757))) (racket-tests/type "current-out") (completion-at-point) (let* ((fn-760 #'racket-tests/see-back) (args-761 (condition-case err (list "current-output-port") (error ...)))) (let ((value-762 'ert-form-evaluation-aborted-763)) (let (form-description-764) (if (unwind-protect ... ... ...) nil (ert-fail form-description-764))) value-762)) (racket-tests/press "RET") (let* ((fn-765 #'racket-tests/see-back) (args-766 (condition-case err (list "#\nrepl.rkt> ") (error ...)))) (let ((value-767 'ert-form-evaluation-aborted-768)) (let (form-description-769) (if (unwind-protect ... ... ...) nil (ert-fail form-description-769))) value-767)) (racket-tests/type&press "(if 1" "C-j") (let* ((fn-770 #'racket-tests/see-back) (args-771 (condition-case err (list "(if 1\n ") (error ...)))) (let ((value-772 'ert-form-evaluation-aborted-773)) (let (form-description-774) (if (unwind-protect ... ... ...) nil (ert-fail form-description-774))) value-772)) (racket-tests/type&press "2" "C-j") (let* ((fn-775 #'racket-tests/see-back) (args-776 (condition-case err (list "2\n ") (error ...)))) (let ((value-777 'ert-form-evaluation-aborted-778)) (let (form-description-779) (if (unwind-protect ... ... ...) nil (ert-fail form-description-779))) value-777)) (racket-tests/type&press "3)" "RET") (let* ((fn-780 #'racket-tests/see-back) (args-781 (condition-case err (list "3)\n2\nrepl.rkt> ") (error ...)))) (let ((value-782 'ert-form-evaluation-aborted-783)) (let (form-description-784) (if (unwind-protect ... ... ...) nil (ert-fail form-description-784))) value-782)) (racket-tests/type&press "1 2 3" "RET") (let* ((fn-785 #'racket-tests/see-back) (args-786 (condition-case err (list "1\n2\n3\nrepl.rkt> ") (error ...)))) (let ((value-787 'ert-form-evaluation-aborted-788)) (let (form-description-789) (if (unwind-protect ... ... ...) nil (ert-fail form-description-789))) value-787)) (racket-tests/type&press "(+ 1) (+ 2) (+ 3)" "RET") (let* ((fn-790 #'racket-tests/see-back) (args-791 (condition-case err (list "1\n2\n3\nrepl.rkt> ") (error ...)))) (let ((value-792 'ert-form-evaluation-aborted-793)) (let (form-description-794) (if (unwind-protect ... ... ...) nil (ert-fail form-description-794))) value-792)) (racket-tests/type&press "\"1\" '2 #(3)" "RET") (let* ((fn-795 #'racket-tests/see-back) (args-796 (condition-case err (list "\"1\"\n2\n'#(3)\nrepl.rkt> ") (error ...)))) (let ((value-797 'ert-form-evaluation-aborted-798)) (let (form-description-799) (if (unwind-protect ... ... ...) nil (ert-fail form-description-799))) value-797)) (racket-tests/type&press "1 " "RET") (let* ((fn-800 #'racket-tests/see-back) (args-801 (condition-case err (list "1\nrepl.rkt> ") (error ...)))) (let ((value-802 'ert-form-evaluation-aborted-803)) (let (form-description-804) (if (unwind-protect ... ... ...) nil (ert-fail form-description-804))) value-802)) (let ((tail '("RET" "C-m" "C-j"))) (while tail (let ((k ...)) (define-key paredit-mode-map (kbd k) nil) (setq tail (cdr tail))))) (let ((typing "[cond [[values 1] #t] [else #f]]") (expected "(cond [(values 1) #t] [else #f])\n#t\nrepl.rkt> ")) (mapc #'(lambda (modes) (racket-smart-open-bracket-mode -1) (electric-pair-mode ...) (if ... ... ...) (racket-smart-open-bracket-mode 1) (racket-tests/type&press typing "RET") (let* ... ...)) (list (cons t nil) (cons nil t) (cons nil nil)))) (racket-tests/type&press "(exit)" "RET") (let* ((fn-810 #'racket-tests/see-back) (args-811 (condition-case err (list "REPL session ended\n") (error ...)))) (let ((value-812 'ert-form-evaluation-aborted-813)) (let (form-description-814) (if (unwind-protect ... ... ...) nil (ert-fail form-description-814))) value-812)) (kill-buffer))) + (save-current-buffer (set-buffer buf) (funcall thunk)) + (let ((buf val)) (save-current-buffer (set-buffer buf) (funcall thunk))) + (cond ((not (bufferp val)) nil) ((buffer-live-p val) (let ((buf val)) (save-current-buffer (set-buffer buf) (funcall thunk))))) + (let* ((val (get-buffer name))) (cond ((not (bufferp val)) nil) ((buffer-live-p val) (let ((buf val)) (save-current-buffer (set-buffer buf) (funcall thunk)))))) + (let ((name val)) (let* ((val (get-buffer name))) (cond ((not (bufferp val)) nil) ((buffer-live-p val) (let ((buf val)) (save-current-buffer (set-buffer buf) (funcall thunk))))))) + (if (stringp val) (let ((name val)) (let* ((val (get-buffer name))) (cond ((not (bufferp val)) nil) ((buffer-live-p val) (let ((buf val)) (save-current-buffer (set-buffer buf) (funcall thunk)))))))) + (let* ((val (if (eq major-mode 'racket-repl-mode) (buffer-name) racket-repl-buffer-name))) (if (stringp val) (let ((name val)) (let* ((val (get-buffer name))) (cond ((not (bufferp val)) nil) ((buffer-live-p val) (let (...) (save-current-buffer ... ...)))))))) + racket--call-with-repl-buffer(#f(lambda () [t] (let* ((fn-750 #'racket-tests/see-back-rx) (args-751 (condition-case err (list "Starting back end\\.\\.\\.\nWelcome to Racket v[.[:xdigit:]-]+\\(?: \\[\\(?:bc\\|cs\\)]\\)?\\.\n\\(?:Warning: GUI programs might not work correctly because\nyour version of Racket lacks `current-get-interaction-evt`,\nwhich was added in Racket 8\\.4\\.\n\\)?————— run repl\\.rkt —————\nrepl\\.rkt> ") (error ...)))) (let ((value-752 'ert-form-evaluation-aborted-753)) (let (form-description-754) (if (unwind-protect ... ... ...) nil (ert-fail form-description-754))) value-752)) (progn (racket-tests/call-until-true #'(lambda nil (member "current-output-port" racket--repl-namespace-symbols))) (let* ((fn-755 #'member) (args-756 (condition-case err ... ...))) (let ((value-757 ...)) (let (form-description-759) (if ... nil ...)) value-757))) (racket-tests/type "current-out") (completion-at-point) (let* ((fn-760 #'racket-tests/see-back) (args-761 (condition-case err (list "current-output-port") (error ...)))) (let ((value-762 'ert-form-evaluation-aborted-763)) (let (form-description-764) (if (unwind-protect ... ... ...) nil (ert-fail form-description-764))) value-762)) (racket-tests/press "RET") (let* ((fn-765 #'racket-tests/see-back) (args-766 (condition-case err (list "#\nrepl.rkt> ") (error ...)))) (let ((value-767 'ert-form-evaluation-aborted-768)) (let (form-description-769) (if (unwind-protect ... ... ...) nil (ert-fail form-description-769))) value-767)) (racket-tests/type&press "(if 1" "C-j") (let* ((fn-770 #'racket-tests/see-back) (args-771 (condition-case err (list "(if 1\n ") (error ...)))) (let ((value-772 'ert-form-evaluation-aborted-773)) (let (form-description-774) (if (unwind-protect ... ... ...) nil (ert-fail form-description-774))) value-772)) (racket-tests/type&press "2" "C-j") (let* ((fn-775 #'racket-tests/see-back) (args-776 (condition-case err (list "2\n ") (error ...)))) (let ((value-777 'ert-form-evaluation-aborted-778)) (let (form-description-779) (if (unwind-protect ... ... ...) nil (ert-fail form-description-779))) value-777)) (racket-tests/type&press "3)" "RET") (let* ((fn-780 #'racket-tests/see-back) (args-781 (condition-case err (list "3)\n2\nrepl.rkt> ") (error ...)))) (let ((value-782 'ert-form-evaluation-aborted-783)) (let (form-description-784) (if (unwind-protect ... ... ...) nil (ert-fail form-description-784))) value-782)) (racket-tests/type&press "1 2 3" "RET") (let* ((fn-785 #'racket-tests/see-back) (args-786 (condition-case err (list "1\n2\n3\nrepl.rkt> ") (error ...)))) (let ((value-787 'ert-form-evaluation-aborted-788)) (let (form-description-789) (if (unwind-protect ... ... ...) nil (ert-fail form-description-789))) value-787)) (racket-tests/type&press "(+ 1) (+ 2) (+ 3)" "RET") (let* ((fn-790 #'racket-tests/see-back) (args-791 (condition-case err (list "1\n2\n3\nrepl.rkt> ") (error ...)))) (let ((value-792 'ert-form-evaluation-aborted-793)) (let (form-description-794) (if (unwind-protect ... ... ...) nil (ert-fail form-description-794))) value-792)) (racket-tests/type&press "\"1\" '2 #(3)" "RET") (let* ((fn-795 #'racket-tests/see-back) (args-796 (condition-case err (list "\"1\"\n2\n'#(3)\nrepl.rkt> ") (error ...)))) (let ((value-797 'ert-form-evaluation-aborted-798)) (let (form-description-799) (if (unwind-protect ... ... ...) nil (ert-fail form-description-799))) value-797)) (racket-tests/type&press "1 " "RET") (let* ((fn-800 #'racket-tests/see-back) (args-801 (condition-case err (list "1\nrepl.rkt> ") (error ...)))) (let ((value-802 'ert-form-evaluation-aborted-803)) (let (form-description-804) (if (unwind-protect ... ... ...) nil (ert-fail form-description-804))) value-802)) (let ((tail '("RET" "C-m" "C-j"))) (while tail (let ((k ...)) (define-key paredit-mode-map (kbd k) nil) (setq tail (cdr tail))))) (let ((typing "[cond [[values 1] #t] [else #f]]") (expected "(cond [(values 1) #t] [else #f])\n#t\nrepl.rkt> ")) (mapc #'(lambda (modes) (racket-smart-open-bracket-mode -1) (electric-pair-mode ...) (if ... ... ...) (racket-smart-open-bracket-mode 1) (racket-tests/type&press typing "RET") (let* ... ...)) (list (cons t nil) (cons nil t) (cons nil nil)))) (racket-tests/type&press "(exit)" "RET") (let* ((fn-810 #'racket-tests/see-back) (args-811 (condition-case err (list "REPL session ended\n") (error ...)))) (let ((value-812 'ert-form-evaluation-aborted-813)) (let (form-description-814) (if (unwind-protect ... ... ...) nil (ert-fail form-description-814))) value-812)) (kill-buffer))) + (save-current-buffer (set-buffer (find-file-noselect racket-repl-command-file)) (racket--call-with-repl-buffer #'(lambda nil (let* ((fn-750 #'racket-tests/see-back-rx) (args-751 (condition-case err ... ...))) (let ((value-752 ...)) (let (form-description-754) (if ... nil ...)) value-752)) (progn (racket-tests/call-until-true #'(lambda nil ...)) (let* ((fn-755 ...) (args-756 ...)) (let (...) (let ... ...) value-757))) (racket-tests/type "current-out") (completion-at-point) (let* ((fn-760 #'racket-tests/see-back) (args-761 (condition-case err ... ...))) (let ((value-762 ...)) (let (form-description-764) (if ... nil ...)) value-762)) (racket-tests/press "RET") (let* ((fn-765 #'racket-tests/see-back) (args-766 (condition-case err ... ...))) (let ((value-767 ...)) (let (form-description-769) (if ... nil ...)) value-767)) (racket-tests/type&press "(if 1" "C-j") (let* ((fn-770 #'racket-tests/see-back) (args-771 (condition-case err ... ...))) (let ((value-772 ...)) (let (form-description-774) (if ... nil ...)) value-772)) (racket-tests/type&press "2" "C-j") (let* ((fn-775 #'racket-tests/see-back) (args-776 (condition-case err ... ...))) (let ((value-777 ...)) (let (form-description-779) (if ... nil ...)) value-777)) (racket-tests/type&press "3)" "RET") (let* ((fn-780 #'racket-tests/see-back) (args-781 (condition-case err ... ...))) (let ((value-782 ...)) (let (form-description-784) (if ... nil ...)) value-782)) (racket-tests/type&press "1 2 3" "RET") (let* ((fn-785 #'racket-tests/see-back) (args-786 (condition-case err ... ...))) (let ((value-787 ...)) (let (form-description-789) (if ... nil ...)) value-787)) (racket-tests/type&press "(+ 1) (+ 2) (+ 3)" "RET") (let* ((fn-790 #'racket-tests/see-back) (args-791 (condition-case err ... ...))) (let ((value-792 ...)) (let (form-description-794) (if ... nil ...)) value-792)) (racket-tests/type&press "\"1\" '2 #(3)" "RET") (let* ((fn-795 #'racket-tests/see-back) (args-796 (condition-case err ... ...))) (let ((value-797 ...)) (let (form-description-799) (if ... nil ...)) value-797)) (racket-tests/type&press "1 " "RET") (let* ((fn-800 #'racket-tests/see-back) (args-801 (condition-case err ... ...))) (let ((value-802 ...)) (let (form-description-804) (if ... nil ...)) value-802)) (let ((tail '...)) (while tail (let (...) (define-key paredit-mode-map ... nil) (setq tail ...)))) (let ((typing "[cond [[values 1] #t] [else #f]]") (expected "(cond [(values 1) #t] [else #f])\n#t\nrepl.rkt> ")) (mapc #'(lambda ... ... ... ... ... ... ...) (list (cons t nil) (cons nil t) (cons nil nil)))) (racket-tests/type&press "(exit)" "RET") (let* ((fn-810 #'racket-tests/see-back) (args-811 (condition-case err ... ...))) (let ((value-812 ...)) (let (form-description-814) (if ... nil ...)) value-812)) (kill-buffer)))) + #f(lambda () [t] (racket-repl) (let* ((fn-745 #'get-buffer) (args-746 (condition-case err ... ...))) (let ((value-747 ...)) (let (form-description-749) (if ... nil ...)) value-747)) (save-current-buffer (set-buffer (find-file-noselect racket-repl-command-file)) (racket--call-with-repl-buffer #'(lambda nil ... ... ... ... ... ... ... ... ...))))() + funcall(#f(lambda () [t] (racket-repl) (let* ((fn-745 #'get-buffer) (args-746 (condition-case err (list (find-file-noselect racket-repl-command-file)) (error (progn ... ...))))) (let ((value-747 'ert-form-evaluation-aborted-748)) (let (form-description-749) (if (unwind-protect (setq value-747 ...) (setq form-description-749 ...) (ert--signal-should-execution form-description-749)) nil (ert-fail form-description-749))) value-747)) (save-current-buffer (set-buffer (find-file-noselect racket-repl-command-file)) (racket--call-with-repl-buffer #'(lambda nil (let* (... ...) (let ... ... value-752)) (progn (racket-tests/call-until-true ...) (let* ... ...)) (racket-tests/type "current-out") (completion-at-point) (let* (... ...) (let ... ... value-762)) (racket-tests/press "RET") (let* (... ...) (let ... ... value-767)) (racket-tests/type&press "(if 1" "C-j") (let* (... ...) (let ... ... value-772)) (racket-tests/type&press "2" "C-j") (let* (... ...) (let ... ... value-777)) (racket-tests/type&press "3)" "RET") (let* (... ...) (let ... ... value-782)) (racket-tests/type&press "1 2 3" "RET") (let* (... ...) (let ... ... value-787)) (racket-tests/type&press "(+ 1) (+ 2) (+ 3)" "RET") (let* (... ...) (let ... ... value-792)) (racket-tests/type&press "\"1\" '2 #(3)" "RET") (let* (... ...) (let ... ... value-797)) (racket-tests/type&press "1 " "RET") (let* (... ...) (let ... ... value-802)) (let (...) (while tail ...)) (let (... ...) (mapc ... ...)) (racket-tests/type&press "(exit)" "RET") (let* (... ...) (let ... ... value-812)) (kill-buffer)))))) + (unwind-protect (funcall thunk) (racket-stop-back-end)) + (let ((racket-command-timeout racket-tests/timeout)) (unwind-protect (funcall thunk) (racket-stop-back-end))) + racket-tests/call-with-back-end-settings(#f(lambda () [t] (racket-repl) (let* ((fn-745 #'get-buffer) (args-746 (condition-case err (list (find-file-noselect racket-repl-command-file)) (error (progn ... ...))))) (let ((value-747 'ert-form-evaluation-aborted-748)) (let (form-description-749) (if (unwind-protect (setq value-747 ...) (setq form-description-749 ...) (ert--signal-should-execution form-description-749)) nil (ert-fail form-description-749))) value-747)) (save-current-buffer (set-buffer (find-file-noselect racket-repl-command-file)) (racket--call-with-repl-buffer #'(lambda nil (let* (... ...) (let ... ... value-752)) (progn (racket-tests/call-until-true ...) (let* ... ...)) (racket-tests/type "current-out") (completion-at-point) (let* (... ...) (let ... ... value-762)) (racket-tests/press "RET") (let* (... ...) (let ... ... value-767)) (racket-tests/type&press "(if 1" "C-j") (let* (... ...) (let ... ... value-772)) (racket-tests/type&press "2" "C-j") (let* (... ...) (let ... ... value-777)) (racket-tests/type&press "3)" "RET") (let* (... ...) (let ... ... value-782)) (racket-tests/type&press "1 2 3" "RET") (let* (... ...) (let ... ... value-787)) (racket-tests/type&press "(+ 1) (+ 2) (+ 3)" "RET") (let* (... ...) (let ... ... value-792)) (racket-tests/type&press "\"1\" '2 #(3)" "RET") (let* (... ...) (let ... ... value-797)) (racket-tests/type&press "1 " "RET") (let* (... ...) (let ... ... value-802)) (let (...) (while tail ...)) (let (... ...) (mapc ... ...)) (racket-tests/type&press "(exit)" "RET") (let* (... ...) (let ... ... value-812)) (kill-buffer)))))) + #f(lambda () [t] (message "racket-tests/repl") (racket-tests/call-with-back-end-settings #'(lambda nil (racket-repl) (let* ... ...) (save-current-buffer ... ...))) nil)() + #f(compiled-function () #)() + handler-bind-1(#f(compiled-function () #) (error quit) #f(compiled-function (err) #)) + ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test :name racket-tests/repl :documentation "Exercise `racket-repl' command." :body #f(lambda () ... ... ... nil) :most-recent-result ... :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/racket-mode-20250212~git.eef5e9a/test/racket-tests.el") :result #s(ert-test-failed :messages "racket-tests/repl\n{racket-back-end-/} killed\n" :should-forms ... :duration 901.43457707 :condition ... :backtrace ... :infos nil) :exit-continuation #f(compiled-function () #) :ert-debug-on-error nil)) + ert-run-test(#s(ert-test :name racket-tests/repl :documentation "Exercise `racket-repl' command." :body #f(lambda () [t] (message "racket-tests/repl") (racket-tests/call-with-back-end-settings #'...) nil) :most-recent-result #s(ert-test-failed :messages "racket-tests/repl\n{racket-back-end-/} killed\n" :should-forms ((... :form ... :value #) (... :form ... :value nil :explanation ...)) :duration 901.43457707 :condition (ert-test-failed (... :form ... :value nil :explanation ...)) :backtrace (#s(backtrace-frame :evald t :fun signal :args ... :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert-fail :args ... :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun if :args ... :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun let :args ... :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun let :args ... :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun let* :args ... :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald t :fun #f(lambda () ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :args nil :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun funcall :args ... :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun save-current-buffer :args ... :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun let :args ... :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun cond :args ... :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun let* :args ... :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun let :args ... :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun if :args ... :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun let* :args ... :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald t :fun racket--call-with-repl-buffer :args ... :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun save-current-buffer :args ... :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun #f(lambda () ... ... ... ...) :args nil :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun funcall :args ... :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun unwind-protect :args ... :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun let :args ... :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald t :fun racket-tests/call-with-back-end-settings :args ... :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald t :fun #f(lambda () ... ... ... nil) :args nil :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun #f(compiled-function () #) :args nil :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun handler-bind-1 :args ... :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert--run-test-internal :args ... :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert-run-test :args #0 :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert-run-or-rerun-test :args ... :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert-run-tests :args ... :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert-run-tests-batch :args ... :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert-run-tests-batch-and-exit :args nil :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun command-line-1 :args ... :flags nil :locals ... :buffer nil :pos nil) ...) :infos nil) :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/racket-mode-20250212~git.eef5e9a/test/racket-tests.el")) + ert-run-or-rerun-test(#s(ert--stats :selector t :tests ... :test-map # :test-results ... :test-start-times ... :test-end-times ... :passed-expected 7 :passed-unexpected 0 :failed-expected 0 :failed-unexpected 3 :skipped 3 :start-time ... :end-time nil :aborted-p nil ...) #s(ert-test :name racket-tests/repl :documentation "Exercise `racket-repl' command." :body #f(lambda () ... ... ... nil) :most-recent-result ... :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/racket-mode-20250212~git.eef5e9a/test/racket-tests.el") #f(compiled-function (event-type &rest event-args) #)) + ert-run-tests(t #f(compiled-function (event-type &rest event-args) #) nil) + ert-run-tests-batch(nil) + ert-run-tests-batch-and-exit() + command-line-1(("-l" "package" "--eval" "(add-to-list 'package-directory-list \"/usr/share/emacs/site-lisp/elpa\")" "--eval" "(add-to-list 'package-directory-list \"/usr/share/emacs/site-lisp/elpa-src\")" "--eval" "(setq ert-batch-backtrace-right-margin nil)" "-f" "package-initialize" "-L" "." "-L" "test" "--eval" "(progn (setenv \"DEBIAN_BUILDD\" \"1\") (setq user-emacs-directory \"/tmp/emacs-home\"))" "-l" "test/racket-tests.el" "-f" "ert-run-tests-batch-and-exit")) + command-line() + normal-top-level() + +Test racket-tests/repl condition: + (ert-test-failed + ((should + (racket-tests/see-back-rx + (rx "Starting back end...\n" "Welcome to Racket v" ... ... ".\n" + ... "————— run repl.rkt —————\n" "repl.rkt> "))) + :form + (racket-tests/see-back-rx + "Starting back end\\.\\.\\.\nWelcome to Racket v[.[:xdigit:]-]+\\(?: \\[\\(?:bc\\|cs\\)]\\)?\\.\n\\(?:Warning: GUI programs might not work correctly because\nyour version of Racket lacks `current-get-interaction-evt`,\nwhich was added in Racket 8\\.4\\.\n\\)?————— run repl\\.rkt —————\nrepl\\.rkt> ") + :value nil :explanation (actual . "Starting back end...\n"))) + FAILED 13/15 racket-tests/repl (901.434577 sec) at test/racket-tests.el:120 racket-tests/run - racket-mode: '(run ("/tmp/emacs-home/racket-mode/repl.rkt") () 2048 #t 80 1 medium () ()): using session ID 4 -{logger /}: [ debug] racket-mode: '(debug-disable): using session ID 4 -{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(70 4 (debug-disable)) -{logger /}: [ debug] racket-mode: (set-session! 4 #) => sessions: #hasheq((4 . #(struct:session # # # # # #))) -{logger /}: [ debug] racket-mode: (set-session! 4 #) => sessions: #hasheq((4 . #(struct:session # # # # # #))) -{logger /}: [ debug] racket-mode: 27 cpu | 27 real | 5 gc :: '(71 4 (run ("/tmp/emacs-home/racket-mode/repl.rkt") () 2048 #t 80 1 medium () ())) -{logger /}: [ debug] racket-mode: '(syms): using session ID 4 -{logger /}: [ debug] racket-mode: 4 cpu | 4 real | 2 gc :: '(72 4 (syms)) -{logger /}: [ debug] racket-mode: '(repl-submit "current-output-port\n"): using session ID 4 -{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(73 4 (repl-submit "current-output-port\n")) -{logger /}: [ debug] racket-mode: '(repl-submit "(if 1\n 2\n 3)\n"): using session ID 4 -{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(74 4 (repl-submit "(if 1\n 2\n 3)\n")) -{logger /}: [ debug] racket-mode: '(repl-submit "1 2 3\n"): using session ID 4 -{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(75 4 (repl-submit "1 2 3\n")) -{logger /}: [ debug] racket-mode: '(repl-submit "(+ 1) (+ 2) (+ 3)\n"): using session ID 4 -{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(76 4 (repl-submit "(+ 1) (+ 2) (+ 3)\n")) -{logger /}: [ debug] racket-mode: '(repl-submit "\"1\" '2 #(3)\n"): using session ID 4 -{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(77 4 (repl-submit "\"1\" '2 #(3)\n")) -{logger /}: [ debug] racket-mode: '(repl-submit "1 \n"): using session ID 4 -{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(78 4 (repl-submit "1 \n")) -{logger /}: [ debug] racket-mode: '(repl-submit "(cond [(values 1) #t] [else #f])\n"): using session ID 4 -{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(79 4 (repl-submit "(cond [(values 1) #t] [else #f])\n")) -{logger /}: [ debug] racket-mode: '(repl-submit "(cond [(values 1) #t] [else #f])\n"): using session ID 4 -{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(80 4 (repl-submit "(cond [(values 1) #t] [else #f])\n")) -{logger /}: [ debug] racket-mode: '(repl-submit "(cond [(values 1) #t] [else #f])\n"): using session ID 4 -{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(81 4 (repl-submit "(cond [(values 1) #t] [else #f])\n")) -{logger /}: [ debug] racket-mode: '(repl-submit "(exit)\n"): using session ID 4 -{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(82 4 (repl-submit "(exit)\n")) -{racket--repl-start}: picked next session id 5 -back end is (:directory "/" :racket-program nil :remote-source-dir nil :restart-watch-directories nil :windows nil) -{logger /}: [ info] racket-mode: starting repl session 5 -{logger /}: [ debug] racket-mode: (set-session! 5 #f) => sessions: #hasheq((5 . #(struct:session # # # # #f #))) -{logger /}: [ debug] racket-mode: (set-session! 5 #f) => sessions: #hasheq((5 . #(struct:session # # # # #f #))) -{logger /}: [ debug] racket-mode: (set-session! 5 #f) => sessions: #hasheq((5 . #(struct:session # # # # #f #))) -{logger /}: [ debug] racket-mode: 39 cpu | 80 real | 27 gc :: '(83 "*" (repl-start 5)) -{logger /}: [ debug] racket-mode: '(run ("/tmp/testPH8ftM.rkt") ((test) (main)) 2048 #t 80 1 medium () ()): using session ID 5 -{logger /}: [ debug] racket-mode: '(debug-disable): using session ID 5 -{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(84 5 (debug-disable)) -{logger /}: [ debug] racket-mode: (set-session! 5 #) => sessions: #hasheq((5 . #(struct:session # # # # # #))) -{logger /}: [ debug] racket-mode: (set-session! 5 #) => sessions: #hasheq((5 . #(struct:session # # # # # #))) -{logger /}: [ debug] racket-mode: 29 cpu | 58 real | 4 gc :: '(85 5 (run ("/tmp/testPH8ftM.rkt") ((test) (main)) 2048 #t 80 1 medium () ())) -{logger /}: [ debug] racket-mode: '(syms): using session ID 5 -{logger /}: [ debug] racket-mode: 1 cpu | 1 real | 0 gc :: '(86 5 (syms)) -{logger /}: [ debug] racket-mode: '(repl-exit): using session ID 5 -{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(87 5 (repl-exit)) -{logger /}: [ debug] racket-mode: (remove-session! 5) => sessions: '#hasheq() -back end is (:directory "/" :racket-program nil :remote-source-dir nil :restart-watch-directories nil :windows nil) -{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(88 "*" (hash-lang create 3 () "#lang racket/base\n(define foobar 42)\nfoobar\n")) -{racket--repl-start}: picked next session id 6 -{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(89 "*" (hash-lang create 4 "#lang racket/base\n(define foobar 42)\nfoobar\n" "")) -{logger /}: [ info] racket-mode: starting repl session 6 -{logger /}: [ debug] racket-mode: (set-session! 6 #f) => sessions: #hasheq((6 . #(struct:session # # # # #f #))) -{logger /}: [ debug] racket-mode: (set-session! 6 #f) => sessions: #hasheq((6 . #(struct:session # # # # #f #))) -{logger /}: [ debug] racket-mode: (set-session! 6 #f) => sessions: #hasheq((6 . #(struct:session # # # # #f #))) -{logger /}: [ debug] racket-mode: 10 cpu | 15 real | 0 gc :: '(90 "*" (repl-start 6)) -{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(97 "*" (hash-lang update 4 6 32 1 " ")) -{logger /}: [ debug] racket-mode: '(run ("/tmp/testrDCtNX.rkt") ((test) (main)) 2048 #t 80 1 medium () ()): using session ID 6 -{logger /}: [ debug] racket-mode: '(debug-disable): using session ID 6 -{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(91 6 (debug-disable)) -{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(93 "*" (hash-lang update 4 2 1 0 " \n")) -{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(94 "*" (hash-lang update 4 3 1 30 " \n")) -{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(95 "*" (hash-lang update 4 4 30 1 "\n")) -{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(96 "*" (hash-lang update 4 5 31 0 " ")) -{logger /}: [ debug] racket-mode: (set-session! 6 #) => sessions: #hasheq((6 . #(struct:session # # # # # #))) -{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(101 "*" (hash-lang update 4 10 61 1 "\n")) -{logger /}: [ debug] racket-mode: 10 cpu | 22 real | 4 gc :: '(98 "*" (hash-lang update 4 7 31 2 "")) -{logger /}: [ debug] + {racket-back-end-/} killed - passed 14/15 racket-tests/run (987.236055 sec) +Test racket-tests/run backtrace: + signal(ert-test-failed (((should (racket-tests/see-back (concat "\n" name "> "))) :form (racket-tests/see-back "\ntestMxOMhE.rkt> ") :value nil :explanation (actual . "Starting back end...\n")))) + ert-fail(((should (racket-tests/see-back (concat "\n" name "> "))) :form (racket-tests/see-back "\ntestMxOMhE.rkt> ") :value nil :explanation (actual . "Starting back end...\n"))) + (if (unwind-protect (setq value-839 (apply fn-837 args-838)) (setq form-description-841 (nconc (list '(should (racket-tests/see-back ...))) (list :form (cons fn-837 args-838)) (if (eql value-839 'ert-form-evaluation-aborted-840) nil (list :value value-839)) (if (eql value-839 'ert-form-evaluation-aborted-840) nil (let* ((-explainer- ...)) (if -explainer- (list :explanation ...) nil))))) (ert--signal-should-execution form-description-841)) nil (ert-fail form-description-841)) + (let (form-description-841) (if (unwind-protect (setq value-839 (apply fn-837 args-838)) (setq form-description-841 (nconc (list '(should ...)) (list :form (cons fn-837 args-838)) (if (eql value-839 'ert-form-evaluation-aborted-840) nil (list :value value-839)) (if (eql value-839 'ert-form-evaluation-aborted-840) nil (let* (...) (if -explainer- ... nil))))) (ert--signal-should-execution form-description-841)) nil (ert-fail form-description-841))) + (let ((value-839 'ert-form-evaluation-aborted-840)) (let (form-description-841) (if (unwind-protect (setq value-839 (apply fn-837 args-838)) (setq form-description-841 (nconc (list '...) (list :form (cons fn-837 args-838)) (if (eql value-839 ...) nil (list :value value-839)) (if (eql value-839 ...) nil (let* ... ...)))) (ert--signal-should-execution form-description-841)) nil (ert-fail form-description-841))) value-839) + (let* ((fn-837 #'racket-tests/see-back) (args-838 (condition-case err (list (concat "\n" name "> ")) (error (progn (setq fn-837 #'signal) (list (car err) (cdr err))))))) (let ((value-839 'ert-form-evaluation-aborted-840)) (let (form-description-841) (if (unwind-protect (setq value-839 (apply fn-837 args-838)) (setq form-description-841 (nconc (list ...) (list :form ...) (if ... nil ...) (if ... nil ...))) (ert--signal-should-execution form-description-841)) nil (ert-fail form-description-841))) value-839)) + #f(lambda () [(name "testMxOMhE.rkt")] (let* ((fn-837 #'racket-tests/see-back) (args-838 (condition-case err ... ...))) (let ((value-839 ...)) (let (form-description-841) (if ... nil ...)) value-839)) (racket-repl-exit) (let* ((fn-842 #'racket-tests/see-back) (args-843 (condition-case err ... ...))) (let ((value-844 ...)) (let (form-description-846) (if ... nil ...)) value-844)) (kill-buffer))() + funcall(#f(lambda () [(name "testMxOMhE.rkt")] (let* ((fn-837 #'racket-tests/see-back) (args-838 (condition-case err (list (concat "\n" name "> ")) (error (progn ... ...))))) (let ((value-839 'ert-form-evaluation-aborted-840)) (let (form-description-841) (if (unwind-protect (setq value-839 ...) (setq form-description-841 ...) (ert--signal-should-execution form-description-841)) nil (ert-fail form-description-841))) value-839)) (racket-repl-exit) (let* ((fn-842 #'racket-tests/see-back) (args-843 (condition-case err (list "REPL session ended\n") (error (progn ... ...))))) (let ((value-844 'ert-form-evaluation-aborted-845)) (let (form-description-846) (if (unwind-protect (setq value-844 ...) (setq form-description-846 ...) (ert--signal-should-execution form-description-846)) nil (ert-fail form-description-846))) value-844)) (kill-buffer))) + (save-current-buffer (set-buffer buf) (funcall thunk)) + (let ((buf val)) (save-current-buffer (set-buffer buf) (funcall thunk))) + (cond ((not (bufferp val)) nil) ((buffer-live-p val) (let ((buf val)) (save-current-buffer (set-buffer buf) (funcall thunk))))) + (let* ((val (get-buffer name))) (cond ((not (bufferp val)) nil) ((buffer-live-p val) (let ((buf val)) (save-current-buffer (set-buffer buf) (funcall thunk)))))) + (let ((name val)) (let* ((val (get-buffer name))) (cond ((not (bufferp val)) nil) ((buffer-live-p val) (let ((buf val)) (save-current-buffer (set-buffer buf) (funcall thunk))))))) + (if (stringp val) (let ((name val)) (let* ((val (get-buffer name))) (cond ((not (bufferp val)) nil) ((buffer-live-p val) (let ((buf val)) (save-current-buffer (set-buffer buf) (funcall thunk)))))))) + (let* ((val (if (eq major-mode 'racket-repl-mode) (buffer-name) racket-repl-buffer-name))) (if (stringp val) (let ((name val)) (let* ((val (get-buffer name))) (cond ((not (bufferp val)) nil) ((buffer-live-p val) (let (...) (save-current-buffer ... ...)))))))) + racket--call-with-repl-buffer(#f(lambda () [(name "testMxOMhE.rkt")] (let* ((fn-837 #'racket-tests/see-back) (args-838 (condition-case err (list (concat "\n" name "> ")) (error (progn ... ...))))) (let ((value-839 'ert-form-evaluation-aborted-840)) (let (form-description-841) (if (unwind-protect (setq value-839 ...) (setq form-description-841 ...) (ert--signal-should-execution form-description-841)) nil (ert-fail form-description-841))) value-839)) (racket-repl-exit) (let* ((fn-842 #'racket-tests/see-back) (args-843 (condition-case err (list "REPL session ended\n") (error (progn ... ...))))) (let ((value-844 'ert-form-evaluation-aborted-845)) (let (form-description-846) (if (unwind-protect (setq value-844 ...) (setq form-description-846 ...) (ert--signal-should-execution form-description-846)) nil (ert-fail form-description-846))) value-844)) (kill-buffer))) + (if (eq major-mode 'prog-mode) nil (racket-run) (progn (racket-tests/call-until-true #'(lambda nil (racket--repl-session-id))) (let* ((fn-832 #'racket--repl-session-id) (args-833 (condition-case err (list) (error (progn ... ...))))) (let ((value-834 'ert-form-evaluation-aborted-835)) (let (form-description-836) (if (unwind-protect (setq value-834 ...) (setq form-description-836 ...) (ert--signal-should-execution form-description-836)) nil (ert-fail form-description-836))) value-834))) (racket--call-with-repl-buffer #'(lambda nil (let* ((fn-837 #'racket-tests/see-back) (args-838 (condition-case err ... ...))) (let ((value-839 ...)) (let (form-description-841) (if ... nil ...)) value-839)) (racket-repl-exit) (let* ((fn-842 #'racket-tests/see-back) (args-843 (condition-case err ... ...))) (let ((value-844 ...)) (let (form-description-846) (if ... nil ...)) value-844)) (kill-buffer)))) + (let* ((path (make-temp-file "test" nil ".rkt")) (name (file-name-nondirectory path)) (code "#lang racket/base\n(define foobar 42)\nfoobar\n")) (write-region code nil path nil 'no-wrote-file-message) (find-file path) (funcall edit-mode) (progn (racket-tests/call-until-true #'(lambda nil (cond ((memql major-mode ...) (not buffer-read-only)) ((memql major-mode ...) t)))) (let ((value-830 (gensym "ert-form-evaluation-aborted-"))) (let (form-description-831) (if (unwind-protect (setq value-830 (cond ... ...)) (setq form-description-831 (list ... :form ... :value value-830)) (ert--signal-should-execution form-description-831)) nil (ert-fail form-description-831))) value-830)) (if (eq major-mode 'prog-mode) nil (racket-run) (progn (racket-tests/call-until-true #'(lambda nil (racket--repl-session-id))) (let* ((fn-832 #'racket--repl-session-id) (args-833 (condition-case err (list) (error ...)))) (let ((value-834 'ert-form-evaluation-aborted-835)) (let (form-description-836) (if (unwind-protect ... ... ...) nil (ert-fail form-description-836))) value-834))) (racket--call-with-repl-buffer #'(lambda nil (let* ((fn-837 ...) (args-838 ...)) (let (...) (let ... ...) value-839)) (racket-repl-exit) (let* ((fn-842 ...) (args-843 ...)) (let (...) (let ... ...) value-844)) (kill-buffer)))) (kill-buffer) (delete-file path)) + #f(lambda () [(edit-mode racket-mode)] (let* ((path (make-temp-file "test" nil ".rkt")) (name (file-name-nondirectory path)) (code "#lang racket/base\n(define foobar 42)\nfoobar\n")) (write-region code nil path nil 'no-wrote-file-message) (find-file path) (funcall edit-mode) (progn (racket-tests/call-until-true #'...) (let (...) (let ... ...) value-830)) (if (eq major-mode 'prog-mode) nil (racket-run) (progn (racket-tests/call-until-true ...) (let* ... ...)) (racket--call-with-repl-buffer #'...)) (kill-buffer) (delete-file path)))() + funcall(#f(lambda () [(edit-mode racket-mode)] (let* ((path (make-temp-file "test" nil ".rkt")) (name (file-name-nondirectory path)) (code "#lang racket/base\n(define foobar 42)\nfoobar\n")) (write-region code nil path nil 'no-wrote-file-message) (find-file path) (funcall edit-mode) (progn (racket-tests/call-until-true #'(lambda nil (cond ... ...))) (let ((value-830 (gensym "ert-form-evaluation-aborted-"))) (let (form-description-831) (if (unwind-protect ... ... ...) nil (ert-fail form-description-831))) value-830)) (if (eq major-mode 'prog-mode) nil (racket-run) (progn (racket-tests/call-until-true #'(lambda nil ...)) (let* ((fn-832 ...) (args-833 ...)) (let (...) (let ... ...) value-834))) (racket--call-with-repl-buffer #'(lambda nil (let* ... ...) (racket-repl-exit) (let* ... ...) (kill-buffer)))) (kill-buffer) (delete-file path)))) + (unwind-protect (funcall thunk) (racket-stop-back-end)) + (let ((racket-command-timeout racket-tests/timeout)) (unwind-protect (funcall thunk) (racket-stop-back-end))) + racket-tests/call-with-back-end-settings(#f(lambda () [(edit-mode racket-mode)] (let* ((path (make-temp-file "test" nil ".rkt")) (name (file-name-nondirectory path)) (code "#lang racket/base\n(define foobar 42)\nfoobar\n")) (write-region code nil path nil 'no-wrote-file-message) (find-file path) (funcall edit-mode) (progn (racket-tests/call-until-true #'(lambda nil (cond ... ...))) (let ((value-830 (gensym "ert-form-evaluation-aborted-"))) (let (form-description-831) (if (unwind-protect ... ... ...) nil (ert-fail form-description-831))) value-830)) (if (eq major-mode 'prog-mode) nil (racket-run) (progn (racket-tests/call-until-true #'(lambda nil ...)) (let* ((fn-832 ...) (args-833 ...)) (let (...) (let ... ...) value-834))) (racket--call-with-repl-buffer #'(lambda nil (let* ... ...) (racket-repl-exit) (let* ... ...) (kill-buffer)))) (kill-buffer) (delete-file path)))) + (let ((edit-mode (car tail))) (racket-tests/call-with-back-end-settings #'(lambda nil (let* ((path (make-temp-file "test" nil ".rkt")) (name (file-name-nondirectory path)) (code "#lang racket/base\n(define foobar 42)\nfoobar\n")) (write-region code nil path nil 'no-wrote-file-message) (find-file path) (funcall edit-mode) (progn (racket-tests/call-until-true #'...) (let (...) (let ... ...) value-830)) (if (eq major-mode 'prog-mode) nil (racket-run) (progn (racket-tests/call-until-true ...) (let* ... ...)) (racket--call-with-repl-buffer #'...)) (kill-buffer) (delete-file path)))) (setq tail (cdr tail))) + (while tail (let ((edit-mode (car tail))) (racket-tests/call-with-back-end-settings #'(lambda nil (let* ((path ...) (name ...) (code "#lang racket/base\n(define foobar 42)\nfoobar\n")) (write-region code nil path nil 'no-wrote-file-message) (find-file path) (funcall edit-mode) (progn (racket-tests/call-until-true ...) (let ... ... value-830)) (if (eq major-mode ...) nil (racket-run) (progn ... ...) (racket--call-with-repl-buffer ...)) (kill-buffer) (delete-file path)))) (setq tail (cdr tail)))) + (let ((tail (list #'racket-mode #'racket-hash-lang-mode))) (while tail (let ((edit-mode (car tail))) (racket-tests/call-with-back-end-settings #'(lambda nil (let* (... ... ...) (write-region code nil path nil ...) (find-file path) (funcall edit-mode) (progn ... ...) (if ... nil ... ... ...) (kill-buffer) (delete-file path)))) (setq tail (cdr tail))))) + #f(lambda () [t] (message "racket-tests/run") (let ((tail (list ... ...))) (while tail (let (...) (racket-tests/call-with-back-end-settings ...) (setq tail ...)))) nil)() + #f(compiled-function () #)() + handler-bind-1(#f(compiled-function () #) (error quit) #f(compiled-function (err) #)) + ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test :name racket-tests/run :documentation "Start the REPL via a racket-run command." :body #f(lambda () ... ... ... nil) :most-recent-result #s(ert-test-failed :messages "racket-tests/run\n{racket-back-end-/} killed\n" :should-forms ... :duration 900.419629643 :condition ... :backtrace ... :infos nil) :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/racket-mode-20250212~git.eef5e9a/test/racket-tests.el") :result #s(ert-test-failed :messages "racket-tests/run\n{racket-back-end-/} killed\n" :should-forms (... ... ...) :duration 900.419629643 :condition (ert-test-failed ...) :backtrace (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :infos nil) :exit-continuation #f(compiled-function () #) :ert-debug-on-error nil)) + ert-run-test(#s(ert-test :name racket-tests/run :documentation "Start the REPL via a racket-run command." :body #f(lambda () [t] (message "racket-tests/run") (let (...) (while tail ...)) nil) :most-recent-result #s(ert-test-failed :messages "racket-tests/run\n{racket-back-end-/} killed\n" :should-forms ((... :form ... :value t) (... :form ... :value 5) (... :form ... :value nil :explanation ...)) :duration 900.419629643 :condition (ert-test-failed (... :form ... :value nil :explanation ...)) :backtrace (#s(backtrace-frame :evald t :fun signal :args ... :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert-fail :args ... :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun if :args ... :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun let :args ... :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun let :args ... :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun let* :args ... :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald t :fun #f(lambda () ... ... ... ... ...) :args nil :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald t :fun funcall :args ... :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun save-current-buffer :args ... :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun let :args ... :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun cond :args ... :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun let* :args ... :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun let :args ... :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun if :args ... :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun let* :args ... :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald t :fun racket--call-with-repl-buffer :args ... :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun if :args ... :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun let* :args ... :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald t :fun #f(lambda () ... ...) :args nil :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald t :fun funcall :args ... :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun unwind-protect :args ... :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun let :args ... :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald t :fun racket-tests/call-with-back-end-settings :args ... :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun let :args ... :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun while :args ... :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun let :args ... :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald t :fun #f(lambda () ... ... ... nil) :args nil :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun #f(compiled-function () #) :args nil :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun handler-bind-1 :args ... :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert--run-test-internal :args ... :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert-run-test :args #0 :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert-run-or-rerun-test :args ... :flags nil :locals ... :buffer nil :pos nil) ...) :infos nil) :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/racket-mode-20250212~git.eef5e9a/test/racket-tests.el")) + ert-run-or-rerun-test(#s(ert--stats :selector t :tests ... :test-map # :test-results ... :test-start-times ... :test-end-times ... :passed-expected 7 :passed-unexpected 0 :failed-expected 0 :failed-unexpected 4 :skipped 3 :start-time ... :end-time nil :aborted-p nil ...) #s(ert-test :name racket-tests/run :documentation "Start the REPL via a racket-run command." :body #f(lambda () ... ... ... nil) :most-recent-result ... :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/racket-mode-20250212~git.eef5e9a/test/racket-tests.el") #f(compiled-function (event-type &rest event-args) #)) + ert-run-tests(t #f(compiled-function (event-type &rest event-args) #) nil) + ert-run-tests-batch(nil) + ert-run-tests-batch-and-exit() + command-line-1(("-l" "package" "--eval" "(add-to-list 'package-directory-list \"/usr/share/emacs/site-lisp/elpa\")" "--eval" "(add-to-list 'package-directory-list \"/usr/share/emacs/site-lisp/elpa-src\")" "--eval" "(setq ert-batch-backtrace-right-margin nil)" "-f" "package-initialize" "-L" "." "-L" "test" "--eval" "(progn (setenv \"DEBIAN_BUILDD\" \"1\") (setq user-emacs-directory \"/tmp/emacs-home\"))" "-l" "test/racket-tests.el" "-f" "ert-run-tests-batch-and-exit")) + command-line() + normal-top-level() + +Test racket-tests/run condition: + (ert-test-failed + ((should (racket-tests/see-back (concat "\n" name "> "))) :form + (racket-tests/see-back "\ntestMxOMhE.rkt> ") :value nil :explanation + (actual . "Starting back end...\n"))) + FAILED 14/15 racket-tests/run (900.419630 sec) at test/racket-tests.el:236 racket-tests/xp {racket-back-end-/} killed - passed 15/15 racket-tests/xp (467.431239 sec) +Test racket-tests/xp backtrace: + signal(ert-test-failed (((should (progn (goto-char (point-min)) (racket-xp-next-definition) (looking-at-p (regexp-quote "racket/base")))) :form (progn (goto-char (point-min)) (racket-xp-next-definition) (looking-at-p (regexp-quote "racket/base"))) :value nil))) + ert-fail(((should (progn (goto-char (point-min)) (racket-xp-next-definition) (looking-at-p (regexp-quote "racket/base")))) :form (progn (goto-char (point-min)) (racket-xp-next-definition) (looking-at-p (regexp-quote "racket/base"))) :value nil)) + (if (unwind-protect (setq value-889 (progn (goto-char (point-min)) (racket-xp-next-definition) (looking-at-p (regexp-quote "racket/base")))) (setq form-description-890 (list '(should (progn (goto-char ...) (racket-xp-next-definition) (looking-at-p ...))) :form '(progn (goto-char (point-min)) (racket-xp-next-definition) (looking-at-p (regexp-quote "racket/base"))) :value value-889)) (ert--signal-should-execution form-description-890)) nil (ert-fail form-description-890)) + (let (form-description-890) (if (unwind-protect (setq value-889 (progn (goto-char (point-min)) (racket-xp-next-definition) (looking-at-p (regexp-quote "racket/base")))) (setq form-description-890 (list '(should (progn ... ... ...)) :form '(progn (goto-char ...) (racket-xp-next-definition) (looking-at-p ...)) :value value-889)) (ert--signal-should-execution form-description-890)) nil (ert-fail form-description-890))) + (let ((value-889 (gensym "ert-form-evaluation-aborted-"))) (let (form-description-890) (if (unwind-protect (setq value-889 (progn (goto-char (point-min)) (racket-xp-next-definition) (looking-at-p (regexp-quote "racket/base")))) (setq form-description-890 (list '(should ...) :form '(progn ... ... ...) :value value-889)) (ert--signal-should-execution form-description-890)) nil (ert-fail form-description-890))) value-889) + (progn (racket-tests/call-until-true #'(lambda nil (progn (goto-char (point-min)) (racket-xp-next-definition) (looking-at-p (regexp-quote "racket/base"))))) (let ((value-889 (gensym "ert-form-evaluation-aborted-"))) (let (form-description-890) (if (unwind-protect (setq value-889 (progn (goto-char ...) (racket-xp-next-definition) (looking-at-p ...))) (setq form-description-890 (list '... :form '... :value value-889)) (ert--signal-should-execution form-description-890)) nil (ert-fail form-description-890))) value-889)) + (let* ((path (make-temp-file "test" nil ".rkt")) (code "#lang racket/base\n(define foobar 42)\nfoobar\n")) (write-region code nil path nil 'no-wrote-file-message) (find-file path) (racket-xp-mode 0) (racket-xp-mode 1) (let ((value-887 (gensym "ert-form-evaluation-aborted-"))) (let (form-description-888) (if (unwind-protect (setq value-887 racket-xp-mode) (setq form-description-888 (list '... :form 'racket-xp-mode :value value-887)) (ert--signal-should-execution form-description-888)) nil (ert-fail form-description-888))) value-887) (progn (racket-tests/call-until-true #'(lambda nil (progn (goto-char (point-min)) (racket-xp-next-definition) (looking-at-p (regexp-quote "racket/base"))))) (let ((value-889 (gensym "ert-form-evaluation-aborted-"))) (let (form-description-890) (if (unwind-protect (setq value-889 (progn ... ... ...)) (setq form-description-890 (list ... :form ... :value value-889)) (ert--signal-should-execution form-description-890)) nil (ert-fail form-description-890))) value-889)) (racket-xp-next-definition) (let* ((fn-891 #'racket-tests/see-forward) (args-892 (condition-case err (list "foobar") (error (progn (setq fn-891 ...) (list ... ...)))))) (let ((value-893 'ert-form-evaluation-aborted-894)) (let (form-description-895) (if (unwind-protect (setq value-893 (apply fn-891 args-892)) (setq form-description-895 (nconc ... ... ... ...)) (ert--signal-should-execution form-description-895)) nil (ert-fail form-description-895))) value-893)) (let* ((fn-896 #'equal) (args-897 (condition-case err (list (get-text-property (point) 'help-echo) "1 bound occurrence") (error (progn (setq fn-896 ...) (list ... ...)))))) (let ((value-898 'ert-form-evaluation-aborted-899)) (let (form-description-900) (if (unwind-protect (setq value-898 (apply fn-896 args-897)) (setq form-description-900 (nconc ... ... ... ...)) (ert--signal-should-execution form-description-900)) nil (ert-fail form-description-900))) value-898)) (racket-xp-next-use) (let* ((fn-901 #'racket-tests/see-forward) (args-902 (condition-case err (list "foobar") (error (progn (setq fn-901 ...) (list ... ...)))))) (let ((value-903 'ert-form-evaluation-aborted-904)) (let (form-description-905) (if (unwind-protect (setq value-903 (apply fn-901 args-902)) (setq form-description-905 (nconc ... ... ... ...)) (ert--signal-should-execution form-description-905)) nil (ert-fail form-description-905))) value-903)) (let* ((fn-906 #'equal) (args-907 (condition-case err (list (get-text-property (point) 'help-echo) "defined locally") (error (progn (setq fn-906 ...) (list ... ...)))))) (let ((value-908 'ert-form-evaluation-aborted-909)) (let (form-description-910) (if (unwind-protect (setq value-908 (apply fn-906 args-907)) (setq form-description-910 (nconc ... ... ... ...)) (ert--signal-should-execution form-description-910)) nil (ert-fail form-description-910))) value-908)) (goto-char (point-max)) (insert "foo") (completion-at-point) (let* ((fn-911 #'racket-tests/see-back) (args-912 (condition-case err (list "foobar") (error (progn (setq fn-911 ...) (list ... ...)))))) (let ((value-913 'ert-form-evaluation-aborted-914)) (let (form-description-915) (if (unwind-protect (setq value-913 (apply fn-911 args-912)) (setq form-description-915 (nconc ... ... ... ...)) (ert--signal-should-execution form-description-915)) nil (ert-fail form-description-915))) value-913)) (racket-xp-mode 0) (kill-buffer) (delete-file path)) + #f(lambda () [t] (let* ((path (make-temp-file "test" nil ".rkt")) (code "#lang racket/base\n(define foobar 42)\nfoobar\n")) (write-region code nil path nil 'no-wrote-file-message) (find-file path) (racket-xp-mode 0) (racket-xp-mode 1) (let ((value-887 ...)) (let (form-description-888) (if ... nil ...)) value-887) (progn (racket-tests/call-until-true #'...) (let (...) (let ... ...) value-889)) (racket-xp-next-definition) (let* ((fn-891 ...) (args-892 ...)) (let (...) (let ... ...) value-893)) ...))() + funcall(#f(lambda () [t] (let* ((path (make-temp-file "test" nil ".rkt")) (code "#lang racket/base\n(define foobar 42)\nfoobar\n")) (write-region code nil path nil 'no-wrote-file-message) (find-file path) (racket-xp-mode 0) (racket-xp-mode 1) (let ((value-887 (gensym "ert-form-evaluation-aborted-"))) (let (form-description-888) (if (unwind-protect (setq value-887 racket-xp-mode) (setq form-description-888 ...) (ert--signal-should-execution form-description-888)) nil (ert-fail form-description-888))) value-887) (progn (racket-tests/call-until-true #'(lambda nil (progn ... ... ...))) (let ((value-889 (gensym "ert-form-evaluation-aborted-"))) (let (form-description-890) (if (unwind-protect ... ... ...) nil (ert-fail form-description-890))) value-889)) (racket-xp-next-definition) (let* ((fn-891 #'racket-tests/see-forward) (args-892 (condition-case err (list "foobar") (error ...)))) (let ((value-893 'ert-form-evaluation-aborted-894)) (let (form-description-895) (if (unwind-protect ... ... ...) nil (ert-fail form-description-895))) value-893)) (let* ((fn-896 #'equal) (args-897 (condition-case err (list ... "1 bound occurrence") (error ...)))) (let ((value-898 'ert-form-evaluation-aborted-899)) (let (form-description-900) (if (unwind-protect ... ... ...) nil (ert-fail form-description-900))) value-898)) (racket-xp-next-use) (let* ((fn-901 #'racket-tests/see-forward) (args-902 (condition-case err (list "foobar") (error ...)))) (let ((value-903 'ert-form-evaluation-aborted-904)) (let (form-description-905) (if (unwind-protect ... ... ...) nil (ert-fail form-description-905))) value-903)) (let* ((fn-906 #'equal) (args-907 (condition-case err (list ... "defined locally") (error ...)))) (let ((value-908 'ert-form-evaluation-aborted-909)) (let (form-description-910) (if (unwind-protect ... ... ...) nil (ert-fail form-description-910))) value-908)) (goto-char (point-max)) (insert "foo") (completion-at-point) (let* ((fn-911 #'racket-tests/see-back) (args-912 (condition-case err (list "foobar") (error ...)))) (let ((value-913 'ert-form-evaluation-aborted-914)) (let (form-description-915) (if (unwind-protect ... ... ...) nil (ert-fail form-description-915))) value-913)) (racket-xp-mode 0) (kill-buffer) (delete-file path)))) + (unwind-protect (funcall thunk) (racket-stop-back-end)) + (let ((racket-command-timeout racket-tests/timeout)) (unwind-protect (funcall thunk) (racket-stop-back-end))) + racket-tests/call-with-back-end-settings(#f(lambda () [t] (let* ((path (make-temp-file "test" nil ".rkt")) (code "#lang racket/base\n(define foobar 42)\nfoobar\n")) (write-region code nil path nil 'no-wrote-file-message) (find-file path) (racket-xp-mode 0) (racket-xp-mode 1) (let ((value-887 (gensym "ert-form-evaluation-aborted-"))) (let (form-description-888) (if (unwind-protect (setq value-887 racket-xp-mode) (setq form-description-888 ...) (ert--signal-should-execution form-description-888)) nil (ert-fail form-description-888))) value-887) (progn (racket-tests/call-until-true #'(lambda nil (progn ... ... ...))) (let ((value-889 (gensym "ert-form-evaluation-aborted-"))) (let (form-description-890) (if (unwind-protect ... ... ...) nil (ert-fail form-description-890))) value-889)) (racket-xp-next-definition) (let* ((fn-891 #'racket-tests/see-forward) (args-892 (condition-case err (list "foobar") (error ...)))) (let ((value-893 'ert-form-evaluation-aborted-894)) (let (form-description-895) (if (unwind-protect ... ... ...) nil (ert-fail form-description-895))) value-893)) (let* ((fn-896 #'equal) (args-897 (condition-case err (list ... "1 bound occurrence") (error ...)))) (let ((value-898 'ert-form-evaluation-aborted-899)) (let (form-description-900) (if (unwind-protect ... ... ...) nil (ert-fail form-description-900))) value-898)) (racket-xp-next-use) (let* ((fn-901 #'racket-tests/see-forward) (args-902 (condition-case err (list "foobar") (error ...)))) (let ((value-903 'ert-form-evaluation-aborted-904)) (let (form-description-905) (if (unwind-protect ... ... ...) nil (ert-fail form-description-905))) value-903)) (let* ((fn-906 #'equal) (args-907 (condition-case err (list ... "defined locally") (error ...)))) (let ((value-908 'ert-form-evaluation-aborted-909)) (let (form-description-910) (if (unwind-protect ... ... ...) nil (ert-fail form-description-910))) value-908)) (goto-char (point-max)) (insert "foo") (completion-at-point) (let* ((fn-911 #'racket-tests/see-back) (args-912 (condition-case err (list "foobar") (error ...)))) (let ((value-913 'ert-form-evaluation-aborted-914)) (let (form-description-915) (if (unwind-protect ... ... ...) nil (ert-fail form-description-915))) value-913)) (racket-xp-mode 0) (kill-buffer) (delete-file path)))) + #f(lambda () [t] (message "racket-tests/xp") (racket-tests/call-with-back-end-settings #'(lambda nil (let* ... ... ... ... ... ... ... ... ... ...))) nil)() + #f(compiled-function () #)() + handler-bind-1(#f(compiled-function () #) (error quit) #f(compiled-function (err) #)) + ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test :name racket-tests/xp :documentation nil :body #f(lambda () [t] (message "racket-tests/xp") (racket-tests/call-with-back-end-settings ...) nil) :most-recent-result #s(ert-test-failed :messages "racket-tests/xp\n{racket-back-end-/} killed\n" :should-forms (... ...) :duration 900.187805525 :condition (ert-test-failed ...) :backtrace (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :infos nil) :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/racket-mode-20250212~git.eef5e9a/test/racket-tests.el") :result #s(ert-test-failed :messages "racket-tests/xp\n{racket-back-end-/} killed\n" :should-forms ((... :form racket-xp-mode :value t) (... :form ... :value nil)) :duration 900.187805525 :condition (ert-test-failed (... :form ... :value nil)) :backtrace (#s(backtrace-frame :evald t :fun signal :args ... :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert-fail :args ... :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun if :args ... :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun let :args ... :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun let :args ... :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun progn :args ... :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun let* :args ... :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald t :fun #f(lambda () ... ...) :args nil :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun funcall :args ... :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun unwind-protect :args ... :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun let :args ... :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald t :fun racket-tests/call-with-back-end-settings :args ... :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald t :fun #f(lambda () ... ... ... nil) :args nil :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun #f(compiled-function () #) :args nil :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun handler-bind-1 :args ... :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert--run-test-internal :args #0 :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert-run-test :args ... :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert-run-or-rerun-test :args ... :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert-run-tests :args ... :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert-run-tests-batch :args ... :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert-run-tests-batch-and-exit :args nil :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun command-line-1 :args ... :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald t :fun command-line :args nil :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun normal-top-level :args nil :flags nil :locals nil :buffer nil :pos nil)) :infos nil) :exit-continuation #f(compiled-function () #) :ert-debug-on-error nil)) + ert-run-test(#s(ert-test :name racket-tests/xp :documentation nil :body #f(lambda () [t] (message "racket-tests/xp") (racket-tests/call-with-back-end-settings #'(lambda nil ...)) nil) :most-recent-result #s(ert-test-failed :messages "racket-tests/xp\n{racket-back-end-/} killed\n" :should-forms (((should racket-xp-mode) :form racket-xp-mode :value t) ((should ...) :form (progn ... ... ...) :value nil)) :duration 900.187805525 :condition (ert-test-failed ((should ...) :form (progn ... ... ...) :value nil)) :backtrace (#s(backtrace-frame :evald t :fun signal :args (ert-test-failed ...) :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert-fail :args (...) :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun if :args (... nil ...) :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun let :args (... ...) :flags nil :locals (... ... ... ...) :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun let :args (... ... value-889) :flags nil :locals (... ... ...) :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun progn :args (... ...) :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun let* :args (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :flags nil :locals (... ...) :buffer nil :pos nil) #s(backtrace-frame :evald t :fun #f(lambda () ... ...) :args nil :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun funcall :args (#f(lambda () ... ...)) :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun unwind-protect :args (... ...) :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun let :args (... ...) :flags nil :locals (...) :buffer nil :pos nil) #s(backtrace-frame :evald t :fun racket-tests/call-with-back-end-settings :args (#f(lambda () ... ...)) :flags nil :locals (...) :buffer nil :pos nil) #s(backtrace-frame :evald t :fun #f(lambda () ... ... ... nil) :args nil :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun #f(compiled-function () #) :args nil :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun handler-bind-1 :args (#f(compiled-function () #) ... #f(compiled-function (err) #)) :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert--run-test-internal :args (...) :flags nil :locals (... ...) :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert-run-test :args #0 :flags nil :locals (... ... ...) :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert-run-or-rerun-test :args (... #1 #f(compiled-function (event-type &rest event-args) #)) :flags nil :locals (...) :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert-run-tests :args (t #f(compiled-function (event-type &rest event-args) #) nil) :flags nil :locals (...) :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert-run-tests-batch :args (nil) :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun ert-run-tests-batch-and-exit :args nil :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun command-line-1 :args (...) :flags nil :locals (... ...) :buffer nil :pos nil) #s(backtrace-frame :evald t :fun command-line :args nil :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun normal-top-level :args nil :flags nil :locals nil :buffer nil :pos nil)) :infos nil) :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/racket-mode-20250212~git.eef5e9a/test/racket-tests.el")) + ert-run-or-rerun-test(#s(ert--stats :selector t :tests ... :test-map # :test-results ... :test-start-times ... :test-end-times ... :passed-expected 7 :passed-unexpected 0 :failed-expected 0 :failed-unexpected 5 :skipped 3 :start-time ... :end-time nil :aborted-p nil ...) #s(ert-test :name racket-tests/xp :documentation nil :body #f(lambda () ... ... ... nil) :most-recent-result ... :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/racket-mode-20250212~git.eef5e9a/test/racket-tests.el") #f(compiled-function (event-type &rest event-args) #)) + ert-run-tests(t #f(compiled-function (event-type &rest event-args) #) nil) + ert-run-tests-batch(nil) + ert-run-tests-batch-and-exit() + command-line-1(("-l" "package" "--eval" "(add-to-list 'package-directory-list \"/usr/share/emacs/site-lisp/elpa\")" "--eval" "(add-to-list 'package-directory-list \"/usr/share/emacs/site-lisp/elpa-src\")" "--eval" "(setq ert-batch-backtrace-right-margin nil)" "-f" "package-initialize" "-L" "." "-L" "test" "--eval" "(progn (setenv \"DEBIAN_BUILDD\" \"1\") (setq user-emacs-directory \"/tmp/emacs-home\"))" "-l" "test/racket-tests.el" "-f" "ert-run-tests-batch-and-exit")) + command-line() + normal-top-level() + +Test racket-tests/xp condition: + (ert-test-failed + ((should + (progn + (goto-char ...) (racket-xp-next-definition) (looking-at-p ...))) + :form + (progn + (goto-char (point-min)) (racket-xp-next-definition) + (looking-at-p (regexp-quote "racket/base"))) + :value nil)) + FAILED 15/15 racket-tests/xp (900.187806 sec) at test/racket-tests.el:305 -Ran 15 tests, 12 results as expected, 0 unexpected, 3 skipped (2026-04-13 06:12:49-1200, 5161.042524 sec) +Ran 15 tests, 7 results as expected, 5 unexpected, 3 skipped (2025-03-12 04:17:37+1400, 5908.124263 sec) + +5 unexpected results: + FAILED racket-tests/expand-file-deep + FAILED racket-tests/expand-file-shallow + FAILED racket-tests/repl + FAILED racket-tests/run + FAILED racket-tests/xp 3 skipped results: SKIPPED racket-tests/indent-speed-1 SKIPPED racket-tests/indent-speed-2 SKIPPED racket-tests/profile - racket-mode: 10 cpu | 22 real | 4 gc :: '(99 "*" (hash-lang update 4 8 31 0 " \n")) -{logger /}: [ debug] racket-mode: 10 cpu | 22 real | 4 gc :: '(100 "*" (hash-lang update 4 9 31 31 " \n")) -{logger /}: [ debug] racket-mode: (set-session! 6 #) => sessions: #hasheq((6 . #(struct:session # # # # # #))) -{logger /}: [ debug] racket-mode: 33 cpu | 61 real | 4 gc :: '(92 6 (run ("/tmp/testrDCtNX.rkt") ((test) (main)) 2048 #t 80 1 medium () ())) -{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(108 "*" (hash-lang update 4 16 64 1 "\n")) -{logger /}: [ debug] racket-mode: '(syms): using session ID 6 -{logger /}: [ debug] racket-mode: 1 cpu | 1 real | 0 gc :: '(102 6 (syms)) -{logger /}: [ debug] racket-mode: 1 cpu | 1 real | 0 gc :: '(103 "*" (hash-lang update 4 11 62 0 " ")) -{logger /}: [ debug] racket-mode: 1 cpu | 1 real | 0 gc :: '(104 "*" (hash-lang update 4 12 62 2 "42")) -{logger /}: [ debug] racket-mode: 1 cpu | 1 real | 0 gc :: '(105 "*" (hash-lang update 4 13 63 1 "2")) -{logger /}: [ debug] racket-mode: 1 cpu | 1 real | 0 gc :: '(106 "*" (hash-lang update 4 14 64 0 "\n")) -{logger /}: [ debug] racket-mode: 1 cpu | 1 real | 0 gc :: '(107 "*" (hash-lang update 4 15 64 1 "\n")) -{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(110 "*" (hash-lang update 4 18 80 1 " ")) -{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(109 "*" (hash-lang update 4 17 65 0 " ")) -{logger /}: [ debug] racket-mode: '(repl-exit): using session ID 6 -{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(111 6 (repl-exit)) -{logger /}: [ debug] racket-mode: (remove-session! 6) => sessions: '#hasheq() -{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(116 "*" (hash-lang update 4 23 83 1 "\n")) -{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(112 "*" (hash-lang update 4 19 65 16 "")) -{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(113 "*" (hash-lang update 4 20 65 0 " ")) -{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(114 "*" (hash-lang update 4 21 83 0 "\n")) -{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(115 "*" (hash-lang update 4 22 65 19 " \n")) -{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(117 "*" (hash-lang delete 3)) +:1 () #t)\n (let-values:1 () #f))\n\nMacro transformation\n(if:1\n (#%app:2 < (quote 1) (#%datum . 2))\n (let-values:1 () #t)\n (let-values:1 () #f))\n ==>\n(if:1\n (#%app:2 < (quote 1) (quote 2))\n (let-values:1 () #t)\n (let-values:1 () #f))\n\nAdd explicit #%datum\n(if:1\n (#%app:2 < (quote 1) (quote 2))\n (let-values:1 () #t)\n (let-values:1 () #f))\n ==>\n(if:1\n (#%app:2 < (quote 1) (quote 2))\n (let-values:1 () (#%datum . #t))\n (let-values:1 () #f))\n\nMacro transformation\n(if:1\n (#%app:2 < (quote 1) (quote 2))\n (let-values:1 () (#%datum . #t))\n (let-values:1 () #f))\n ==>\n(if:1\n (#%app:2 < (quote 1) (quote 2))\n (let-values:1 () (quote #t))\n (let-values:1 () #f))\n\nAdd explicit #%datum\n(if:1\n (#%app:2 < (quote 1) (quote 2))\n (let-values:1 () (quote #t))\n (let-values:1 () #f))\n ==>\n(if:1\n (#%app:2 < (quote 1) (quote 2))\n (let-values:1 () (quote #t))\n (let-values:1 () (#%datum . #f)))\n\nMacro transformation\n(if:1\n (#%app:2 < (quote 1) (quote 2))\n (let-values:1 () (quote #t))\n (let-values:1 () (#%datum . #f)))\n ==>\n(if:1\n (#%app:2 < (quote 1) (quote 2))\n (let-values:1 () (quote #t))\n (let-values:1 () (quote #f)))\n\n" +{logger /}: [ debug] racket-mode: 261 cpu | 609 real | 0 gc :: '(62 3 (macro-stepper/next all)) +{logger /}: [ debug] racket-mode: '(repl-exit): using session ID 3 +{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(63 3 (repl-exit)) +{logger /}: [ debug] racket-mode: (remove-session! 3) => sessions: '#hasheq() back end is (:directory "/" :racket-program nil :remote-source-dir nil :restart-watch-directories nil :windows nil) -{logger /}: [ debug] racket-mode: 493 cpu | 987 real | 133 gc :: '(119 "*" (module-names)) -{logger /}: [ debug] racket-mode: 216 cpu | 432 real | 55 gc :: drracket/check-syntax/expanded-expression -{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: drracket/check-syntax/expansion-completed -{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: defs/uses -{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: get-annotations -{logger /}: [ debug] racket-mode: 233 cpu | 466 real | 59 gc :: total /tmp/testqnef8j.rkt -{logger /}: [ debug] racket-mode: (current-memory-use) 387235472 -{logger /}: [ debug] racket-mode: 11207 cpu | 16127 real | 4800 gc :: '(118 "*" (check-syntax "/tmp/testqnef8j.rkt" "#lang racket/base\n(define foobar 42)\nfoobar\n")) -make[1]: Leaving directory '/build/reproducible-path/racket-mode-20250212~git.eef5e9a' - create-stamp debian/debhelper-build-stamp - dh_prep - dh_auto_install - dh_elpa -dh_elpa: warning: missing racket-mode-pkg.el; will try to generate it - dh_installdocs - dh_installchangelogs - dh_installinfo - dh_lintian - dh_perl - dh_link - dh_strip_nondeterminism - debian/rules override_dh_compress -make[1]: Entering directory '/build/reproducible-path/racket-mode-20250212~git.eef5e9a' -dh_compress -Xusr/share/info/scenario- +back end is (:directory "/" :racket-program nil :remote-source-dir nil :restart-watch-directories nil :windows nil) +{racket--repl-start}: picked next session id 4 +back end is (:directory "/" :racket-program nil :remote-source-dir nil :restart-watch-directories nil :windows nil) +{racket--repl-start}: picked next session id 5 +back end is (:directory "/" :racket-program nil :remote-source-dir nil :restart-watch-directories nil :windows nil) +back end is (:directory "/" :racket-program nil :remote-source-dir nil :restart-watch-directories nil :windows nil) +dh_elpa_test: error: emacs -batch -Q -l package --eval "(add-to-list 'package-directory-list \"/usr/share/emacs/site-lisp/elpa\")" --eval "(add-to-list 'package-directory-list \"/usr/share/emacs/site-lisp/elpa-src\")" --eval "(setq ert-batch-backtrace-right-margin nil)" -f package-initialize -L . -L test --eval "(progn (setenv \"DEBIAN_BUILDD\" \"1\") (setq user-emacs-directory \"/tmp/emacs-home\"))" -l test/racket-tests.el -f ert-run-tests-batch-and-exit returned exit code 1 +make[1]: *** [debian/rules:22: override_dh_elpa_test] Error 25 make[1]: Leaving directory '/build/reproducible-path/racket-mode-20250212~git.eef5e9a' - dh_fixperms - dh_missing - dh_installdeb - dh_gencontrol - dh_md5sums - dh_builddeb -dpkg-deb: building package 'elpa-racket-mode' in '../elpa-racket-mode_20250212~git.eef5e9a-1_all.deb'. -dpkg-deb: building package 'elpa-racket-mode-doc' in '../elpa-racket-mode-doc_20250212~git.eef5e9a-1_all.deb'. - dpkg-genbuildinfo --build=binary -O../racket-mode_20250212~git.eef5e9a-1_arm64.buildinfo - dpkg-genchanges --build=binary -O../racket-mode_20250212~git.eef5e9a-1_arm64.changes -dpkg-genchanges: info: binary-only upload (no source code included) - dpkg-source --after-build . -dpkg-buildpackage: info: binary-only upload (no source included) -dpkg-genchanges: info: including full source code in upload +make: *** [debian/rules:6: binary] Error 2 +dpkg-buildpackage: error: debian/rules binary subprocess returned exit status 2 I: copying local configuration +E: Failed autobuilding of package +I: user script /srv/workspace/pbuilder/2951003/tmp/hooks/C01_cleanup starting +debug output: disk usage on i-capture-the-hostname at Tue Mar 11 14:20:43 UTC 2025 +Filesystem Size Used Avail Use% Mounted on +tmpfs 30G 0 30G 0% /dev/shm + +I: user script /srv/workspace/pbuilder/2951003/tmp/hooks/C01_cleanup finished I: unmounting dev/ptmx filesystem I: unmounting dev/pts filesystem I: unmounting dev/shm filesystem I: unmounting proc filesystem I: unmounting sys filesystem I: cleaning the build env -I: removing directory /srv/workspace/pbuilder/1753909 and its subdirectories -I: Current time: Mon Apr 13 06:13:11 -12 2026 -I: pbuilder-time-stamp: 1776103991 +I: removing directory /srv/workspace/pbuilder/2951003 and its subdirectories