Diff of the two buildlogs: -- --- b1/build.log 2025-04-14 01:36:42.041874074 +0000 +++ b2/build.log 2025-04-14 19:36:09.832521952 +0000 @@ -1,6 +1,6 @@ I: pbuilder: network access will be disabled during build -I: Current time: Sun Apr 13 06:57:19 -12 2025 -I: pbuilder-time-stamp: 1744570639 +I: Current time: Mon Apr 14 15:36:56 +14 2025 +I: pbuilder-time-stamp: 1744594616 I: Building the build Environment I: extracting base tarball [/var/cache/pbuilder/unstable-reproducible-base.tgz] I: copying local configuration @@ -22,52 +22,84 @@ dpkg-source: info: unpacking racket-mode_20250324~git.88d82e2-1.debian.tar.xz I: Not using root during the build. I: Installing the build-deps -I: user script /srv/workspace/pbuilder/16490/tmp/hooks/D02_print_environment starting +I: user script /srv/workspace/pbuilder/21565/tmp/hooks/D01_modify_environment starting +debug: Running on ff4a. +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 Apr 14 01:37 /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/21565/tmp/hooks/D01_modify_environment finished +I: user script /srv/workspace/pbuilder/21565/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='armhf' - DEBIAN_FRONTEND='noninteractive' - DEB_BUILD_OPTIONS='buildinfo=+all reproducible=+all parallel=3 ' - DISTRIBUTION='unstable' - HOME='/root' - HOST_ARCH='armhf' + 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]="arm-unknown-linux-gnueabihf") + 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=armhf + DEBIAN_FRONTEND=noninteractive + DEB_BUILD_OPTIONS='buildinfo=+all reproducible=+all parallel=4 ' + DIRSTACK=() + DISTRIBUTION=unstable + EUID=0 + FUNCNAME=([0]="Echo" [1]="main") + GROUPS=() + HOME=/root + HOSTNAME=i-capture-the-hostname + HOSTTYPE=arm + HOST_ARCH=armhf IFS=' ' - INVOCATION_ID='9b097475f0bd45efbeb868eec6d0ed7d' - 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='16490' - PS1='# ' - PS2='> ' + INVOCATION_ID=3688a0444d5b44779c1507b463ae55bd + LANG=C + LANGUAGE=it_CH:it + LC_ALL=C + MACHTYPE=arm-unknown-linux-gnueabihf + MAIL=/var/mail/root + OPTERR=1 + OPTIND=1 + OSTYPE=linux-gnueabihf + 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=21565 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.WNYDEQ6q/pbuilderrc_TmI2 --distribution unstable --hookdir /etc/pbuilder/first-build-hooks --debbuildopts -b --basetgz /var/cache/pbuilder/unstable-reproducible-base.tgz --buildresult /srv/reproducible-results/rbuild-debian/r-b-build.WNYDEQ6q/b1 --logfile b1/build.log racket-mode_20250324~git.88d82e2-1.dsc' - SUDO_GID='110' - SUDO_UID='103' - SUDO_USER='jenkins' - TERM='unknown' - TZ='/usr/share/zoneinfo/Etc/GMT+12' - USER='root' - _='/usr/bin/systemd-run' - http_proxy='http://10.0.0.15:3142/' + 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.WNYDEQ6q/pbuilderrc_0p38 --distribution unstable --hookdir /etc/pbuilder/rebuild-hooks --debbuildopts -b --basetgz /var/cache/pbuilder/unstable-reproducible-base.tgz --buildresult /srv/reproducible-results/rbuild-debian/r-b-build.WNYDEQ6q/b2 --logfile b2/build.log racket-mode_20250324~git.88d82e2-1.dsc' + SUDO_GID=113 + SUDO_UID=107 + SUDO_USER=jenkins + TERM=unknown + TZ=/usr/share/zoneinfo/Etc/GMT-14 + UID=0 + USER=root + _='I: set' + http_proxy=http://10.0.0.15:3142/ I: uname -a - Linux virt64z 6.1.0-33-arm64 #1 SMP Debian 6.1.133-1 (2025-04-10) aarch64 GNU/Linux + Linux i-capture-the-hostname 6.1.0-33-armmp-lpae #1 SMP Debian 6.1.133-1 (2025-04-10) armv7l GNU/Linux I: ls -l /bin lrwxrwxrwx 1 root root 7 Mar 4 11:20 /bin -> usr/bin -I: user script /srv/workspace/pbuilder/16490/tmp/hooks/D02_print_environment finished +I: user script /srv/workspace/pbuilder/21565/tmp/hooks/D02_print_environment finished -> Attempting to satisfy build-dependencies -> Creating pbuilder-satisfydepends-dummy package Package: pbuilder-satisfydepends-dummy @@ -376,7 +408,7 @@ Get: 249 http://deb.debian.org/debian unstable/main armhf tex-common all 6.19 [29.4 kB] Get: 250 http://deb.debian.org/debian unstable/main armhf texinfo-lib armhf 7.1.1-1+b1 [209 kB] Get: 251 http://deb.debian.org/debian unstable/main armhf texinfo all 7.1.1-1 [1753 kB] -Fetched 272 MB in 42s (6531 kB/s) +Fetched 272 MB in 27s (9946 kB/s) Preconfiguring packages ... Selecting previously unselected package libpython3.13-minimal:armhf. (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 ... 19566 files and directories currently installed.) @@ -1198,8 +1230,8 @@ Setting up tzdata (2025b-2) ... Current default time zone: 'Etc/UTC' -Local time is now: Sun Apr 13 18:59:06 UTC 2025. -Universal Time is now: Sun Apr 13 18:59:06 UTC 2025. +Local time is now: Mon Apr 14 01:44:50 UTC 2025. +Universal Time is now: Mon Apr 14 01:44:50 UTC 2025. Run 'dpkg-reconfigure tzdata' if you wish to change it. Setting up liberror-perl (0.17030-1) ... @@ -1415,12 +1447,12 @@ update-alternatives: using /usr/bin/emacsclient.emacs to provide /usr/bin/emacsclient (emacsclient) in auto mode Install emacsen-common for emacs emacsen-common: Handling install of emacsen flavor emacs -Install elpa-pos-tip for emacs -install/pos-tip-0.4.6snapshot: Handling install of emacsen flavor emacs -install/pos-tip-0.4.6snapshot: byte-compiling for emacs Install elpa-paredit for emacs install/paredit-27beta: Handling install of emacsen flavor emacs install/paredit-27beta: byte-compiling for emacs +Install elpa-pos-tip for emacs +install/pos-tip-0.4.6snapshot: Handling install of emacsen flavor emacs +install/pos-tip-0.4.6snapshot: byte-compiling for emacs Setting up libparse-debcontrol-perl (2.005-6) ... Setting up libwww-mechanize-perl (2.19-1) ... Setting up libdebian-source-perl (0.128) ... @@ -1441,7 +1473,11 @@ Building tag database... -> Finished parsing the build-deps I: Building the package -I: Running cd /build/reproducible-path/racket-mode-20250324~git.88d82e2/ && 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_20250324~git.88d82e2-1_source.changes +I: user script /srv/workspace/pbuilder/21565/tmp/hooks/A99_set_merged_usr starting +Not re-configuring usrmerge for unstable +I: user script /srv/workspace/pbuilder/21565/tmp/hooks/A99_set_merged_usr finished +hostname: Name or service not known +I: Running cd /build/reproducible-path/racket-mode-20250324~git.88d82e2/ && 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_20250324~git.88d82e2-1_source.changes dpkg-buildpackage: info: source package racket-mode dpkg-buildpackage: info: source version 20250324~git.88d82e2-1 dpkg-buildpackage: info: source distribution unstable @@ -1452,7 +1488,7 @@ debian/rules clean dh clean --with elpa dh_auto_clean - make -j3 clean + make -j4 clean make[1]: Entering directory '/build/reproducible-path/racket-mode-20250324~git.88d82e2' rm racket-back-end.elc racket-browse-url.elc racket-bug-report.elc racket-cmd.elc racket-collection.elc racket-common.elc racket-complete.elc racket-custom.elc racket-debug.elc racket-describe.elc racket-doc.elc racket-edit.elc racket-eldoc.elc racket-font-lock.elc racket-hash-lang.elc racket-imenu.elc racket-indent.elc racket-input.elc racket-keywords-and-builtins.elc racket-lisp-mode.elc racket-logger.elc racket-mode.elc racket-package.elc racket-parens.elc racket-ppss.elc racket-profile.elc racket-repl-buffer-name.elc racket-repl.elc racket-scribble-anchor.elc racket-scribble.elc racket-shell.elc racket-show.elc racket-smart-open.elc racket-stepper.elc racket-util.elc racket-visit.elc racket-wsl.elc racket-xp-complete.elc racket-xp.elc 2> /dev/null make[1]: [Makefile:41: clean] Error 1 (ignored) @@ -1485,7 +1521,7 @@ dh_autoreconf dh_auto_configure dh_auto_build - make -j3 "INSTALL=install --strip-program=true" + make -j4 "INSTALL=install --strip-program=true" make[1]: Entering directory '/build/reproducible-path/racket-mode-20250324~git.88d82e2' Targets: show-versions, clean, compile, deps, test, test-elisp, test-racket, test-slow make[1]: Leaving directory '/build/reproducible-path/racket-mode-20250324~git.88d82e2' @@ -1497,8 +1533,8 @@ emacs --batch -Q --eval '(progn (add-to-list (quote load-path) "/build/reproducible-path/racket-mode-20250324~git.88d82e2/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/test044JUX.info... -makeinfo: warning: input file test044JUX.info; did you mean test044JUX.texi? +Processing Texinfo file /tmp/testrjMok9.info... +makeinfo: warning: input file testrjMok9.info; did you mean testrjMok9.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 @@ -1517,15 +1553,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: 75 real time: 75 gc time: 3 +cpu time: 91 real time: 323 gc time: 10 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: 273167 real time: 273320 gc time: 29929 -cpu time: 796 real time: 803 gc time: 15 +cpu time: 456806 real time: 1119589 gc time: 79490 +cpu time: 1707 real time: 3866 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) @@ -1540,311 +1576,302 @@ 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 (2025-04-13 10:11:44-1200, selector `t') +Running 15 tests (2025-04-15 05:25:05+1400, selector `t') racket-test/unique-repls - passed 1/15 racket-test/unique-repls (0.019531 sec) - passed 2/15 racket-tests/cmd-read (6.774730 sec) + passed 1/15 racket-test/unique-repls (0.089845 sec) + passed 2/15 racket-tests/cmd-read (22.385517 sec) racket-tests/debugger -Break before expression -Break before expression -Break after expression: (values 42) {racket-back-end-/} killed +Test racket-tests/debugger backtrace: + signal(ert-test-failed (((should racket-debug-mode) :form racket-debug-mode :value nil))) + ert-fail(((should racket-debug-mode) :form racket-debug-mode :value nil)) + (if (unwind-protect (setq value-933 racket-debug-mode) (setq form-description-934 (list '(should racket-debug-mode) :form 'racket-debug-mode :value value-933)) (ert--signal-should-execution form-description-934)) nil (ert-fail form-description-934)) + (let (form-description-934) (if (unwind-protect (setq value-933 racket-debug-mode) (setq form-description-934 (list '(should racket-debug-mode) :form 'racket-debug-mode :value value-933)) (ert--signal-should-execution form-description-934)) nil (ert-fail form-description-934))) + (let ((value-933 (gensym "ert-form-evaluation-aborted-"))) (let (form-description-934) (if (unwind-protect (setq value-933 racket-debug-mode) (setq form-description-934 (list '(should racket-debug-mode) :form 'racket-debug-mode :value value-933)) (ert--signal-should-execution form-description-934)) nil (ert-fail form-description-934))) value-933) + (progn (racket-tests/call-until-true #'(lambda nil racket-debug-mode)) (let ((value-933 (gensym "ert-form-evaluation-aborted-"))) (let (form-description-934) (if (unwind-protect (setq value-933 racket-debug-mode) (setq form-description-934 (list '... :form 'racket-debug-mode :value value-933)) (ert--signal-should-execution form-description-934)) nil (ert-fail form-description-934))) value-933)) + (if (eq major-mode 'prog-mode) nil (racket-run '(16)) (progn (racket-tests/call-until-true #'(lambda nil (get-buffer racket-repl-buffer-name))) (let* ((fn-923 #'get-buffer) (args-924 (condition-case err (list racket-repl-buffer-name) (error ...)))) (let ((value-925 'ert-form-evaluation-aborted-926)) (let (form-description-927) (if (unwind-protect ... ... ...) nil (ert-fail form-description-927))) value-925))) (progn (racket-tests/call-until-true #'(lambda nil (racket--repl-session-id))) (let* ((fn-928 #'racket--repl-session-id) (args-929 (condition-case err (list) (error ...)))) (let ((value-930 'ert-form-evaluation-aborted-931)) (let (form-description-932) (if (unwind-protect ... ... ...) nil (ert-fail form-description-932))) value-930))) (progn (racket-tests/call-until-true #'(lambda nil racket-debug-mode)) (let ((value-933 (gensym "ert-form-evaluation-aborted-"))) (let (form-description-934) (if (unwind-protect (setq value-933 racket-debug-mode) (setq form-description-934 ...) (ert--signal-should-execution form-description-934)) nil (ert-fail form-description-934))) value-933)) (racket--call-with-repl-buffer #'(lambda nil (let* ((fn-935 ...) (args-936 ...)) (let (...) (let ... ...) value-937)))) (let* ((fn-940 #'racket-tests/see-char-property) (args-941 (condition-case err (list (point) 'face racket-debug-break-face) (error (progn ... ...))))) (let ((value-942 'ert-form-evaluation-aborted-943)) (let (form-description-944) (if (unwind-protect (setq value-942 ...) (setq form-description-944 ...) (ert--signal-should-execution form-description-944)) nil (ert-fail form-description-944))) value-942)) (racket-debug-step) (racket--call-with-repl-buffer #'(lambda nil (let* ((fn-945 ...) (args-946 ...)) (let (...) (let ... ...) value-947)))) (let* ((fn-950 #'racket-tests/see-char-property) (args-951 (condition-case err (list (point) 'face racket-debug-break-face) (error (progn ... ...))))) (let ((value-952 'ert-form-evaluation-aborted-953)) (let (form-description-954) (if (unwind-protect (setq value-952 ...) (setq form-description-954 ...) (ert--signal-should-execution form-description-954)) nil (ert-fail form-description-954))) value-952)) (let* ((fn-955 #'racket-tests/see-char-property) (args-956 (condition-case err (list (- ... 3) 'after-string (propertize "41" ... racket-debug-locals-face)) (error (progn ... ...))))) (let ((value-957 'ert-form-evaluation-aborted-958)) (let (form-description-959) (if (unwind-protect (setq value-957 ...) (setq form-description-959 ...) (ert--signal-should-execution form-description-959)) nil (ert-fail form-description-959))) value-957)) (racket-debug-step) (racket--call-with-repl-buffer #'(lambda nil (let* ((fn-960 ...) (args-961 ...)) (let (...) (let ... ...) value-962)))) (let* ((fn-965 #'racket-tests/see-char-property) (args-966 (condition-case err (list (point) 'after-string (propertize "⇒ (values 42)" ... racket-debug-result-face)) (error (progn ... ...))))) (let ((value-967 'ert-form-evaluation-aborted-968)) (let (form-description-969) (if (unwind-protect (setq value-967 ...) (setq form-description-969 ...) (ert--signal-should-execution form-description-969)) nil (ert-fail form-description-969))) value-967)) (racket-debug-step) (racket--call-with-repl-buffer #'(lambda nil (let* ((fn-970 ...) (args-971 ...)) (let (...) (let ... ...) value-972)))) (let* ((fn-975 #'racket-tests/see-char-property) (args-976 (condition-case err (list (point) 'after-string nil) (error (progn ... ...))))) (let ((value-977 'ert-form-evaluation-aborted-978)) (let (form-description-979) (if (unwind-protect (setq value-977 ...) (setq form-description-979 ...) (ert--signal-should-execution form-description-979)) nil (ert-fail form-description-979))) value-977)) (let ((value-980 (gensym "ert-form-evaluation-aborted-"))) (let (form-description-981) (if (not (unwind-protect (setq value-980 racket-debug-mode) (setq form-description-981 ...) (ert--signal-should-execution form-description-981))) nil (ert-fail form-description-981))) value-980) (racket--call-with-repl-buffer #'(lambda nil (racket-repl-exit) (let* ((fn-982 ...) (args-983 ...)) (let (...) (let ... ...) value-984)) (kill-buffer)))) + (let* ((path (make-temp-file "test" nil ".rkt")) (name (file-name-nondirectory path)) (code "#lang racket/base\n(define (f x) (+ 1 x))\n(f 41)\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-921 (gensym "ert-form-evaluation-aborted-"))) (let (form-description-922) (if (unwind-protect (setq value-921 (cond ... ...)) (setq form-description-922 (list ... :form ... :value value-921)) (ert--signal-should-execution form-description-922)) nil (ert-fail form-description-922))) value-921)) (if (eq major-mode 'prog-mode) nil (racket-run '(16)) (progn (racket-tests/call-until-true #'(lambda nil (get-buffer racket-repl-buffer-name))) (let* ((fn-923 #'get-buffer) (args-924 (condition-case err (list racket-repl-buffer-name) (error ...)))) (let ((value-925 'ert-form-evaluation-aborted-926)) (let (form-description-927) (if (unwind-protect ... ... ...) nil (ert-fail form-description-927))) value-925))) (progn (racket-tests/call-until-true #'(lambda nil (racket--repl-session-id))) (let* ((fn-928 #'racket--repl-session-id) (args-929 (condition-case err (list) (error ...)))) (let ((value-930 'ert-form-evaluation-aborted-931)) (let (form-description-932) (if (unwind-protect ... ... ...) nil (ert-fail form-description-932))) value-930))) (progn (racket-tests/call-until-true #'(lambda nil racket-debug-mode)) (let ((value-933 (gensym "ert-form-evaluation-aborted-"))) (let (form-description-934) (if (unwind-protect (setq value-933 racket-debug-mode) (setq form-description-934 ...) (ert--signal-should-execution form-description-934)) nil (ert-fail form-description-934))) value-933)) (racket--call-with-repl-buffer #'(lambda nil (let* ((fn-935 ...) (args-936 ...)) (let (...) (let ... ...) value-937)))) (let* ((fn-940 #'racket-tests/see-char-property) (args-941 (condition-case err (list (point) 'face racket-debug-break-face) (error (progn ... ...))))) (let ((value-942 'ert-form-evaluation-aborted-943)) (let (form-description-944) (if (unwind-protect (setq value-942 ...) (setq form-description-944 ...) (ert--signal-should-execution form-description-944)) nil (ert-fail form-description-944))) value-942)) (racket-debug-step) (racket--call-with-repl-buffer #'(lambda nil (let* ((fn-945 ...) (args-946 ...)) (let (...) (let ... ...) value-947)))) (let* ((fn-950 #'racket-tests/see-char-property) (args-951 (condition-case err (list (point) 'face racket-debug-break-face) (error (progn ... ...))))) (let ((value-952 'ert-form-evaluation-aborted-953)) (let (form-description-954) (if (unwind-protect (setq value-952 ...) (setq form-description-954 ...) (ert--signal-should-execution form-description-954)) nil (ert-fail form-description-954))) value-952)) (let* ((fn-955 #'racket-tests/see-char-property) (args-956 (condition-case err (list (- ... 3) 'after-string (propertize "41" ... racket-debug-locals-face)) (error (progn ... ...))))) (let ((value-957 'ert-form-evaluation-aborted-958)) (let (form-description-959) (if (unwind-protect (setq value-957 ...) (setq form-description-959 ...) (ert--signal-should-execution form-description-959)) nil (ert-fail form-description-959))) value-957)) (racket-debug-step) (racket--call-with-repl-buffer #'(lambda nil (let* ((fn-960 ...) (args-961 ...)) (let (...) (let ... ...) value-962)))) (let* ((fn-965 #'racket-tests/see-char-property) (args-966 (condition-case err (list (point) 'after-string (propertize "⇒ (values 42)" ... racket-debug-result-face)) (error (progn ... ...))))) (let ((value-967 'ert-form-evaluation-aborted-968)) (let (form-description-969) (if (unwind-protect (setq value-967 ...) (setq form-description-969 ...) (ert--signal-should-execution form-description-969)) nil (ert-fail form-description-969))) value-967)) (racket-debug-step) (racket--call-with-repl-buffer #'(lambda nil (let* ((fn-970 ...) (args-971 ...)) (let (...) (let ... ...) value-972)))) (let* ((fn-975 #'racket-tests/see-char-property) (args-976 (condition-case err (list (point) 'after-string nil) (error (progn ... ...))))) (let ((value-977 'ert-form-evaluation-aborted-978)) (let (form-description-979) (if (unwind-protect (setq value-977 ...) (setq form-description-979 ...) (ert--signal-should-execution form-description-979)) nil (ert-fail form-description-979))) value-977)) (let ((value-980 (gensym "ert-form-evaluation-aborted-"))) (let (form-description-981) (if (not (unwind-protect (setq value-980 racket-debug-mode) (setq form-description-981 ...) (ert--signal-should-execution form-description-981))) nil (ert-fail form-description-981))) value-980) (racket--call-with-repl-buffer #'(lambda nil (racket-repl-exit) (let* ((fn-982 ...) (args-983 ...)) (let (...) (let ... ...) value-984)) (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 (f x) (+ 1 x))\n(f 41)\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-921)) (if (eq major-mode 'prog-mode) nil (racket-run '...) (progn (racket-tests/call-until-true ...) (let* ... ...)) (progn (racket-tests/call-until-true ...) (let* ... ...)) (progn (racket-tests/call-until-true ...) (let ... ... value-933)) (racket--call-with-repl-buffer #'...) (let* (... ...) (let ... ... value-942)) (racket-debug-step) ...) (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 (f x) (+ 1 x))\n(f 41)\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-921 (gensym "ert-form-evaluation-aborted-"))) (let (form-description-922) (if (unwind-protect ... ... ...) nil (ert-fail form-description-922))) value-921)) (if (eq major-mode 'prog-mode) nil (racket-run '(16)) (progn (racket-tests/call-until-true #'(lambda nil ...)) (let* ((fn-923 ...) (args-924 ...)) (let (...) (let ... ...) value-925))) (progn (racket-tests/call-until-true #'(lambda nil ...)) (let* ((fn-928 ...) (args-929 ...)) (let (...) (let ... ...) value-930))) (progn (racket-tests/call-until-true #'(lambda nil racket-debug-mode)) (let ((value-933 ...)) (let (form-description-934) (if ... nil ...)) value-933)) (racket--call-with-repl-buffer #'(lambda nil (let* ... ...))) (let* ((fn-940 #'racket-tests/see-char-property) (args-941 (condition-case err ... ...))) (let ((value-942 ...)) (let (form-description-944) (if ... nil ...)) value-942)) (racket-debug-step) (racket--call-with-repl-buffer #'(lambda nil (let* ... ...))) (let* ((fn-950 #'racket-tests/see-char-property) (args-951 (condition-case err ... ...))) (let ((value-952 ...)) (let (form-description-954) (if ... nil ...)) value-952)) (let* ((fn-955 #'racket-tests/see-char-property) (args-956 (condition-case err ... ...))) (let ((value-957 ...)) (let (form-description-959) (if ... nil ...)) value-957)) (racket-debug-step) (racket--call-with-repl-buffer #'(lambda nil (let* ... ...))) (let* ((fn-965 #'racket-tests/see-char-property) (args-966 (condition-case err ... ...))) (let ((value-967 ...)) (let (form-description-969) (if ... nil ...)) value-967)) (racket-debug-step) (racket--call-with-repl-buffer #'(lambda nil (let* ... ...))) (let* ((fn-975 #'racket-tests/see-char-property) (args-976 (condition-case err ... ...))) (let ((value-977 ...)) (let (form-description-979) (if ... nil ...)) value-977)) (let ((value-980 (gensym "ert-form-evaluation-aborted-"))) (let (form-description-981) (if (not ...) nil (ert-fail form-description-981))) value-980) (racket--call-with-repl-buffer #'(lambda nil (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 (f x) (+ 1 x))\n(f 41)\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-921 (gensym "ert-form-evaluation-aborted-"))) (let (form-description-922) (if (unwind-protect ... ... ...) nil (ert-fail form-description-922))) value-921)) (if (eq major-mode 'prog-mode) nil (racket-run '(16)) (progn (racket-tests/call-until-true #'(lambda nil ...)) (let* ((fn-923 ...) (args-924 ...)) (let (...) (let ... ...) value-925))) (progn (racket-tests/call-until-true #'(lambda nil ...)) (let* ((fn-928 ...) (args-929 ...)) (let (...) (let ... ...) value-930))) (progn (racket-tests/call-until-true #'(lambda nil racket-debug-mode)) (let ((value-933 ...)) (let (form-description-934) (if ... nil ...)) value-933)) (racket--call-with-repl-buffer #'(lambda nil (let* ... ...))) (let* ((fn-940 #'racket-tests/see-char-property) (args-941 (condition-case err ... ...))) (let ((value-942 ...)) (let (form-description-944) (if ... nil ...)) value-942)) (racket-debug-step) (racket--call-with-repl-buffer #'(lambda nil (let* ... ...))) (let* ((fn-950 #'racket-tests/see-char-property) (args-951 (condition-case err ... ...))) (let ((value-952 ...)) (let (form-description-954) (if ... nil ...)) value-952)) (let* ((fn-955 #'racket-tests/see-char-property) (args-956 (condition-case err ... ...))) (let ((value-957 ...)) (let (form-description-959) (if ... nil ...)) value-957)) (racket-debug-step) (racket--call-with-repl-buffer #'(lambda nil (let* ... ...))) (let* ((fn-965 #'racket-tests/see-char-property) (args-966 (condition-case err ... ...))) (let ((value-967 ...)) (let (form-description-969) (if ... nil ...)) value-967)) (racket-debug-step) (racket--call-with-repl-buffer #'(lambda nil (let* ... ...))) (let* ((fn-975 #'racket-tests/see-char-property) (args-976 (condition-case err ... ...))) (let ((value-977 ...)) (let (form-description-979) (if ... nil ...)) value-977)) (let ((value-980 (gensym "ert-form-evaluation-aborted-"))) (let (form-description-981) (if (not ...) nil (ert-fail form-description-981))) value-980) (racket--call-with-repl-buffer #'(lambda nil (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 (f x) (+ 1 x))\n(f 41)\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-921)) (if (eq major-mode 'prog-mode) nil (racket-run '...) (progn (racket-tests/call-until-true ...) (let* ... ...)) (progn (racket-tests/call-until-true ...) (let* ... ...)) (progn (racket-tests/call-until-true ...) (let ... ... value-933)) (racket--call-with-repl-buffer #'...) (let* (... ...) (let ... ... value-942)) (racket-debug-step) (racket--call-with-repl-buffer #'...) (let* (... ...) (let ... ... value-952)) (let* (... ...) (let ... ... value-957)) (racket-debug-step) (racket--call-with-repl-buffer #'...) (let* (... ...) (let ... ... value-967)) (racket-debug-step) (racket--call-with-repl-buffer #'...) (let* (... ...) (let ... ... value-977)) (let (...) (let ... ...) value-980) (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 (f x) (+ 1 x))\n(f 41)\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-921)) (if (eq major-mode ...) nil (racket-run ...) (progn ... ...) (progn ... ...) (progn ... ...) (racket--call-with-repl-buffer ...) (let* ... ...) (racket-debug-step) (racket--call-with-repl-buffer ...) (let* ... ...) (let* ... ...) (racket-debug-step) (racket--call-with-repl-buffer ...) (let* ... ...) (racket-debug-step) (racket--call-with-repl-buffer ...) (let* ... ...) (let ... ... value-980) (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/debugger") (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/debugger :documentation nil :body #f(lambda () [t] (message "racket-tests/debugger") (let ... ...) nil) :most-recent-result #s(ert-test-failed :messages "racket-tests/debugger\n{racket-back-end-/} killed\n" :should-forms (... ... ... ...) :duration 1801.075518906 :condition (ert-test-failed ...) :backtrace (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :infos nil) :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/racket-mode-20250324~git.88d82e2/test/racket-tests.el") :result #s(ert-test-failed :messages "racket-tests/debugger\n{racket-back-end-/} killed\n" :should-forms ((... :form ... :value t) (... :form ... :value #*>) (... :form ... :value 1) (... :form racket-debug-mode :value nil)) :duration 1801.075518906 :condition (ert-test-failed (... :form racket-debug-mode :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 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 #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/debugger :documentation nil :body #f(lambda () [t] (message "racket-tests/debugger") (let ((tail ...)) (while tail (let ... ... ...))) nil) :most-recent-result #s(ert-test-failed :messages "racket-tests/debugger\n{racket-back-end-/} killed\n" :should-forms (((should ...) :form (cond ... ...) :value t) ((should ...) :form (get-buffer "*Racket REPL *") :value #*>) ((should ...) :form (racket--repl-session-id) :value 1) ((should racket-debug-mode) :form racket-debug-mode :value nil)) :duration 1801.075518906 :condition (ert-test-failed ((should racket-debug-mode) :form racket-debug-mode :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-933) :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 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 t :fun #f(lambda () ... ...) :args nil :flags nil :locals (...) :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 nil :fun let :args (... ... ...) :flags nil :locals (... ...) :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun while :args (tail ...) :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 (#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-20250324~git.88d82e2/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 2 :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/debugger :documentation nil :body #f(lambda () ... ... ... nil) :most-recent-result ... :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/racket-mode-20250324~git.88d82e2/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() -Break before expression +Test racket-tests/debugger condition: + (ert-test-failed + ((should racket-debug-mode) :form racket-debug-mode :value nil)) + FAILED 3/15 racket-tests/debugger (1801.075519 sec) at test/racket-tests.el:337 +racket-tests/expand-expression + +{racket-back-end-/} killed +Test racket-tests/expand-expression backtrace: + signal(ert-test-failed (((should (racket-tests/see-back (concat "\n" name "> "))) :form (racket-tests/see-back "\ntestlexttK.rkt> ") :value nil :explanation (actual . "Starting back end...\nREPL session stopped\nStarting back end...\n")))) + ert-fail(((should (racket-tests/see-back (concat "\n" name "> "))) :form (racket-tests/see-back "\ntestlexttK.rkt> ") :value nil :explanation (actual . "Starting back end...\nREPL session stopped\nStarting back end...\n"))) + (if (unwind-protect (setq value-1044 (apply fn-1042 args-1043)) (setq form-description-1046 (nconc (list '(should (racket-tests/see-back ...))) (list :form (cons fn-1042 args-1043)) (if (eql value-1044 'ert-form-evaluation-aborted-1045) nil (list :value value-1044)) (if (eql value-1044 'ert-form-evaluation-aborted-1045) nil (let* ((-explainer- ...)) (if -explainer- (list :explanation ...) nil))))) (ert--signal-should-execution form-description-1046)) nil (ert-fail form-description-1046)) + (let (form-description-1046) (if (unwind-protect (setq value-1044 (apply fn-1042 args-1043)) (setq form-description-1046 (nconc (list '(should ...)) (list :form (cons fn-1042 args-1043)) (if (eql value-1044 'ert-form-evaluation-aborted-1045) nil (list :value value-1044)) (if (eql value-1044 'ert-form-evaluation-aborted-1045) nil (let* (...) (if -explainer- ... nil))))) (ert--signal-should-execution form-description-1046)) nil (ert-fail form-description-1046))) + (let ((value-1044 'ert-form-evaluation-aborted-1045)) (let (form-description-1046) (if (unwind-protect (setq value-1044 (apply fn-1042 args-1043)) (setq form-description-1046 (nconc (list '...) (list :form (cons fn-1042 args-1043)) (if (eql value-1044 ...) nil (list :value value-1044)) (if (eql value-1044 ...) nil (let* ... ...)))) (ert--signal-should-execution form-description-1046)) nil (ert-fail form-description-1046))) value-1044) + (let* ((fn-1042 #'racket-tests/see-back) (args-1043 (condition-case err (list (concat "\n" name "> ")) (error (progn (setq fn-1042 #'signal) (list (car err) (cdr err))))))) (let ((value-1044 'ert-form-evaluation-aborted-1045)) (let (form-description-1046) (if (unwind-protect (setq value-1044 (apply fn-1042 args-1043)) (setq form-description-1046 (nconc (list ...) (list :form ...) (if ... nil ...) (if ... nil ...))) (ert--signal-should-execution form-description-1046)) nil (ert-fail form-description-1046))) value-1044)) + #f(lambda () [(name "testlexttK.rkt")] (let* ((fn-1042 #'racket-tests/see-back) (args-1043 (condition-case err ... ...))) (let ((value-1044 ...)) (let (form-description-1046) (if ... nil ...)) value-1044)))() + funcall(#f(lambda () [(name "testlexttK.rkt")] (let* ((fn-1042 #'racket-tests/see-back) (args-1043 (condition-case err (list (concat "\n" name "> ")) (error (progn ... ...))))) (let ((value-1044 'ert-form-evaluation-aborted-1045)) (let (form-description-1046) (if (unwind-protect (setq value-1044 ...) (setq form-description-1046 ...) (ert--signal-should-execution form-description-1046)) nil (ert-fail form-description-1046))) value-1044)))) + (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 "testlexttK.rkt")] (let* ((fn-1042 #'racket-tests/see-back) (args-1043 (condition-case err (list (concat "\n" name "> ")) (error (progn ... ...))))) (let ((value-1044 'ert-form-evaluation-aborted-1045)) (let (form-description-1046) (if (unwind-protect (setq value-1044 ...) (setq form-description-1046 ...) (ert--signal-should-execution form-description-1046)) nil (ert-fail form-description-1046))) value-1044)))) + (let* ((path (make-temp-file "test" nil ".rkt")) (name (file-name-nondirectory path)) (code "#lang racket/base\n(cond [(< 1 2) #t] [else #f])\n")) (write-region code nil path nil 'no-wrote-file-message) (find-file path) (racket-run) (progn (racket-tests/call-until-true #'(lambda nil (get-buffer racket-repl-buffer-name))) (let* ((fn-1032 #'get-buffer) (args-1033 (condition-case err (list racket-repl-buffer-name) (error (progn ... ...))))) (let ((value-1034 'ert-form-evaluation-aborted-1035)) (let (form-description-1036) (if (unwind-protect (setq value-1034 ...) (setq form-description-1036 ...) (ert--signal-should-execution form-description-1036)) nil (ert-fail form-description-1036))) value-1034))) (progn (racket-tests/call-until-true #'(lambda nil (racket--repl-session-id))) (let* ((fn-1037 #'racket--repl-session-id) (args-1038 (condition-case err (list) (error (progn ... ...))))) (let ((value-1039 'ert-form-evaluation-aborted-1040)) (let (form-description-1041) (if (unwind-protect (setq value-1039 ...) (setq form-description-1041 ...) (ert--signal-should-execution form-description-1041)) nil (ert-fail form-description-1041))) value-1039))) (racket--call-with-repl-buffer #'(lambda nil (let* ((fn-1042 #'racket-tests/see-back) (args-1043 (condition-case err ... ...))) (let ((value-1044 ...)) (let (form-description-1046) (if ... nil ...)) value-1044)))) (goto-char (point-max)) (racket-expand-last-sexp 4) (set-buffer "*Racket Stepper *") (let* ((fn-1047 #'eq) (args-1048 (condition-case err (list major-mode 'racket-stepper-mode) (error (progn (setq fn-1047 ...) (list ... ...)))))) (let ((value-1049 'ert-form-evaluation-aborted-1050)) (let (form-description-1051) (if (unwind-protect (setq value-1049 (apply fn-1047 args-1048)) (setq form-description-1051 (nconc ... ... ... ...)) (ert--signal-should-execution form-description-1051)) nil (ert-fail form-description-1051))) value-1049)) (let* ((fn-1052 #'equal) (args-1053 (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-1052 ...) (list ... ...)))))) (let ((value-1054 'ert-form-evaluation-aborted-1055)) (let (form-description-1056) (if (unwind-protect (setq value-1054 (apply fn-1052 args-1053)) (setq form-description-1056 (nconc ... ... ... ...)) (ert--signal-should-execution form-description-1056)) nil (ert-fail form-description-1056))) value-1054)) (progn (racket-tests/call-until-true #'(lambda nil (faceup-test-font-lock-buffer nil racket-tests/expand-expression-original))) (let* ((fn-1057 #'faceup-test-font-lock-buffer) (args-1058 (condition-case err (list nil racket-tests/expand-expression-original) (error (progn ... ...))))) (let ((value-1059 'ert-form-evaluation-aborted-1060)) (let (form-description-1061) (if (unwind-protect (setq value-1059 ...) (setq form-description-1061 ...) (ert--signal-should-execution form-description-1061)) nil (ert-fail form-description-1061))) value-1059))) (racket-tests/press "C-u RET") (progn (racket-tests/call-until-true #'(lambda nil (faceup-test-font-lock-buffer nil racket-tests/expand-expression-final))) (let* ((fn-1062 #'faceup-test-font-lock-buffer) (args-1063 (condition-case err (list nil racket-tests/expand-expression-final) (error (progn ... ...))))) (let ((value-1064 'ert-form-evaluation-aborted-1065)) (let (form-description-1066) (if (unwind-protect (setq value-1064 ...) (setq form-description-1066 ...) (ert--signal-should-execution form-description-1066)) nil (ert-fail form-description-1066))) value-1064))) (quit-window) (racket--call-with-repl-buffer #'(lambda nil (racket-repl-exit) (let* ((fn-1067 #'racket-tests/see-back) (args-1068 (condition-case err ... ...))) (let ((value-1069 ...)) (let (form-description-1071) (if ... nil ...)) value-1069)) (kill-buffer))) (kill-buffer) (delete-file path)) + #f(lambda () [t] (let* ((path (make-temp-file "test" nil ".rkt")) (name (file-name-nondirectory path)) (code "#lang racket/base\n(cond [(< 1 2) #t] [else #f])\n")) (write-region code nil path nil 'no-wrote-file-message) (find-file path) (racket-run) (progn (racket-tests/call-until-true #'...) (let* (... ...) (let ... ... value-1034))) (progn (racket-tests/call-until-true #'...) (let* (... ...) (let ... ... value-1039))) (racket--call-with-repl-buffer #'(lambda nil ...)) (goto-char (point-max)) (racket-expand-last-sexp 4) ...))() + funcall(#f(lambda () [t] (let* ((path (make-temp-file "test" nil ".rkt")) (name (file-name-nondirectory path)) (code "#lang racket/base\n(cond [(< 1 2) #t] [else #f])\n")) (write-region code nil path nil 'no-wrote-file-message) (find-file path) (racket-run) (progn (racket-tests/call-until-true #'(lambda nil (get-buffer racket-repl-buffer-name))) (let* ((fn-1032 #'get-buffer) (args-1033 (condition-case err ... ...))) (let ((value-1034 ...)) (let (form-description-1036) (if ... nil ...)) value-1034))) (progn (racket-tests/call-until-true #'(lambda nil (racket--repl-session-id))) (let* ((fn-1037 #'racket--repl-session-id) (args-1038 (condition-case err ... ...))) (let ((value-1039 ...)) (let (form-description-1041) (if ... nil ...)) value-1039))) (racket--call-with-repl-buffer #'(lambda nil (let* (... ...) (let ... ... value-1044)))) (goto-char (point-max)) (racket-expand-last-sexp 4) (set-buffer "*Racket Stepper *") (let* ((fn-1047 #'eq) (args-1048 (condition-case err (list major-mode ...) (error ...)))) (let ((value-1049 'ert-form-evaluation-aborted-1050)) (let (form-description-1051) (if (unwind-protect ... ... ...) nil (ert-fail form-description-1051))) value-1049)) (let* ((fn-1052 #'equal) (args-1053 (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-1054 'ert-form-evaluation-aborted-1055)) (let (form-description-1056) (if (unwind-protect ... ... ...) nil (ert-fail form-description-1056))) value-1054)) (progn (racket-tests/call-until-true #'(lambda nil (faceup-test-font-lock-buffer nil racket-tests/expand-expression-original))) (let* ((fn-1057 #'faceup-test-font-lock-buffer) (args-1058 (condition-case err ... ...))) (let ((value-1059 ...)) (let (form-description-1061) (if ... nil ...)) value-1059))) (racket-tests/press "C-u RET") (progn (racket-tests/call-until-true #'(lambda nil (faceup-test-font-lock-buffer nil racket-tests/expand-expression-final))) (let* ((fn-1062 #'faceup-test-font-lock-buffer) (args-1063 (condition-case err ... ...))) (let ((value-1064 ...)) (let (form-description-1066) (if ... nil ...)) value-1064))) (quit-window) (racket--call-with-repl-buffer #'(lambda nil (racket-repl-exit) (let* (... ...) (let ... ... value-1069)) (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 () [t] (let* ((path (make-temp-file "test" nil ".rkt")) (name (file-name-nondirectory path)) (code "#lang racket/base\n(cond [(< 1 2) #t] [else #f])\n")) (write-region code nil path nil 'no-wrote-file-message) (find-file path) (racket-run) (progn (racket-tests/call-until-true #'(lambda nil (get-buffer racket-repl-buffer-name))) (let* ((fn-1032 #'get-buffer) (args-1033 (condition-case err ... ...))) (let ((value-1034 ...)) (let (form-description-1036) (if ... nil ...)) value-1034))) (progn (racket-tests/call-until-true #'(lambda nil (racket--repl-session-id))) (let* ((fn-1037 #'racket--repl-session-id) (args-1038 (condition-case err ... ...))) (let ((value-1039 ...)) (let (form-description-1041) (if ... nil ...)) value-1039))) (racket--call-with-repl-buffer #'(lambda nil (let* (... ...) (let ... ... value-1044)))) (goto-char (point-max)) (racket-expand-last-sexp 4) (set-buffer "*Racket Stepper *") (let* ((fn-1047 #'eq) (args-1048 (condition-case err (list major-mode ...) (error ...)))) (let ((value-1049 'ert-form-evaluation-aborted-1050)) (let (form-description-1051) (if (unwind-protect ... ... ...) nil (ert-fail form-description-1051))) value-1049)) (let* ((fn-1052 #'equal) (args-1053 (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-1054 'ert-form-evaluation-aborted-1055)) (let (form-description-1056) (if (unwind-protect ... ... ...) nil (ert-fail form-description-1056))) value-1054)) (progn (racket-tests/call-until-true #'(lambda nil (faceup-test-font-lock-buffer nil racket-tests/expand-expression-original))) (let* ((fn-1057 #'faceup-test-font-lock-buffer) (args-1058 (condition-case err ... ...))) (let ((value-1059 ...)) (let (form-description-1061) (if ... nil ...)) value-1059))) (racket-tests/press "C-u RET") (progn (racket-tests/call-until-true #'(lambda nil (faceup-test-font-lock-buffer nil racket-tests/expand-expression-final))) (let* ((fn-1062 #'faceup-test-font-lock-buffer) (args-1063 (condition-case err ... ...))) (let ((value-1064 ...)) (let (form-description-1066) (if ... nil ...)) value-1064))) (quit-window) (racket--call-with-repl-buffer #'(lambda nil (racket-repl-exit) (let* (... ...) (let ... ... value-1069)) (kill-buffer))) (kill-buffer) (delete-file path)))) + #f(lambda () [t] (message "racket-tests/expand-expression") (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-expression :documentation nil :body #f(lambda () [t] (message "racket-tests/expand-expression") (racket-tests/call-with-back-end-settings ...) nil) :most-recent-result #s(ert-test-failed :messages "racket-tests/expand-expression\n{racket-back-end-/} killed\n" :should-forms (... ... ...) :duration 1800.78692941 :condition (ert-test-failed ...) :backtrace (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :infos nil) :expected-result-type (satisfies racket-tests/expected-result-for-expand-expression-p) :tags nil :file-name "/build/reproducible-path/racket-mode-20250324~git.88d82e2/test/racket-tests.el") :result #s(ert-test-failed :messages "racket-tests/expand-expression\n{racket-back-end-/} killed\n" :should-forms ((... :form ... :value #*>) (... :form ... :value 2) (... :form ... :value nil :explanation ...)) :duration 1800.78692941 :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 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) ...) :infos nil) :exit-continuation #f(compiled-function () #) :ert-debug-on-error nil)) + ert-run-test(#s(ert-test :name racket-tests/expand-expression :documentation nil :body #f(lambda () [t] (message "racket-tests/expand-expression") (racket-tests/call-with-back-end-settings #'...) nil) :most-recent-result #s(ert-test-failed :messages "racket-tests/expand-expression\n{racket-back-end-/} killed\n" :should-forms ((... :form ... :value #*>) (... :form ... :value 2) (... :form ... :value nil :explanation ...)) :duration 1800.78692941 :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 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 ... :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 (satisfies racket-tests/expected-result-for-expand-expression-p) :tags nil :file-name "/build/reproducible-path/racket-mode-20250324~git.88d82e2/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 2 :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-expression :documentation nil :body #f(lambda () ... ... ... nil) :most-recent-result ... :expected-result-type ... :tags nil :file-name "/build/reproducible-path/racket-mode-20250324~git.88d82e2/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-expression condition: + (ert-test-failed + ((should (racket-tests/see-back (concat "\n" name "> "))) :form + (racket-tests/see-back "\ntestlexttK.rkt> ") :value nil :explanation + (actual + . "Starting back end...\nREPL session stopped\nStarting back end...\n"))) + FAILED 4/15 racket-tests/expand-expression (1800.786929 sec) at test/racket-tests.el:1 +racket-tests/expand-file-deep + +{racket-back-end-/} killed + passed 5/15 racket-tests/expand-file-deep (1756.837602 sec) +racket-tests/expand-file-shallow + +{racket-back-end-/} killed +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-999 (apply fn-997 args-998)) (setq form-description-1001 (nconc (list '(should (faceup-test-font-lock-buffer nil racket-tests/expand-shallow-0))) (list :form (cons fn-997 args-998)) (if (eql value-999 'ert-form-evaluation-aborted-1000) nil (list :value value-999)) (if (eql value-999 'ert-form-evaluation-aborted-1000) nil (let* ((-explainer- ...)) (if -explainer- (list :explanation ...) nil))))) (ert--signal-should-execution form-description-1001)) nil (ert-fail form-description-1001)) + (let (form-description-1001) (if (unwind-protect (setq value-999 (apply fn-997 args-998)) (setq form-description-1001 (nconc (list '(should ...)) (list :form (cons fn-997 args-998)) (if (eql value-999 'ert-form-evaluation-aborted-1000) nil (list :value value-999)) (if (eql value-999 'ert-form-evaluation-aborted-1000) nil (let* (...) (if -explainer- ... nil))))) (ert--signal-should-execution form-description-1001)) nil (ert-fail form-description-1001))) + (let ((value-999 'ert-form-evaluation-aborted-1000)) (let (form-description-1001) (if (unwind-protect (setq value-999 (apply fn-997 args-998)) (setq form-description-1001 (nconc (list '...) (list :form (cons fn-997 args-998)) (if (eql value-999 ...) nil (list :value value-999)) (if (eql value-999 ...) nil (let* ... ...)))) (ert--signal-should-execution form-description-1001)) nil (ert-fail form-description-1001))) value-999) + (let* ((fn-997 #'faceup-test-font-lock-buffer) (args-998 (condition-case err (list nil racket-tests/expand-shallow-0) (error (progn (setq fn-997 #'signal) (list (car err) (cdr err))))))) (let ((value-999 'ert-form-evaluation-aborted-1000)) (let (form-description-1001) (if (unwind-protect (setq value-999 (apply fn-997 args-998)) (setq form-description-1001 (nconc (list ...) (list :form ...) (if ... nil ...) (if ... nil ...))) (ert--signal-should-execution form-description-1001)) nil (ert-fail form-description-1001))) value-999)) + (progn (racket-tests/call-until-true #'(lambda nil (faceup-test-font-lock-buffer nil racket-tests/expand-shallow-0))) (let* ((fn-997 #'faceup-test-font-lock-buffer) (args-998 (condition-case err (list nil racket-tests/expand-shallow-0) (error (progn (setq fn-997 ...) (list ... ...)))))) (let ((value-999 'ert-form-evaluation-aborted-1000)) (let (form-description-1001) (if (unwind-protect (setq value-999 (apply fn-997 args-998)) (setq form-description-1001 (nconc ... ... ... ...)) (ert--signal-should-execution form-description-1001)) nil (ert-fail form-description-1001))) value-999))) + (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-987 #'eq) (args-988 (condition-case err (list major-mode 'racket-stepper-mode) (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)) (let* ((fn-992 #'equal) (args-993 (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-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)) (progn (racket-tests/call-until-true #'(lambda nil (faceup-test-font-lock-buffer nil racket-tests/expand-shallow-0))) (let* ((fn-997 #'faceup-test-font-lock-buffer) (args-998 (condition-case err (list nil racket-tests/expand-shallow-0) (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))) (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-1002 #'faceup-test-font-lock-buffer) (args-1003 (condition-case err (list nil racket-tests/expand-shallow-1) (error (progn ... ...))))) (let ((value-1004 'ert-form-evaluation-aborted-1005)) (let (form-description-1006) (if (unwind-protect (setq value-1004 ...) (setq form-description-1006 ...) (ert--signal-should-execution form-description-1006)) nil (ert-fail form-description-1006))) value-1004))) (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-987 ...) (args-988 ...)) (let (...) (let ... ...) value-989)) (let* ((fn-992 ...) (args-993 ...)) (let (...) (let ... ...) value-994)) (progn (racket-tests/call-until-true #'...) (let* (... ...) (let ... ... value-999))) (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-987 #'eq) (args-988 (condition-case err (list major-mode ...) (error ...)))) (let ((value-989 'ert-form-evaluation-aborted-990)) (let (form-description-991) (if (unwind-protect ... ... ...) nil (ert-fail form-description-991))) value-989)) (let* ((fn-992 #'equal) (args-993 (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-994 'ert-form-evaluation-aborted-995)) (let (form-description-996) (if (unwind-protect ... ... ...) 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-997 #'faceup-test-font-lock-buffer) (args-998 (condition-case err ... ...))) (let ((value-999 ...)) (let (form-description-1001) (if ... nil ...)) value-999))) (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-1002 #'faceup-test-font-lock-buffer) (args-1003 (condition-case err ... ...))) (let ((value-1004 ...)) (let (form-description-1006) (if ... nil ...)) value-1004))) (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-987 #'eq) (args-988 (condition-case err (list major-mode ...) (error ...)))) (let ((value-989 'ert-form-evaluation-aborted-990)) (let (form-description-991) (if (unwind-protect ... ... ...) nil (ert-fail form-description-991))) value-989)) (let* ((fn-992 #'equal) (args-993 (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-994 'ert-form-evaluation-aborted-995)) (let (form-description-996) (if (unwind-protect ... ... ...) 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-997 #'faceup-test-font-lock-buffer) (args-998 (condition-case err ... ...))) (let ((value-999 ...)) (let (form-description-1001) (if ... nil ...)) value-999))) (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-1002 #'faceup-test-font-lock-buffer) (args-1003 (condition-case err ... ...))) (let ((value-1004 ...)) (let (form-description-1006) (if ... nil ...)) value-1004))) (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 1800.124136944 :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-20250324~git.88d82e2/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 1800.124136944 :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 1800.124136944 :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-999) :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-20250324~git.88d82e2/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 3 :passed-unexpected 0 :failed-expected 0 :failed-unexpected 3 :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-20250324~git.88d82e2/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 (1800.124137 sec) at test/racket-tests.el:446 +4 other buffers still using *Racket REPL * + passed 7/15 racket-tests/fill-paragraph-comment (0.055352 sec) + passed 8/15 racket-tests/font-lock (0.625832 sec) + passed 9/15 racket-tests/indent-same (0.775412 sec) + skipped 10/15 racket-tests/indent-speed-1 (0.000379 sec) + skipped 11/15 racket-tests/indent-speed-2 (0.000360 sec) + skipped 12/15 racket-tests/profile (0.000356 sec) +racket-tests/repl {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 #))) -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 -{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(11 "*" (hash-lang create 2 "#lang racket/base\n(define (f x) (+ 1 x))\n(f 41)\n" "")) -{logger /}: [ info] racket-mode: starting repl session 2 -{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: 38 cpu | 66 real | 0 gc :: '(12 "*" (repl-start 2)) -{logger /}: [ debug] racket-mode: '(run ("/tmp/testVZqjqN.rkt") ((test) (main)) 2048 #t 80 1 debug () ("/tmp/testVZqjqN.rkt" "/tmp/aLmltv1.rkt" "/tmp/bjQU57M.rkt" "/tmp/cgO5lWS.rkt" "/tmp/testVZqjqN.rkt")): using session ID 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: (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: 8 cpu | 16 real | 0 gc :: '(15 "*" (hash-lang update 2 2 1 0 " \n")) -{logger /}: [ debug] racket-mode: 8 cpu | 16 real | 0 gc :: '(16 "*" (hash-lang update 2 3 1 30 " \n")) -{logger /}: [ debug] racket-mode: 8 cpu | 16 real | 0 gc :: '(17 "*" (hash-lang update 2 4 30 1 "\n")) -{logger /}: [ debug] racket-mode: 8 cpu | 16 real | 0 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: 14 cpu | 31 real | 0 gc :: '(20 "*" (hash-lang update 2 7 31 2 "")) -{logger /}: [ debug] racket-mode: 15 cpu | 31 real | 0 gc :: '(21 "*" (hash-lang update 2 8 31 0 " \n")) -{logger /}: [ debug] racket-mode: 15 cpu | 31 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: 18 cpu | 34 real | 0 gc :: '(24 "*" (hash-lang update 2 11 62 0 " ")) -{logger /}: [ debug] racket-mode: 18 cpu | 34 real | 0 gc :: '(25 "*" (hash-lang update 2 12 104 0 "\n")) -{logger /}: [ debug] racket-mode: 18 cpu | 34 real | 0 gc :: '(26 -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 " ")) -{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(28 "*" (hash-lang update 2 15 105 0 " ")) -{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: '(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 :: '(37 "*" (hash-lang update 2 22 106 1 "2")) -{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 :: '(39 "*" (hash-lang update 2 24 107 1 "\n")) -{logger /}: [ debug] racket-mode: 0 cpu | 8 real | 0 gc :: '(38 "*" (hash-lang update 2 23 107 0 "\n")) -{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(43 "*" (hash-lang update 2 28 128 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 21 "")) -{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(42 "*" (hash-lang update 2 27 108 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 :: '(44 2 (debug-resume (all (2 after (#t . "(42)"))))) -{logger /}: [ debug] racket-mode: (set-session! 2 #) => sessions: #hasheq((2 . #(struct:session # # # # # #))) -{logger /}: [ debug] racket-mode: 269 cpu | 954 real | 30 gc :: '(14 2 (run ("/tmp/testVZqjqN.rkt") ((test) (main)) 2048 #t 80 1 debug () ("/tmp/testVZqjqN.rkt" "/tmp/aLmltv1.rkt" "/tmp/bjQU57M.rkt" "/tmp/cgO5lWS.rkt" "/tmp/testVZqjqN.rkt"))) -{logger /}: [ debug] racket-mode: '(syms): using session ID 2 -{logger /}: [ debug] racket-mode: 18 cpu | 35 real | 0 gc :: '(45 2 (syms)) -{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(46 "*" (hash-lang update 2 29 108 21 "")) -{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(48 "*" (hash-lang update 2 31 123 1 " ")) -{logger /}: [ debug] racket-mode: 2 cpu | 2 real | 0 gc :: '(47 "*" (hash-lang update 2 30 108 0 " ")) -{logger /}: [ debug] racket-mode: '(repl-exit): using session ID 2 -{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(49 2 (repl-exit)) -{logger /}: [ debug] racket-mode: (remove-session! 2) => sessions: '#hasheq() -{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(50 "*" (hash-lang update 2 32 108 16 "")) -{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(52 "*" (hash-lang update 2 34 126 0 "\n")) -{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(51 "*" (hash-lang update 2 33 108 0 " ")) -{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(54 "*" (hash-lang update 2 36 126 1 "\n")) -{logger /}: [ debug] r -{racket-back-end-/} killed - passed 3/15 racket-tests/debugger (3040.939611 sec) -racket-tests/expand-expression -acket-mode: 5 cpu | 13 real | 0 gc :: '(53 "*" (hash-lang update 2 35 108 19 " \n")) -{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(55 "*" (hash-lang delete 1)) +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) +{logger /}: [ debug] racket-mode: "/tmp/testi9Wgic/foo.rkt" 'disable # +{logger /}: [ debug] racket-mode: 68325 cpu | 96020 real | 14986 gc :: '(3 "*" (macro-stepper "/tmp/testi9Wgic/foo.rkt" () disable)) +back end is (:directory "/" :racket-program nil :remote-source-dir nil :restart-watch-directories nil :windows nil) {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 /}: [ 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: 37 cpu | 37 real | 0 gc :: '(56 "*" (repl-start 3)) +{logger /}: [ debug] racket-mode: 33 cpu | 33 real | 0 gc :: '(8 "*" (repl-start 3)) {logger /}: [ debug] racket-mode: '(debug-disable): using session ID 3 -{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(57 3 (debug-disable)) -{logger /}: [ debug] racket-mode: '(run ("/tmp/testeE036Z.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: 120 cpu | 120 real | 30 gc :: '(58 3 (run ("/tmp/testeE036Z.rkt") ((test) (main)) 2048 #t 80 1 medium () ())) +{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(9 3 (debug-disable)) +{logger /}: [ debug] racket-mode: '(run ("/tmp/emacs-home/racket-mode/repl.rkt") () 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: 72 cpu | 75 real | 8 gc :: '(10 3 (run ("/tmp/emacs-home/racket-mode/repl.rkt") () 2048 #t 80 1 medium () ())) {logger /}: [ debug] racket-mode: '(syms): using session ID 3 -{logger /}: [ debug] racket-mode: 19 cpu | 19 real | 4 gc :: '(59 3 (syms)) -{logger /}: [ debug] racket-mode: '(macro-stepper "/tmp/testeE036Z.rkt" "(cond [(< 1 2) #t] [else #f])" disable): using session ID 3 -{logger /}: [ debug] racket-mode: "/tmp/testeE036Z.rkt" 'disable # -{logger /}: [ debug] racket-mode: 33994 cpu | 34028 real | 5501 gc :: '(60 3 (macro-stepper "/tmp/testeE036Z.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 < (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))\ +{logger /}: [ debug] racket-mode: 4 cpu | 4 real | 0 gc :: '(11 3 (syms)) +{logger /}: [ debug] racket-mode: '(repl-submit "current-output-port\n" ()): using session ID 3 +{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(12 3 (repl-submit "current-output-port\n" ())) +{logger /}: [ debug] racket-mode: '(repl-submit "(if 1\n 2\n 3)\n" ()): using session ID 3 +{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(13 3 (repl-submit "(if 1\n 2\n 3)\n" ())) +{logger /}: [ debug] racket-mode: '(repl-submit "1 2 3\n" ()): using session ID 3 +{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(14 3 (repl-submit "1 2 3\n" ())) +{logger /}: [ debug] racket-mode: '(repl-submit "(+ 1) (+ 2) (+ 3)\n" ()): using session ID 3 +{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(15 3 (repl-submit "(+ 1) (+ 2) (+ 3)\n" ())) +{logger /}: [ debug] racket-mode: '(repl-submit "\"1\" '2 #(3)\n" ()): using session ID 3 +{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(16 3 (repl-submit "\"1\" '2 #(3)\n" ())) +{logger /}: [ debug] racket-mode: '(repl-submit "1 \n" ()): using session ID 3 +{logger /}: [ debug] racket-mode {racket-back-end-/} killed - passed 4/15 racket-tests/expand-expression (1329.156855 sec) -racket-tests/expand-file-deep + passed 13/15 racket-tests/repl (1009.030284 sec) +racket-tests/run {racket-back-end-/} killed - passed 5/15 racket-tests/expand-file-deep (1105.394365 sec) -racket-tests/expand-file-shallow {racket-back-end-/} killed - passed 6/15 racket-tests/expand-file-shallow (1193.379466 sec) - passed 7/15 racket-tests/fill-paragraph-comment (0.001744 sec) - passed 8/15 racket-tests/font-lock (0.447739 sec) - passed 9/15 racket-tests/indent-same (0.806736 sec) - skipped 10/15 racket-tests/indent-speed-1 (0.000274 sec) - skipped 11/15 racket-tests/indent-speed-2 (0.000221 sec) - skipped 12/15 racket-tests/profile (0.000231 sec) -racket-tests/repl -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: 274 cpu | 537 real | 1 gc :: '(61 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 :: '(62 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/testF5S9Wo/foo.rkt" 'disable # -{logger /}: [ debug] racket-mode: 34177 cpu | 34383 real | 4518 gc :: '(63 "*" (macro-stepper "/tmp/testF5S9Wo/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: 32 cpu | 85 real | 0 gc :: '(64 "*" (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: 33 cpu | 64 real | 0 gc :: '(65 "*" (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/testHhNrZx/foo.rkt" 'standard # -{logger /}: [ debug] racket-mode: 33606 cpu | 40745 real | 4368 gc :: '(66 "*" (macro-stepper "/tmp/testHhNrZx/foo.rkt" () standard)) -{logger /}: [ debug] racket-mode: 2 cpu | 2 real | 0 gc :: '(67 "*" (macro-stepper/next next)) +Test racket-tests/run backtrace: + signal(ert-test-failed (((should (cl-case major-mode ((racket-hash-lang-mode) (not buffer-read-only)) ((racket-mode prog-mode) t))) :form (cond ((memql major-mode '(racket-hash-lang-mode)) (not buffer-read-only)) ((memql major-mode '(racket-mode prog-mode)) t)) :value nil))) + ert-fail(((should (cl-case major-mode ((racket-hash-lang-mode) (not buffer-read-only)) ((racket-mode prog-mode) t))) :form (cond ((memql major-mode '(racket-hash-lang-mode)) (not buffer-read-only)) ((memql major-mode '(racket-mode prog-mode)) t)) :value nil)) + (if (unwind-protect (setq value-835 (cond ((memql major-mode '(racket-hash-lang-mode)) (not buffer-read-only)) ((memql major-mode '(racket-mode prog-mode)) t))) (setq form-description-836 (list '(should (cl-case major-mode (... ...) (... t))) :form '(cond ((memql major-mode ...) (not buffer-read-only)) ((memql major-mode ...) t)) :value value-835)) (ert--signal-should-execution form-description-836)) nil (ert-fail form-description-836)) + (let (form-description-836) (if (unwind-protect (setq value-835 (cond ((memql major-mode '...) (not buffer-read-only)) ((memql major-mode '...) t))) (setq form-description-836 (list '(should (cl-case major-mode ... ...)) :form '(cond (... ...) (... t)) :value value-835)) (ert--signal-should-execution form-description-836)) nil (ert-fail form-description-836))) + (let ((value-835 (gensym "ert-form-evaluation-aborted-"))) (let (form-description-836) (if (unwind-protect (setq value-835 (cond ((memql major-mode ...) (not buffer-read-only)) ((memql major-mode ...) t))) (setq form-description-836 (list '(should ...) :form '(cond ... ...) :value value-835)) (ert--signal-should-execution form-description-836)) nil (ert-fail form-description-836))) value-835) + (progn (racket-tests/call-until-true #'(lambda nil (cond ((memql major-mode '...) (not buffer-read-only)) ((memql major-mode '...) t)))) (let ((value-835 (gensym "ert-form-evaluation-aborted-"))) (let (form-description-836) (if (unwind-protect (setq value-835 (cond (... ...) (... t))) (setq form-description-836 (list '... :form '... :value value-835)) (ert--signal-should-execution form-description-836)) nil (ert-fail form-description-836))) value-835)) + (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-835 (gensym "ert-form-evaluation-aborted-"))) (let (form-description-836) (if (unwind-protect (setq value-835 (cond ... ...)) (setq form-description-836 (list ... :form ... :value value-835)) (ert--signal-should-execution form-description-836)) nil (ert-fail form-description-836))) value-835)) (if (eq major-mode 'prog-mode) nil (racket-run) (progn (racket-tests/call-until-true #'(lambda nil (racket--repl-session-id))) (let* ((fn-837 #'racket--repl-session-id) (args-838 (condition-case err (list) (error ...)))) (let ((value-839 'ert-form-evaluation-aborted-840)) (let (form-description-841) (if (unwind-protect ... ... ...) nil (ert-fail form-description-841))) value-839))) (racket--call-with-repl-buffer #'(lambda nil (let* ((fn-842 ...) (args-843 ...)) (let (...) (let ... ...) value-844)) (racket-repl-exit) (let* ((fn-847 ...) (args-848 ...)) (let (...) (let ... ...) value-849)) (kill-buffer)))) (kill-buffer) (delete-file path)) + #f(lambda () [(edit-mode racket-hash-lang-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-835)) (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-hash-lang-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-835 (gensym "ert-form-evaluation-aborted-"))) (let (form-description-836) (if (unwind-protect ... ... ...) nil (ert-fail form-description-836))) value-835)) (if (eq major-mode 'prog-mode) nil (racket-run) (progn (racket-tests/call-until-true #'(lambda nil ...)) (let* ((fn-837 ...) (args-838 ...)) (let (...) (let ... ...) value-839))) (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-hash-lang-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-835 (gensym "ert-form-evaluation-aborted-"))) (let (form-description-836) (if (unwind-protect ... ... ...) nil (ert-fail form-description-836))) value-835)) (if (eq major-mode 'prog-mode) nil (racket-run) (progn (racket-tests/call-until-true #'(lambda nil ...)) (let* ((fn-837 ...) (args-838 ...)) (let (...) (let ... ...) value-839))) (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-835)) (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-835)) (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 () [t] (message "racket-tests/run") (let ... ...) nil) :most-recent-result #s(ert-test-failed :messages "racket-tests/run\n{racket-back-end-/} killed [2 times]\n" :should-forms (... ... ... ... ...) :duration 2867.199357448 :condition (ert-test-failed ...) :backtrace (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :infos nil) :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/racket-mode-20250324~git.88d82e2/test/racket-tests.el") :result #s(ert-test-failed :messages "racket-tests/run\n{racket-back-end-/} killed [2 times]\n" :should-forms ((... :form ... :value t) (... :form ... :value 4) (... :form ... :value t :explanation ...) (... :form ... :value t :explanation ...) (... :form ... :value nil)) :duration 2867.199357448 :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 ... :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 #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/run :documentation "Start the REPL via a racket-run command." :body #f(lambda () [t] (message "racket-tests/run") (let ((tail ...)) (while tail (let ... ... ...))) nil) :most-recent-result #s(ert-test-failed :messages "racket-tests/run\n{racket-back-end-/} killed [2 times]\n" :should-forms (((should ...) :form (cond ... ...) :value t) ((should ...) :form (racket--repl-session-id) :value 4) ((should ...) :form (racket-tests/see-back "\ntestZ5sWs0.rkt> ") :value t :explanation (actual . "Starting back end...\nREPL session stopped\nStarting back end...\nREPL session stopped\nREPL session stopped\nREPL session stopped\nREPL session stopped\nStarting back end...\nWelcome to Racket v8.16 [cs].\n————— run testZ5sWs0.rkt —————\n42\ntestZ5sWs0.rkt> ")) ((should ...) :form (racket-tests/see-back "REPL session ended\n") :value t :explanation (actual . "Starting back end...\nREPL session stopped\nStarting back end...\nREPL session stopped\nREPL session stopped\nREPL session stopped\nREPL session stopped\nStarting back end...\nWelcome to Racket v8.16 [cs].\n————— run testZ5sWs0.rkt —————\n42\nREPL session ended\n")) ((should ...) :form (cond ... ...) :value nil)) :duration 2867.199357448 :condition (ert-test-failed ((should ...) :form (cond ... ...) :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-835) :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 (...) :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 nil :fun let :args (... ... ...) :flags nil :locals (... ...) :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun while :args (tail ...) :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 (#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-20250324~git.88d82e2/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-20250324~git.88d82e2/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 (cl-case major-mode (... ...) (... t))) :form + (cond ((memql major-mode ...) (not buffer-read-only)) + ((memql major-mode ...) t)) + :value nil)) + FAILED 14/15 racket-tests/run (2867.199357 sec) at test/racket-tests.el:236 +racket-tests/xp +: 0 cpu | 0 real | 0 gc :: '(17 3 (repl-submit "1 \n" ())) +{logger /}: [ debug] racket-mode: '(repl-submit "(cond [(values 1) #t] [else #f])\n" ()): using session ID 3 +{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(18 3 (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 3 +{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(19 3 (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 3 +{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(20 3 (repl-submit "(cond [(values 1) #t] [else #f])\n" ())) +{logger /}: [ debug] racket-mode: '(repl-submit "(exit)\n" ()): using session ID 3 +{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(21 3 (repl-submit "(exit)\n" ())) {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: 36 cpu | 36 real | 0 gc :: '(68 "*" (repl-start 4)) -{logger /}: [ debug] racket-mode: '(run ("/tmp/emacs-home/racket-mode/repl.rkt") () 2048 #t 80 1 medium () ()): using session ID 4 -{lo -{racket-back-end-/} killed - passed 13/15 racket-tests/repl (1122.021157 sec) -racket-tests/run -gger /}: [ debug] racket-mode: '(debug-disable): using session ID 4 -{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(69 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: 85 cpu | 85 real | 4 gc :: '(70 4 (run ("/tmp/emacs-home/racket-mode/repl.rkt") () 2048 #t 80 1 medium () ())) +{logger /}: [ debug] racket-mode: 64 cpu | 64 real | 14 gc :: '(22 "*" (repl-start 4)) +{logger /}: [ debug] racket-mode: '(debug-disable): using session ID 4 +{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(23 4 (debug-disable)) +{logger /}: [ debug] racket-mode: '(run ("/tmp/testZ5sWs0.rkt") ((test) (main)) 2048 #t 80 1 medium () ()): using session ID 4 +{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: 103 cpu | 116 real | 9 gc :: '(24 4 (run ("/tmp/testZ5sWs0.rkt") ((test) (main)) 2048 #t 80 1 medium () ())) {logger /}: [ debug] racket-mode: '(syms): using session ID 4 -{logger /}: [ debug] racket-mode: 14 cpu | 14 real | 0 gc :: '(71 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 :: '(72 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 :: '(73 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 :: '(74 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 :: '(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 \n" ()): using session ID 4 -{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(77 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 :: '(78 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 :: '(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 "(exit)\n" ()): using session ID 4 -{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(81 4 (repl-submit "(exit)\n" ())) -{racket--repl-start}: picked next session id 5 +{logger /}: [ debug] racket-mode: 5 cpu | 7 real | 0 gc :: '(25 4 (syms)) +{logger /}: [ debug] racket-mode: '(repl-exit): using session ID 4 +{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(26 4 (repl-exit)) +{logger /}: [ debug] racket-mode: (remove-session! 4) => sessions: '#hasheq() 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-mo -{racket-back-end-/} killed -de: 35 cpu | 36 real | 0 gc :: '(82 "*" (repl-start 5)) -{logger /}: [ debug] racket-mode: '(debug-disable): using session ID 5 -{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(83 5 (debug-disable)) -{logger /}: [ debug] racket-mode: '(run ("/tmp/test68dKXd.rkt") ((test) (main)) 2048 #t 80 1 medium () ()): using session ID 5 -{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: 116 cpu | 116 real | 32 gc :: '(84 5 (run ("/tmp/test68dKXd.rkt") ((test) (main)) 2048 #t 80 1 medium () ())) -{logger /}: [ debug] racket-mode: '(syms): using session ID 5 -{logger /}: [ debug] racket-mode: 14 cpu | 14 real | 0 gc :: '(85 5 (syms)) -{logger /}: [ debug] racket-mode: '(repl-exit): using session ID 5 -{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(86 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 :: '(87 "*" (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 :: '(88 "*" (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: 42 cpu | 42 real | 6 gc :: '(89 "*" (repl-start 6)) -{logger /}: [ debug] racket-mode: '(debug-disable): using session ID 6 -{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(90 6 (debug-disable)) -{logger /}: [ debug] racket-mode: '(run ("/tmp/test1UAnNr.rkt") ((test) (main)) 2048 #t 80 1 medium () ()): using session ID 6 -{logger /}: [ debug] racket-mode: (set-session! 6 #) => sessions: #hasheq((6 . #(struct:session # # # # # #))) -{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(95 "*" (hash-lang update 4 5 31 0 " ")) -{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(96 "*" (hash-lang update 4 6 32 1 " ")) -{logger /}: [ debug] racket-mode: 8 cpu | 8 real | 0 gc :: '(92 "*" (hash-lang update 4 2 1 0 " \n")) -{logger /}: [ debug] racket-mode: 8 cpu | 8 real | 0 gc :: '(93 "*" (hash-lang update 4 3 1 30 " \n")) -{logger /}: [ debug] racket-mode: 8 cpu | 8 real | 0 gc :: '(94 "*" (hash-lang update 4 4 30 1 "\n")) -{logger /}: [ debug] racket-mode: 8 cpu | 8 real | 0 gc :: '(97 "*" (hash-lang update 4 7 31 2 "")) -{logger /}: [ debug] racket-mode: 9 cpu | 9 real | 0 gc :: '(98 "*" (hash-lang update 4 8 31 0 " \n")) -{logger /}: [ debug] racket-mode: 0 cpu | +{logger /}: [ debug] racket-mode: 1819 cpu | 2322 real | 368 gc :: '(29 "*" (module-names)) +{logger /}: [ debug] racket-mode: 558 cpu | 585 real | 50 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: 597 cpu | 628 real | 53 gc :: total /tmp/testC3jiAr.rkt +{logger /}: [ debug] racket-mode: (cu {racket-back-end-/} killed - passed 14/15 racket-tests/run (2083.433506 sec) -racket-tests/xp + passed 15/15 racket-tests/xp (1218.283796 sec) -{racket-back-end-/} killed - passed 15/15 racket-tests/xp (1055.176076 sec) +Ran 15 tests, 8 results as expected, 4 unexpected, 3 skipped (2025-04-15 09:33:26+1400, 14901.342671 sec) -Ran 15 tests, 12 results as expected, 0 unexpected, 3 skipped (2025-04-13 13:36:26-1200, 12282.189128 sec) +4 unexpected results: + FAILED racket-tests/debugger + FAILED racket-tests/expand-expression + FAILED racket-tests/expand-file-shallow + FAILED racket-tests/run 3 skipped results: SKIPPED racket-tests/indent-speed-1 SKIPPED racket-tests/indent-speed-2 SKIPPED racket-tests/profile - 0 real | 0 gc :: '(100 "*" (hash-lang update 4 10 61 1 "\n")) -{logger /}: [ debug] racket-mode: 9 cpu | 9 real | 0 gc :: '(99 "*" (hash-lang update 4 9 31 31 " \n")) -{logger /}: [ debug] racket-mode: (set-session! 6 #) => sessions: #hasheq((6 . #(struct:session # # # # # #))) -{logger /}: [ debug] racket-mode: 104 cpu | 104 real | 5 gc :: '(91 6 (run ("/tmp/test1UAnNr.rkt") ((test) (main)) 2048 #t 80 1 medium () ())) -{logger /}: [ debug] racket-mode: '(syms): using session ID 6 -{logger /}: [ debug] racket-mode: 15 cpu | 15 real | 0 gc :: '(101 6 (syms)) -{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(105 "*" (hash-lang update 4 14 64 0 "\n")) -{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(109 "*" (hash-lang update 4 18 80 1 " ")) -{logger /}: [ debug] racket-mode: 3 cpu | 3 real | 0 gc :: '(102 "*" (hash-lang update 4 11 62 0 " ")) -{logger /}: [ debug] racket-mode: 4 cpu | 4 real | 0 gc :: '(103 "*" (hash-lang update 4 12 62 2 "42")) -{logger /}: [ debug] racket-mode: 4 cpu | 4 real | 0 gc :: '(104 "*" (hash-lang update 4 13 63 1 "2")) -{logger /}: [ debug] racket-mode: 2 cpu | 2 real | 0 gc :: '(106 "*" (hash-lang update 4 15 64 1 "\n")) -{logger /}: [ debug] racket-mode: 2 cpu | 2 real | 0 gc :: '(107 "*" (hash-lang update 4 16 64 1 "\n")) -{logger /}: [ debug] racket-mode: 2 cpu | 2 real | 0 gc :: '(108 "*" (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 :: '(110 6 (repl-exit)) -{logger /}: [ debug] racket-mode: (remove-session! 6) => sessions: '#hasheq() -{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(111 "*" (hash-lang update 4 19 65 16 "")) -{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(113 "*" (hash-lang update 4 21 83 0 "\n")) -{logger /}: [ debug] racket-mode: 3 cpu | 3 real | 0 gc :: '(112 "*" (hash-lang update 4 20 65 0 " ")) -{logger /}: [ debug] racket-mode: 0 cpu | 0 real | 0 gc :: '(115 "*" (hash-lang update 4 23 83 1 "\n")) -{logger /}: [ debug] racket-mode: 3 cpu | 3 real | 0 gc :: '(114 "*" (hash-lang update 4 22 65 19 " \n")) -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 :: '(116 "*" (hash-lang delete 3)) -{logger /}: [ debug] racket-mode: 1523 cpu | 1681 real | 210 gc :: '(118 "*" (module-names)) -{logger /}: [ debug] racket-mode: 824 cpu | 824 real | 42 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: 887 cpu | 889 real | 52 gc :: total /tmp/testy9kWtP.rkt -{logger /}: [ debug] racket-mode: (current-memory-use) 243166928 -{logger /}: [ debug] racket-mode: 32610 cpu | 32771 real | 6323 gc :: '(117 "*" (check-syntax "/tmp/testy9kWtP.rkt" "#lang racket/base\n(define foobar 42)\nfoobar\n")) -make[1]: Leaving directory '/build/reproducible-path/racket-mode-20250324~git.88d82e2' - 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-20250324~git.88d82e2' -dh_compress -Xusr/share/info/scenario- +rrent-memory-use) 244102536 +{logger /}: [ debug] racket-mode: 32592 cpu | 33208 real | 10952 gc :: '(28 "*" (check-syntax "/tmp/testC3jiAr.rkt" "#lang racket/base\n(define foobar 42)\nfoobar\n")) +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:17: override_dh_elpa_test] Error 25 make[1]: Leaving directory '/build/reproducible-path/racket-mode-20250324~git.88d82e2' - dh_fixperms - dh_missing - dh_installdeb - dh_gencontrol - dh_md5sums - dh_builddeb -dpkg-deb: building package 'elpa-racket-mode-doc' in '../elpa-racket-mode-doc_20250324~git.88d82e2-1_all.deb'. -dpkg-deb: building package 'elpa-racket-mode' in '../elpa-racket-mode_20250324~git.88d82e2-1_all.deb'. - dpkg-genbuildinfo --build=binary -O../racket-mode_20250324~git.88d82e2-1_armhf.buildinfo - dpkg-genchanges --build=binary -O../racket-mode_20250324~git.88d82e2-1_armhf.changes -dpkg-genchanges: info: binary-only upload (no source code included) - dpkg-source --after-build . -dpkg-source: info: using options from racket-mode-20250324~git.88d82e2/debian/source/options: --extend-diff-ignore=(^|/)(doc/racket-mode\.texi)$ -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/21565/tmp/hooks/C01_cleanup starting +debug output: disk usage on i-capture-the-hostname at Mon Apr 14 19:35:55 UTC 2025 +Filesystem Size Used Avail Use% Mounted on +tmpfs 2.0G 0 2.0G 0% /dev/shm + +I: user script /srv/workspace/pbuilder/21565/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/16490 and its subdirectories -I: Current time: Sun Apr 13 13:36:38 -12 2025 -I: pbuilder-time-stamp: 1744594598 +I: removing directory /srv/workspace/pbuilder/21565 and its subdirectories