Diff of the two buildlogs: -- --- b1/build.log 2025-03-01 03:53:23.664518764 +0000 +++ b2/build.log 2025-03-01 03:54:07.782523598 +0000 @@ -1,6 +1,6 @@ I: pbuilder: network access will be disabled during build -I: Current time: Fri Feb 28 15:49:44 -12 2025 -I: pbuilder-time-stamp: 1740800984 +I: Current time: Sat Apr 4 00:16:27 +14 2026 +I: pbuilder-time-stamp: 1775211387 I: Building the build Environment I: extracting base tarball [/var/cache/pbuilder/trixie-reproducible-base.tgz] I: copying local configuration @@ -23,54 +23,86 @@ dpkg-source: info: unpacking emacs-bazel-mode_0.0~git20230919.769b30d-6.debian.tar.xz I: Not using root during the build. I: Installing the build-deps -I: user script /srv/workspace/pbuilder/49862/tmp/hooks/D02_print_environment starting +I: user script /srv/workspace/pbuilder/84221/tmp/hooks/D01_modify_environment starting +debug: Running on ionos6-i386. +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 3 10:16 /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/84221/tmp/hooks/D01_modify_environment finished +I: user script /srv/workspace/pbuilder/84221/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='i386' - DEBIAN_FRONTEND='noninteractive' - DEB_BUILD_OPTIONS='buildinfo=+all reproducible=+all parallel=11 ' - DISTRIBUTION='trixie' - HOME='/root' - HOST_ARCH='i386' + 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]="i686-pc-linux-gnu") + BASH_VERSION='5.2.37(1)-release' + BUILDDIR=/build/reproducible-path + BUILDUSERGECOS='second user,second room,second work-phone,second home-phone,second other' + BUILDUSERNAME=pbuilder2 + BUILD_ARCH=i386 + DEBIAN_FRONTEND=noninteractive + DEB_BUILD_OPTIONS='buildinfo=+all reproducible=+all parallel=21 ' + DIRSTACK=() + DISTRIBUTION=trixie + EUID=0 + FUNCNAME=([0]="Echo" [1]="main") + GROUPS=() + HOME=/root + HOSTNAME=i-capture-the-hostname + HOSTTYPE=i686 + HOST_ARCH=i386 IFS=' ' - INVOCATION_ID='2add2403b1d3488886121c8c89e79900' - LANG='C' - LANGUAGE='en_US:en' - LC_ALL='C' - LD_LIBRARY_PATH='/usr/lib/libeatmydata' - LD_PRELOAD='libeatmydata.so' - 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='49862' - PS1='# ' - PS2='> ' + INVOCATION_ID=17a1640d650e4fdaa2cef3f21a686016 + LANG=C + LANGUAGE=de_CH:de + LC_ALL=C + LD_LIBRARY_PATH=/usr/lib/libeatmydata + LD_PRELOAD=libeatmydata.so + MACHTYPE=i686-pc-linux-gnu + MAIL=/var/mail/root + OPTERR=1 + OPTIND=1 + OSTYPE=linux-gnu + PATH=/usr/sbin:/usr/bin:/sbin:/bin:/usr/games:/i/capture/the/path + PBCURRENTCOMMANDLINEOPERATION=build + PBUILDER_OPERATION=build + PBUILDER_PKGDATADIR=/usr/share/pbuilder + PBUILDER_PKGLIBDIR=/usr/lib/pbuilder + PBUILDER_SYSCONFDIR=/etc + PIPESTATUS=([0]="0") + POSIXLY_CORRECT=y + PPID=84221 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.7CdkAg04/pbuilderrc_j9LB --distribution trixie --hookdir /etc/pbuilder/first-build-hooks --debbuildopts -b --basetgz /var/cache/pbuilder/trixie-reproducible-base.tgz --buildresult /srv/reproducible-results/rbuild-debian/r-b-build.7CdkAg04/b1 --logfile b1/build.log emacs-bazel-mode_0.0~git20230919.769b30d-6.dsc' - SUDO_GID='112' - SUDO_UID='107' - SUDO_USER='jenkins' - TERM='unknown' - TZ='/usr/share/zoneinfo/Etc/GMT+12' - USER='root' - _='/usr/bin/systemd-run' - http_proxy='http://46.16.76.132:3128' + PWD=/ + SHELL=/bin/bash + SHELLOPTS=braceexpand:errexit:hashall:interactive-comments:posix + SHLVL=3 + SUDO_COMMAND='/usr/bin/timeout -k 24.1h 24h /usr/bin/ionice -c 3 /usr/bin/nice -n 11 /usr/bin/unshare --uts -- /usr/sbin/pbuilder --build --configfile /srv/reproducible-results/rbuild-debian/r-b-build.7CdkAg04/pbuilderrc_hmcQ --distribution trixie --hookdir /etc/pbuilder/rebuild-hooks --debbuildopts -b --basetgz /var/cache/pbuilder/trixie-reproducible-base.tgz --buildresult /srv/reproducible-results/rbuild-debian/r-b-build.7CdkAg04/b2 --logfile b2/build.log emacs-bazel-mode_0.0~git20230919.769b30d-6.dsc' + SUDO_GID=112 + SUDO_UID=107 + SUDO_USER=jenkins + TERM=unknown + TZ=/usr/share/zoneinfo/Etc/GMT-14 + UID=0 + USER=root + _='I: set' + http_proxy=http://213.165.73.152:3128 I: uname -a - Linux ionos2-i386 6.1.0-31-amd64 #1 SMP PREEMPT_DYNAMIC Debian 6.1.128-1 (2025-02-07) x86_64 GNU/Linux + Linux i-capture-the-hostname 6.1.0-31-amd64 #1 SMP PREEMPT_DYNAMIC Debian 6.1.128-1 (2025-02-07) x86_64 GNU/Linux I: ls -l /bin - lrwxrwxrwx 1 root root 7 Nov 22 14:40 /bin -> usr/bin -I: user script /srv/workspace/pbuilder/49862/tmp/hooks/D02_print_environment finished + lrwxrwxrwx 1 root root 7 Nov 22 2024 /bin -> usr/bin +I: user script /srv/workspace/pbuilder/84221/tmp/hooks/D02_print_environment finished -> Attempting to satisfy build-dependencies -> Creating pbuilder-satisfydepends-dummy package Package: pbuilder-satisfydepends-dummy @@ -108,7 +140,7 @@ The following packages are RECOMMENDED but will NOT be installed: alsa-topology-conf alsa-ucm-conf curl dbus krb5-locales less libarchive-cpio-perl libcgi-fast-perl libdata-dump-perl libhtml-format-perl libhttp-daemon-perl libio-compress-brotli-perl libldap-common libltdl-dev libmail-sendmail-perl libmailtools-perl libsasl2-modules lynx mailutils openssh-client publicsuffix wget 0 packages upgraded, 117 newly installed, 0 to remove and 0 not upgraded. -Need to get 94.2 MB of archives. After unpacking 341 MB will be used. +Need to get 95.9 MB of archives. After unpacking 348 MB will be used. Writing extended state information... Get: 1 http://deb.debian.org/debian trixie/main i386 netbase all 6.4 [12.8 kB] Get: 2 http://deb.debian.org/debian trixie/main i386 sensible-utils all 0.0.24 [24.8 kB] @@ -182,11 +214,11 @@ Get: 70 http://deb.debian.org/debian trixie/main i386 libhtml-form-perl all 6.12-1 [32.3 kB] Get: 71 http://deb.debian.org/debian trixie/main i386 libwww-mechanize-perl all 2.19-1 [114 kB] Get: 72 http://deb.debian.org/debian trixie/main i386 libdebian-source-perl all 0.127 [53.2 kB] -Get: 73 http://deb.debian.org/debian trixie/main i386 emacs-el all 1:29.4+1-6 [18.8 MB] +Get: 73 http://deb.debian.org/debian trixie/main i386 emacs-el all 1:30.1+1-3 [19.5 MB] Get: 74 http://deb.debian.org/debian trixie/main i386 emacsen-common all 3.0.5 [12.3 kB] Get: 75 http://deb.debian.org/debian trixie/main i386 install-info i386 7.1.1-1+b1 [167 kB] -Get: 76 http://deb.debian.org/debian trixie/main i386 emacs-common all 1:29.4+1-6 [15.2 MB] -Get: 77 http://deb.debian.org/debian trixie/main i386 emacs-bin-common i386 1:29.4+1-6 [96.1 kB] +Get: 76 http://deb.debian.org/debian trixie/main i386 emacs-common all 1:30.1+1-3 [15.8 MB] +Get: 77 http://deb.debian.org/debian trixie/main i386 emacs-bin-common i386 1:30.1+1-3 [96.8 kB] Get: 78 http://deb.debian.org/debian trixie/main i386 libasound2-data all 1.2.13-1 [21.1 kB] Get: 79 http://deb.debian.org/debian trixie/main i386 libasound2t64 i386 1.2.13-1+b1 [399 kB] Get: 80 http://deb.debian.org/debian trixie/main i386 libdbus-1-3 i386 1.16.0-1 [190 kB] @@ -199,7 +231,7 @@ Get: 87 http://deb.debian.org/debian trixie/main i386 libgpm2 i386 1.20.7-11+b2 [14.9 kB] Get: 88 http://deb.debian.org/debian trixie/main i386 liblcms2-2 i386 2.16-2 [171 kB] Get: 89 http://deb.debian.org/debian trixie/main i386 libtree-sitter0 i386 0.20.8-2+b2 [92.7 kB] -Get: 90 http://deb.debian.org/debian trixie/main i386 emacs-nox i386 1:29.4+1-6 [6949 kB] +Get: 90 http://deb.debian.org/debian trixie/main i386 emacs-nox i386 1:30.1+1-3 [7444 kB] Get: 91 http://deb.debian.org/debian trixie/main i386 libarray-utils-perl all 0.5-3 [6184 B] Get: 92 http://deb.debian.org/debian trixie/main i386 libconfig-tiny-perl all 2.30-1 [18.9 kB] Get: 93 http://deb.debian.org/debian trixie/main i386 libnumber-compare-perl all 0.03-3 [6332 B] @@ -227,7 +259,7 @@ Get: 115 http://deb.debian.org/debian trixie/main i386 libexpat1 i386 2.6.4-1 [107 kB] Get: 116 http://deb.debian.org/debian trixie/main i386 git-man all 1:2.47.2-0.1 [2205 kB] Get: 117 http://deb.debian.org/debian trixie/main i386 git i386 1:2.47.2-0.1 [9337 kB] -Fetched 94.2 MB in 3s (34.0 MB/s) +Fetched 95.9 MB in 2s (47.1 MB/s) Preconfiguring packages ... Selecting previously unselected package netbase. (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 ... 19789 files and directories currently installed.) @@ -447,8 +479,8 @@ Preparing to unpack .../071-libdebian-source-perl_0.127_all.deb ... Unpacking libdebian-source-perl (0.127) ... Selecting previously unselected package emacs-el. -Preparing to unpack .../072-emacs-el_1%3a29.4+1-6_all.deb ... -Unpacking emacs-el (1:29.4+1-6) ... +Preparing to unpack .../072-emacs-el_1%3a30.1+1-3_all.deb ... +Unpacking emacs-el (1:30.1+1-3) ... Selecting previously unselected package emacsen-common. Preparing to unpack .../073-emacsen-common_3.0.5_all.deb ... Unpacking emacsen-common (3.0.5) ... @@ -456,11 +488,11 @@ Preparing to unpack .../074-install-info_7.1.1-1+b1_i386.deb ... Unpacking install-info (7.1.1-1+b1) ... Selecting previously unselected package emacs-common. -Preparing to unpack .../075-emacs-common_1%3a29.4+1-6_all.deb ... -Unpacking emacs-common (1:29.4+1-6) ... +Preparing to unpack .../075-emacs-common_1%3a30.1+1-3_all.deb ... +Unpacking emacs-common (1:30.1+1-3) ... Selecting previously unselected package emacs-bin-common. -Preparing to unpack .../076-emacs-bin-common_1%3a29.4+1-6_i386.deb ... -Unpacking emacs-bin-common (1:29.4+1-6) ... +Preparing to unpack .../076-emacs-bin-common_1%3a30.1+1-3_i386.deb ... +Unpacking emacs-bin-common (1:30.1+1-3) ... Selecting previously unselected package libasound2-data. Preparing to unpack .../077-libasound2-data_1.2.13-1_all.deb ... Unpacking libasound2-data (1.2.13-1) ... @@ -498,8 +530,8 @@ Preparing to unpack .../088-libtree-sitter0_0.20.8-2+b2_i386.deb ... Unpacking libtree-sitter0:i386 (0.20.8-2+b2) ... Selecting previously unselected package emacs-nox. -Preparing to unpack .../089-emacs-nox_1%3a29.4+1-6_i386.deb ... -Unpacking emacs-nox (1:29.4+1-6) ... +Preparing to unpack .../089-emacs-nox_1%3a30.1+1-3_i386.deb ... +Unpacking emacs-nox (1:30.1+1-3) ... Selecting previously unselected package libarray-utils-perl. Preparing to unpack .../090-libarray-utils-perl_0.5-3_all.deb ... Unpacking libarray-utils-perl (0.5-3) ... @@ -692,23 +724,26 @@ Setting up libcurl3t64-gnutls:i386 (8.12.1-2) ... Setting up debhelper (13.24.1) ... Setting up git (1:2.47.2-0.1) ... -Setting up emacs-el (1:29.4+1-6) ... -Setting up emacs-common (1:29.4+1-6) ... +Setting up emacs-el (1:30.1+1-3) ... +Setting up emacs-common (1:30.1+1-3) ... Setting up liblwp-protocol-https-perl (6.14-1) ... Setting up libwww-perl (6.77-1) ... Setting up libparse-debcontrol-perl (2.005-6) ... Setting up libwww-mechanize-perl (2.19-1) ... Setting up libdebian-source-perl (0.127) ... -Setting up emacs-bin-common (1:29.4+1-6) ... +Setting up emacs-bin-common (1:30.1+1-3) ... update-alternatives: using /usr/bin/ctags.emacs to provide /usr/bin/ctags (ctags) in auto mode update-alternatives: using /usr/bin/ebrowse.emacs to provide /usr/bin/ebrowse (ebrowse) in auto mode update-alternatives: using /usr/bin/etags.emacs to provide /usr/bin/etags (etags) in auto mode -Setting up emacs-nox (1:29.4+1-6) ... +Setting up emacs-nox (1:30.1+1-3) ... update-alternatives: using /usr/bin/emacs-nox to provide /usr/bin/emacs (emacs) in auto mode update-alternatives: using /usr/bin/emacs to provide /usr/bin/editor (editor) in auto mode 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 + +In toplevel form: +usr/share/emacs/site-lisp/debian-startup.el:1:1: Warning: file has no `lexical-binding' directive on its first line Setting up dh-elpa (2.1.5) ... Processing triggers for libc-bin (2.40-7) ... Processing triggers for ca-certificates (20241223) ... @@ -725,7 +760,11 @@ Building tag database... -> Finished parsing the build-deps I: Building the package -I: Running cd /build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/ && 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 > ../emacs-bazel-mode_0.0~git20230919.769b30d-6_source.changes +I: user script /srv/workspace/pbuilder/84221/tmp/hooks/A99_set_merged_usr starting +Not re-configuring usrmerge for trixie +I: user script /srv/workspace/pbuilder/84221/tmp/hooks/A99_set_merged_usr finished +hostname: Name or service not known +I: Running cd /build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/ && 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 > ../emacs-bazel-mode_0.0~git20230919.769b30d-6_source.changes dpkg-buildpackage: info: source package emacs-bazel-mode dpkg-buildpackage: info: source version 0.0~git20230919.769b30d-6 dpkg-buildpackage: info: source distribution unstable @@ -747,151 +786,1061 @@ make[1]: Leaving directory '/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d' 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 . --eval "(progn (setenv \"TEST_SRCDIR\" \".\") (setenv \"TEST_WORKSPACE\" \".\"))" -l test.el --eval \(ert-run-tests-batch-and-exit\) "'(not (or \"bazel--target-completion-table/root-package\" \"bazel--target-completion-table/subpackage\" \"bazel--target-completion-table/workspace\" \"bazel-build-mode/beginning-of-defun\" \"bazel-build-mode/end-of-defun\" \"bazel-build-mode/imenu\" \"bazel-buildifier/failure\" \"bazel-completion-at-point\" \"bazel-fix-visibility\" \"bazel-insert-http-archive\" \"bazel-insert-http-archive/no-directory\" \"bazel-insert-http-archive/no-unique-prefix\" \"bazel-mode-flymake\" \"bazel-mode/compile\" \"bazel-mode/ffap\" \"bazel-mode/indent-region\" \"bazel-mode/speedbar\" \"bazel-mode/which-function\" \"bazel-mode/xref\" \"bazel-test-at-point\" \"bazel-test-at-point/c++-mode\" \"bazel-test-at-point/go-mode\" \"bazel-test-at-point/python-mode\" \"bazel-test/completion\" \"bazel-test/coverage\" \"bazel/project\" \"bazel/project-files\" \"bazelrc-ffap\"))" -Running 46 tests (2025-03-01 03:52:48+0000, selector `t') +Running 46 tests (2026-04-03 10:16:58+0000, selector `t') Can't guess python-indent-offset, using defaults: 4 Tangled 4 code blocks from target-completion-root.org - passed 1/46 bazel--target-completion-table/root-package (4.211482 sec) +Test bazel--target-completion-table/root-package backtrace: + signal(ert-test-failed (((should (equal (try-completion string table) try)) :form (equal nil "") :value nil :explanation (different-types nil "")))) + ert-fail(((should (equal (try-completion string table) try)) :form (equal nil "") :value nil :explanation (different-types nil ""))) + (if (unwind-protect (setq value-450 (apply fn-448 args-449)) (setq form-description-452 (nconc (list '(should (equal ... try))) (list :form (cons fn-448 args-449)) (if (eql value-450 'ert-form-evaluation-aborted-451) nil (list :value value-450)) (if (eql value-450 'ert-form-evaluation-aborted-451) nil (let* ((-explainer- ...)) (if -explainer- (list :explanation ...) nil))))) (ert--signal-should-execution form-description-452)) nil (ert-fail form-description-452)) + (let (form-description-452) (if (unwind-protect (setq value-450 (apply fn-448 args-449)) (setq form-description-452 (nconc (list '(should ...)) (list :form (cons fn-448 args-449)) (if (eql value-450 'ert-form-evaluation-aborted-451) nil (list :value value-450)) (if (eql value-450 'ert-form-evaluation-aborted-451) nil (let* (...) (if -explainer- ... nil))))) (ert--signal-should-execution form-description-452)) nil (ert-fail form-description-452))) + (let ((value-450 'ert-form-evaluation-aborted-451)) (let (form-description-452) (if (unwind-protect (setq value-450 (apply fn-448 args-449)) (setq form-description-452 (nconc (list '...) (list :form (cons fn-448 args-449)) (if (eql value-450 ...) nil (list :value value-450)) (if (eql value-450 ...) nil (let* ... ...)))) (ert--signal-should-execution form-description-452)) nil (ert-fail form-description-452))) value-450) + (let* ((fn-448 #'equal) (args-449 (condition-case err (list (try-completion string table) try) (error (progn (setq fn-448 #'signal) (list (car err) (cdr err))))))) (let ((value-450 'ert-form-evaluation-aborted-451)) (let (form-description-452) (if (unwind-protect (setq value-450 (apply fn-448 args-449)) (setq form-description-452 (nconc (list ...) (list :form ...) (if ... nil ...) (if ... nil ...))) (ert--signal-should-execution form-description-452)) nil (ert-fail form-description-452))) value-450)) + (let ((ert--infos (cons (cons "Input: " (prin1-to-string string)) ert--infos))) (let* ((fn-448 #'equal) (args-449 (condition-case err (list (try-completion string table) try) (error (progn (setq fn-448 ...) (list ... ...)))))) (let ((value-450 'ert-form-evaluation-aborted-451)) (let (form-description-452) (if (unwind-protect (setq value-450 (apply fn-448 args-449)) (setq form-description-452 (nconc ... ... ... ...)) (ert--signal-should-execution form-description-452)) nil (ert-fail form-description-452))) value-450)) (let* ((fn-453 #'equal) (args-454 (condition-case err (list (all-completions string table) all) (error (progn (setq fn-453 ...) (list ... ...)))))) (let ((value-455 'ert-form-evaluation-aborted-456)) (let (form-description-457) (if (unwind-protect (setq value-455 (apply fn-453 args-454)) (setq form-description-457 (nconc ... ... ... ...)) (ert--signal-should-execution form-description-457)) nil (ert-fail form-description-457))) value-455)) (let* ((fn-458 #'eq) (args-459 (condition-case err (list (test-completion string table) test) (error (progn (setq fn-458 ...) (list ... ...)))))) (let ((value-460 'ert-form-evaluation-aborted-461)) (let (form-description-462) (if (unwind-protect (setq value-460 (apply fn-458 args-459)) (setq form-description-462 (nconc ... ... ... ...)) (ert--signal-should-execution form-description-462)) nil (ert-fail form-description-462))) value-460)) (let* ((fn-463 #'equal) (args-464 (condition-case err (list (completion-boundaries string table nil "suffix") (cons bound 6)) (error (progn (setq fn-463 ...) (list ... ...)))))) (let ((value-465 'ert-form-evaluation-aborted-466)) (let (form-description-467) (if (unwind-protect (setq value-465 (apply fn-463 args-464)) (setq form-description-467 (nconc ... ... ... ...)) (ert--signal-should-execution form-description-467)) nil (ert-fail form-description-467))) value-465))) + (let* ((default-directory dir) (table (bazel--target-completion-table pattern nil))) (let ((ert--infos (cons (cons "Input: " (prin1-to-string string)) ert--infos))) (let* ((fn-448 #'equal) (args-449 (condition-case err (list (try-completion string table) try) (error (progn ... ...))))) (let ((value-450 'ert-form-evaluation-aborted-451)) (let (form-description-452) (if (unwind-protect (setq value-450 ...) (setq form-description-452 ...) (ert--signal-should-execution form-description-452)) nil (ert-fail form-description-452))) value-450)) (let* ((fn-453 #'equal) (args-454 (condition-case err (list (all-completions string table) all) (error (progn ... ...))))) (let ((value-455 'ert-form-evaluation-aborted-456)) (let (form-description-457) (if (unwind-protect (setq value-455 ...) (setq form-description-457 ...) (ert--signal-should-execution form-description-457)) nil (ert-fail form-description-457))) value-455)) (let* ((fn-458 #'eq) (args-459 (condition-case err (list (test-completion string table) test) (error (progn ... ...))))) (let ((value-460 'ert-form-evaluation-aborted-461)) (let (form-description-462) (if (unwind-protect (setq value-460 ...) (setq form-description-462 ...) (ert--signal-should-execution form-description-462)) nil (ert-fail form-description-462))) value-460)) (let* ((fn-463 #'equal) (args-464 (condition-case err (list (completion-boundaries string table nil "suffix") (cons bound 6)) (error (progn ... ...))))) (let ((value-465 'ert-form-evaluation-aborted-466)) (let (form-description-467) (if (unwind-protect (setq value-465 ...) (setq form-description-467 ...) (ert--signal-should-execution form-description-467)) nil (ert-fail form-description-467))) value-465)))) + (let ((ert--infos (cons (cons "Pattern completion: " (if pattern "yes" "no")) ert--infos))) (let* ((default-directory dir) (table (bazel--target-completion-table pattern nil))) (let ((ert--infos (cons (cons "Input: " (prin1-to-string string)) ert--infos))) (let* ((fn-448 #'equal) (args-449 (condition-case err (list ... try) (error ...)))) (let ((value-450 'ert-form-evaluation-aborted-451)) (let (form-description-452) (if (unwind-protect ... ... ...) nil (ert-fail form-description-452))) value-450)) (let* ((fn-453 #'equal) (args-454 (condition-case err (list ... all) (error ...)))) (let ((value-455 'ert-form-evaluation-aborted-456)) (let (form-description-457) (if (unwind-protect ... ... ...) nil (ert-fail form-description-457))) value-455)) (let* ((fn-458 #'eq) (args-459 (condition-case err (list ... test) (error ...)))) (let ((value-460 'ert-form-evaluation-aborted-461)) (let (form-description-462) (if (unwind-protect ... ... ...) nil (ert-fail form-description-462))) value-460)) (let* ((fn-463 #'equal) (args-464 (condition-case err (list ... ...) (error ...)))) (let ((value-465 'ert-form-evaluation-aborted-466)) (let (form-description-467) (if (unwind-protect ... ... ...) nil (ert-fail form-description-467))) value-465))))) + (let ((pattern (car tail))) (let ((ert--infos (cons (cons "Pattern completion: " (if pattern "yes" "no")) ert--infos))) (let* ((default-directory dir) (table (bazel--target-completion-table pattern nil))) (let ((ert--infos (cons (cons "Input: " ...) ert--infos))) (let* ((fn-448 #'equal) (args-449 (condition-case err ... ...))) (let ((value-450 ...)) (let (form-description-452) (if ... nil ...)) value-450)) (let* ((fn-453 #'equal) (args-454 (condition-case err ... ...))) (let ((value-455 ...)) (let (form-description-457) (if ... nil ...)) value-455)) (let* ((fn-458 #'eq) (args-459 (condition-case err ... ...))) (let ((value-460 ...)) (let (form-description-462) (if ... nil ...)) value-460)) (let* ((fn-463 #'equal) (args-464 (condition-case err ... ...))) (let ((value-465 ...)) (let (form-description-467) (if ... nil ...)) value-465))))) (setq tail (cdr tail))) + (while tail (let ((pattern (car tail))) (let ((ert--infos (cons (cons "Pattern completion: " (if pattern "yes" "no")) ert--infos))) (let* ((default-directory dir) (table (bazel--target-completion-table pattern nil))) (let ((ert--infos (cons ... ert--infos))) (let* ((fn-448 ...) (args-449 ...)) (let (...) (let ... ...) value-450)) (let* ((fn-453 ...) (args-454 ...)) (let (...) (let ... ...) value-455)) (let* ((fn-458 ...) (args-459 ...)) (let (...) (let ... ...) value-460)) (let* ((fn-463 ...) (args-464 ...)) (let (...) (let ... ...) value-465))))) (setq tail (cdr tail)))) + (let ((tail (if (eq pattern '*) '(nil t) (list pattern)))) (while tail (let ((pattern (car tail))) (let ((ert--infos (cons (cons "Pattern completion: " ...) ert--infos))) (let* ((default-directory dir) (table (bazel--target-completion-table pattern nil))) (let ((ert--infos ...)) (let* (... ...) (let ... ... value-450)) (let* (... ...) (let ... ... value-455)) (let* (... ...) (let ... ... value-460)) (let* (... ...) (let ... ... value-465))))) (setq tail (cdr tail))))) + (let ((string x436) (pattern x438) (try x440) (all x442) (test x444) (bound x446)) (let ((tail (if (eq pattern '*) '(nil t) (list pattern)))) (while tail (let ((pattern (car tail))) (let ((ert--infos (cons ... ert--infos))) (let* ((default-directory dir) (table ...)) (let (...) (let* ... ...) (let* ... ...) (let* ... ...) (let* ... ...)))) (setq tail (cdr tail)))))) + (progn (ignore (null x447)) (let ((string x436) (pattern x438) (try x440) (all x442) (test x444) (bound x446)) (let ((tail (if (eq pattern '*) '(nil t) (list pattern)))) (while tail (let ((pattern (car tail))) (let ((ert--infos ...)) (let* (... ...) (let ... ... ... ... ...))) (setq tail (cdr tail))))))) + (let* ((x446 (car-safe x445)) (x447 (cdr-safe x445))) (progn (ignore (null x447)) (let ((string x436) (pattern x438) (try x440) (all x442) (test x444) (bound x446)) (let ((tail (if (eq pattern ...) '... (list pattern)))) (while tail (let ((pattern ...)) (let (...) (let* ... ...)) (setq tail (cdr tail)))))))) + (progn (ignore (consp x445)) (let* ((x446 (car-safe x445)) (x447 (cdr-safe x445))) (progn (ignore (null x447)) (let ((string x436) (pattern x438) (try x440) (all x442) (test x444) (bound x446)) (let ((tail (if ... ... ...))) (while tail (let (...) (let ... ...) (setq tail ...)))))))) + (let* ((x444 (car-safe x443)) (x445 (cdr-safe x443))) (progn (ignore (consp x445)) (let* ((x446 (car-safe x445)) (x447 (cdr-safe x445))) (progn (ignore (null x447)) (let ((string x436) (pattern x438) (try x440) (all x442) (test x444) (bound x446)) (let ((tail ...)) (while tail (let ... ... ...)))))))) + (progn (ignore (consp x443)) (let* ((x444 (car-safe x443)) (x445 (cdr-safe x443))) (progn (ignore (consp x445)) (let* ((x446 (car-safe x445)) (x447 (cdr-safe x445))) (progn (ignore (null x447)) (let ((string x436) (pattern x438) (try x440) (all x442) (test x444) (bound x446)) (let (...) (while tail ...)))))))) + (let* ((x442 (car-safe x441)) (x443 (cdr-safe x441))) (progn (ignore (consp x443)) (let* ((x444 (car-safe x443)) (x445 (cdr-safe x443))) (progn (ignore (consp x445)) (let* ((x446 (car-safe x445)) (x447 (cdr-safe x445))) (progn (ignore (null x447)) (let (... ... ... ... ... ...) (let ... ...)))))))) + (progn (ignore (consp x441)) (let* ((x442 (car-safe x441)) (x443 (cdr-safe x441))) (progn (ignore (consp x443)) (let* ((x444 (car-safe x443)) (x445 (cdr-safe x443))) (progn (ignore (consp x445)) (let* ((x446 ...) (x447 ...)) (progn (ignore ...) (let ... ...)))))))) + (let* ((x440 (car-safe x439)) (x441 (cdr-safe x439))) (progn (ignore (consp x441)) (let* ((x442 (car-safe x441)) (x443 (cdr-safe x441))) (progn (ignore (consp x443)) (let* ((x444 (car-safe x443)) (x445 (cdr-safe x443))) (progn (ignore (consp x445)) (let* (... ...) (progn ... ...)))))))) + (progn (ignore (consp x439)) (let* ((x440 (car-safe x439)) (x441 (cdr-safe x439))) (progn (ignore (consp x441)) (let* ((x442 (car-safe x441)) (x443 (cdr-safe x441))) (progn (ignore (consp x443)) (let* ((x444 ...) (x445 ...)) (progn (ignore ...) (let* ... ...)))))))) + (let* ((x438 (car-safe x437)) (x439 (cdr-safe x437))) (progn (ignore (consp x439)) (let* ((x440 (car-safe x439)) (x441 (cdr-safe x439))) (progn (ignore (consp x441)) (let* ((x442 (car-safe x441)) (x443 (cdr-safe x441))) (progn (ignore (consp x443)) (let* (... ...) (progn ... ...)))))))) + (progn (ignore (consp x437)) (let* ((x438 (car-safe x437)) (x439 (cdr-safe x437))) (progn (ignore (consp x439)) (let* ((x440 (car-safe x439)) (x441 (cdr-safe x439))) (progn (ignore (consp x441)) (let* ((x442 ...) (x443 ...)) (progn (ignore ...) (let* ... ...)))))))) + (let* ((x436 (car-safe x435)) (x437 (cdr-safe x435))) (progn (ignore (consp x437)) (let* ((x438 (car-safe x437)) (x439 (cdr-safe x437))) (progn (ignore (consp x439)) (let* ((x440 (car-safe x439)) (x441 (cdr-safe x439))) (progn (ignore (consp x441)) (let* (... ...) (progn ... ...)))))))) + (progn (ignore (consp x435)) (let* ((x436 (car-safe x435)) (x437 (cdr-safe x435))) (progn (ignore (consp x437)) (let* ((x438 (car-safe x437)) (x439 (cdr-safe x437))) (progn (ignore (consp x439)) (let* ((x440 ...) (x441 ...)) (progn (ignore ...) (let* ... ...)))))))) + (let ((x435 (car tail))) (progn (ignore (consp x435)) (let* ((x436 (car-safe x435)) (x437 (cdr-safe x435))) (progn (ignore (consp x437)) (let* ((x438 (car-safe x437)) (x439 (cdr-safe x437))) (progn (ignore (consp x439)) (let* (... ...) (progn ... ...))))))) (setq tail (cdr tail))) + (while tail (let ((x435 (car tail))) (progn (ignore (consp x435)) (let* ((x436 (car-safe x435)) (x437 (cdr-safe x435))) (progn (ignore (consp x437)) (let* ((x438 ...) (x439 ...)) (progn (ignore ...) (let* ... ...)))))) (setq tail (cdr tail)))) + (let ((tail '(("" nil "" ("test" "foo_test" "foo_test.py" "test.cc" "//" "@") nil 0) ("" t "" ("test" "foo_test" ":all" ":all-targets" ":*" "..." "//" "@") nil 0) ("te" nil "test" ("test" "test.cc") nil 0) ("te" t "test" ("test") nil 0) ("test" nil "test" ("test" "test.cc") t 0) ("test" t t ("test") t 0) ("test.c" nil "test.cc" ("test.cc") nil 0) ("test.c" t nil nil nil 0) ("a" * nil nil nil 0) (":" t ":" ("test" "foo_test" "all" "all-targets" "*") nil 1) (":" nil ":" ("test" "foo_test" "foo_test.py" "test.cc") nil 1) (":te" nil ":test" ("test" "test.cc") nil 1) (":te" t ":test" ("test") nil 1) (":test" nil ":test" ("test" "test.cc") t 1) (":test" t t ("test") t 1) (":a" nil nil nil nil 1) (":a" t ":all" ("all" "all-targets") nil 1) (":all" nil nil nil nil 1) (":all" t ":all" ("all" "all-targets") t 1) (":all-targets" nil nil nil nil 1) (":all-targets" t t ("all-targets") t 1) (":foo/bar" * nil nil nil 1) ("package/" * nil nil nil 0) ("package:" nil nil nil nil 0) ("package:" t nil nil nil 8) ("@" * "@//" ("//") nil 1) ("@w" * nil nil nil 1) ("/" * "//" ("//") nil 0) ("//" nil "//:" (":") nil 2) ("//" t "//" (":" "...") nil 2) ("//:" nil "//:" ("test" "foo_test" "foo_test.py" "test.cc") nil 3) ("//:" t "//:" ("test" "foo_test" "all" "all-targets" "*") nil 3) ("//:te" nil "//:test" ("test" "test.cc") nil 3) ("//:te" t "//:test" ("test") nil 3) ("//:test" nil "//:test" ("test" "test.cc") t 3) ("//:test" t t ("test") t 3) ("//:a" nil nil nil nil 3) ("//:a" t "//:all" ("all" "all-targets") nil 3) ("//:all" nil nil nil nil 3) ("//:all" t "//:all" ("all" "all-targets") t 3) ("//:all-targets" nil nil nil nil 3) ("//:all-targets" t t ("all-targets") t 3) ("//:*" nil nil nil nil 3) ("//:*" t t ("*") t 3) ("//pack" * nil nil nil 2) ("//package/" * nil nil nil 10) ("//package:" * nil nil nil 10) ("//." nil nil nil nil 0) ("//." t "//..." ("...") nil 2) ("//..." nil nil nil nil 0) ...))) (while tail (let ((x435 (car tail))) (progn (ignore (consp x435)) (let* ((x436 (car-safe x435)) (x437 (cdr-safe x435))) (progn (ignore (consp x437)) (let* (... ...) (progn ... ...))))) (setq tail (cdr tail))))) + (let ((dir (file-name-as-directory directory))) (make-symbolic-link dir (expand-file-name "bazel-out" dir)) (let ((tail '(("" nil "" ("test" "foo_test" "foo_test.py" "test.cc" "//" "@") nil 0) ("" t "" ("test" "foo_test" ":all" ":all-targets" ":*" "..." "//" "@") nil 0) ("te" nil "test" ("test" "test.cc") nil 0) ("te" t "test" ("test") nil 0) ("test" nil "test" ("test" "test.cc") t 0) ("test" t t ("test") t 0) ("test.c" nil "test.cc" ("test.cc") nil 0) ("test.c" t nil nil nil 0) ("a" * nil nil nil 0) (":" t ":" ("test" "foo_test" "all" "all-targets" "*") nil 1) (":" nil ":" ("test" "foo_test" "foo_test.py" "test.cc") nil 1) (":te" nil ":test" ("test" "test.cc") nil 1) (":te" t ":test" ("test") nil 1) (":test" nil ":test" ("test" "test.cc") t 1) (":test" t t ("test") t 1) (":a" nil nil nil nil 1) (":a" t ":all" ("all" "all-targets") nil 1) (":all" nil nil nil nil 1) (":all" t ":all" ("all" "all-targets") t 1) (":all-targets" nil nil nil nil 1) (":all-targets" t t ("all-targets") t 1) (":foo/bar" * nil nil nil 1) ("package/" * nil nil nil 0) ("package:" nil nil nil nil 0) ("package:" t nil nil nil 8) ("@" * "@//" ("//") nil 1) ("@w" * nil nil nil 1) ("/" * "//" ("//") nil 0) ("//" nil "//:" (":") nil 2) ("//" t "//" (":" "...") nil 2) ("//:" nil "//:" ("test" "foo_test" "foo_test.py" "test.cc") nil 3) ("//:" t "//:" ("test" "foo_test" "all" "all-targets" "*") nil 3) ("//:te" nil "//:test" ("test" "test.cc") nil 3) ("//:te" t "//:test" ("test") nil 3) ("//:test" nil "//:test" ("test" "test.cc") t 3) ("//:test" t t ("test") t 3) ("//:a" nil nil nil nil 3) ("//:a" t "//:all" ("all" "all-targets") nil 3) ("//:all" nil nil nil nil 3) ("//:all" t "//:all" ("all" "all-targets") t 3) ("//:all-targets" nil nil nil nil 3) ("//:all-targets" t t ("all-targets") t 3) ("//:*" nil nil nil nil 3) ("//:*" t t ("*") t 3) ("//pack" * nil nil nil 2) ("//package/" * nil nil nil 10) ("//package:" * nil nil nil 10) ("//." nil nil nil nil 0) ("//." t "//..." ("...") nil 2) ("//..." nil nil nil nil 0) ...))) (while tail (let ((x435 (car tail))) (progn (ignore (consp x435)) (let* ((x436 ...) (x437 ...)) (progn (ignore ...) (let* ... ...)))) (setq tail (cdr tail))))) (let ((tail '(("" nil "" ("test" "foo_test" ":all" ":all-targets" ":*" "..." "//" "@") nil 0) ("" t "" ("foo_test" ":all" ":all-targets" ":*" "..." "//" "@") nil 0) ("te" nil "test" ("test") nil 0) ("te" t nil nil nil 0) ("fo" * "foo_test" ("foo_test") nil 0) ("a" * nil nil nil 0) (":" nil ":" ("test" "foo_test" "all" "all-targets" "*") nil 1) (":" t ":" ("foo_test" "all" "all-targets" "*") nil 1) (":f" * ":foo_test" ("foo_test") nil 1) (":te" nil ":test" ("test") nil 1) (":te" t nil nil nil 1) (":test" nil t ("test") t 1) (":test" t nil nil nil 1) (":a" * ":all" ("all" "all-targets") nil 1)))) (while tail (let ((x468 (car tail))) (progn (ignore (consp x468)) (let* ((x469 ...) (x470 ...)) (progn (ignore ...) (let* ... ...)))) (setq tail (cdr tail)))))) + (prog1 (let ((dir (file-name-as-directory directory))) (make-symbolic-link dir (expand-file-name "bazel-out" dir)) (let ((tail '(("" nil "" ... nil 0) ("" t "" ... nil 0) ("te" nil "test" ... nil 0) ("te" t "test" ... nil 0) ("test" nil "test" ... t 0) ("test" t t ... t 0) ("test.c" nil "test.cc" ... nil 0) ("test.c" t nil nil nil 0) ("a" * nil nil nil 0) (":" t ":" ... nil 1) (":" nil ":" ... nil 1) (":te" nil ":test" ... nil 1) (":te" t ":test" ... nil 1) (":test" nil ":test" ... t 1) (":test" t t ... t 1) (":a" nil nil nil nil 1) (":a" t ":all" ... nil 1) (":all" nil nil nil nil 1) (":all" t ":all" ... t 1) (":all-targets" nil nil nil nil 1) (":all-targets" t t ... t 1) (":foo/bar" * nil nil nil 1) ("package/" * nil nil nil 0) ("package:" nil nil nil nil 0) ("package:" t nil nil nil 8) ("@" * "@//" ... nil 1) ("@w" * nil nil nil 1) ("/" * "//" ... nil 0) ("//" nil "//:" ... nil 2) ("//" t "//" ... nil 2) ("//:" nil "//:" ... nil 3) ("//:" t "//:" ... nil 3) ("//:te" nil "//:test" ... nil 3) ("//:te" t "//:test" ... nil 3) ("//:test" nil "//:test" ... t 3) ("//:test" t t ... t 3) ("//:a" nil nil nil nil 3) ("//:a" t "//:all" ... nil 3) ("//:all" nil nil nil nil 3) ("//:all" t "//:all" ... t 3) ("//:all-targets" nil nil nil nil 3) ("//:all-targets" t t ... t 3) ("//:*" nil nil nil nil 3) ("//:*" t t ... t 3) ("//pack" * nil nil nil 2) ("//package/" * nil nil nil 10) ("//package:" * nil nil nil 10) ("//." nil nil nil nil 0) ("//." t "//..." ... nil 2) ("//..." nil nil nil nil 0) ...))) (while tail (let ((x435 (car tail))) (progn (ignore (consp x435)) (let* (... ...) (progn ... ...))) (setq tail (cdr tail))))) (let ((tail '(("" nil "" ... nil 0) ("" t "" ... nil 0) ("te" nil "test" ... nil 0) ("te" t nil nil nil 0) ("fo" * "foo_test" ... nil 0) ("a" * nil nil nil 0) (":" nil ":" ... nil 1) (":" t ":" ... nil 1) (":f" * ":foo_test" ... nil 1) (":te" nil ":test" ... nil 1) (":te" t nil nil nil 1) (":test" nil t ... t 1) (":test" t nil nil nil 1) (":a" * ":all" ... nil 1)))) (while tail (let ((x468 (car tail))) (progn (ignore (consp x468)) (let* (... ...) (progn ... ...))) (setq tail (cdr tail)))))) (delete-directory directory :recursive)) + (progn (let* ((file (and t "target-completion-root.org"))) (if file (bazel-test--tangle directory file) nil)) (prog1 (let ((dir (file-name-as-directory directory))) (make-symbolic-link dir (expand-file-name "bazel-out" dir)) (let ((tail '(... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...))) (while tail (let ((x435 ...)) (progn (ignore ...) (let* ... ...)) (setq tail (cdr tail))))) (let ((tail '(... ... ... ... ... ... ... ... ... ... ... ... ... ...))) (while tail (let ((x468 ...)) (progn (ignore ...) (let* ... ...)) (setq tail (cdr tail)))))) (delete-directory directory :recursive))) + (let ((ert--infos (cons (cons "Temporary directory: " directory) ert--infos))) (progn (let* ((file (and t "target-completion-root.org"))) (if file (bazel-test--tangle directory file) nil)) (prog1 (let ((dir (file-name-as-directory directory))) (make-symbolic-link dir (expand-file-name "bazel-out" dir)) (let ((tail '...)) (while tail (let (...) (progn ... ...) (setq tail ...)))) (let ((tail '...)) (while tail (let (...) (progn ... ...) (setq tail ...))))) (delete-directory directory :recursive)))) + (let ((directory (make-temp-file "bazel-mode-test-" :dir-flag))) (let ((ert--infos (cons (cons "Temporary directory: " directory) ert--infos))) (progn (let* ((file (and t "target-completion-root.org"))) (if file (bazel-test--tangle directory file) nil)) (prog1 (let ((dir (file-name-as-directory directory))) (make-symbolic-link dir (expand-file-name "bazel-out" dir)) (let ((tail ...)) (while tail (let ... ... ...))) (let ((tail ...)) (while tail (let ... ... ...)))) (delete-directory directory :recursive))))) + #f(lambda () [t] (let ((directory (make-temp-file "bazel-mode-test-" :dir-flag))) (let ((ert--infos ...)) (progn (let* ... ...) (prog1 ... ...)))) 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 ... :result ... :exit-continuation #f(compiled-function () #) :ert-debug-on-error nil)) + ert-run-test(#s(ert-test :name bazel--target-completion-table/root-package :documentation "Test target completion in the root package." :body #f(lambda () ... ... nil) :most-recent-result ... :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/test.el")) + ert-run-or-rerun-test(#s(ert--stats :selector t :tests ... :test-map # :test-results ... :test-start-times ... :test-end-times ... :passed-expected 0 :passed-unexpected 0 :failed-expected 0 :failed-unexpected 1 :skipped 0 :start-time ... :end-time nil :aborted-p nil ...) #s(ert-test :name bazel--target-completion-table/root-package :documentation "Test target completion in the root package." :body #f(lambda () ... ... nil) :most-recent-result ... :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/test.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() + eval((ert-run-tests-batch-and-exit) t) + 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" "." "--eval" "(progn (setenv \"TEST_SRCDIR\" \".\") (setenv \"TEST_WORKSPACE\" \".\"))" "-l" "test.el" "--eval" "(ert-run-tests-batch-and-exit)" "'(not (or \"bazel--target-completion-table/root-package\" \"bazel--target-completion-table/subpackage\" \"bazel--target-completion-table/workspace\" \"bazel-build-mode/beginning-of-defun\" \"bazel-build-mode/end-of-defun\" \"bazel-build-mode/imenu\" \"bazel-buildifier/failure\" \"bazel-completion-at-point\" \"bazel-fix-visibility\" \"bazel-insert-http-archive\" \"bazel-insert-http-archive/no-directory\" \"bazel-insert-http-archive/no-unique-prefix\" \"bazel-mode-flymake\" \"bazel-mode/compile\" \"bazel-mode/ffap\" \"bazel-mode/indent-region\" \"bazel-mode/speedbar\" \"bazel-mode/which-function\" \"bazel-mode/xref\" \"bazel-test-at-point\" \"bazel-test-at-point/c++-mode\" \"bazel-test-at-point/go-mode\" \"bazel-test-at-point/python-mode\" \"bazel-test/completion\" \"bazel-test/coverage\" \"bazel/project\" \"bazel/project-files\" \"bazelrc-ffap\"))")) + command-line() + normal-top-level() + +Test bazel--target-completion-table/root-package condition: + Temporary directory: /tmp/bazel-mode-test-a0wDm7 + Pattern completion: no + Input: "" + (ert-test-failed + ((should (equal (try-completion string table) try)) :form + (equal nil "") :value nil :explanation (different-types nil ""))) + FAILED 1/46 bazel--target-completion-table/root-package (0.369558 sec) at test.el:517 Tangled 3 code blocks from target-completion-package.org - passed 2/46 bazel--target-completion-table/subpackage (1.806705 sec) +Test bazel--target-completion-table/subpackage backtrace: + signal(ert-test-failed (((should (equal (try-completion string table) try)) :form (equal nil "") :value nil :explanation (different-types nil "")))) + ert-fail(((should (equal (try-completion string table) try)) :form (equal nil "") :value nil :explanation (different-types nil ""))) + (if (unwind-protect (setq value-521 (apply fn-519 args-520)) (setq form-description-523 (nconc (list '(should (equal ... try))) (list :form (cons fn-519 args-520)) (if (eql value-521 'ert-form-evaluation-aborted-522) nil (list :value value-521)) (if (eql value-521 'ert-form-evaluation-aborted-522) nil (let* ((-explainer- ...)) (if -explainer- (list :explanation ...) nil))))) (ert--signal-should-execution form-description-523)) nil (ert-fail form-description-523)) + (let (form-description-523) (if (unwind-protect (setq value-521 (apply fn-519 args-520)) (setq form-description-523 (nconc (list '(should ...)) (list :form (cons fn-519 args-520)) (if (eql value-521 'ert-form-evaluation-aborted-522) nil (list :value value-521)) (if (eql value-521 'ert-form-evaluation-aborted-522) nil (let* (...) (if -explainer- ... nil))))) (ert--signal-should-execution form-description-523)) nil (ert-fail form-description-523))) + (let ((value-521 'ert-form-evaluation-aborted-522)) (let (form-description-523) (if (unwind-protect (setq value-521 (apply fn-519 args-520)) (setq form-description-523 (nconc (list '...) (list :form (cons fn-519 args-520)) (if (eql value-521 ...) nil (list :value value-521)) (if (eql value-521 ...) nil (let* ... ...)))) (ert--signal-should-execution form-description-523)) nil (ert-fail form-description-523))) value-521) + (let* ((fn-519 #'equal) (args-520 (condition-case err (list (try-completion string table) try) (error (progn (setq fn-519 #'signal) (list (car err) (cdr err))))))) (let ((value-521 'ert-form-evaluation-aborted-522)) (let (form-description-523) (if (unwind-protect (setq value-521 (apply fn-519 args-520)) (setq form-description-523 (nconc (list ...) (list :form ...) (if ... nil ...) (if ... nil ...))) (ert--signal-should-execution form-description-523)) nil (ert-fail form-description-523))) value-521)) + (let* ((default-directory (file-name-as-directory (expand-file-name package dir))) (table (bazel--target-completion-table :pattern nil))) (let* ((fn-519 #'equal) (args-520 (condition-case err (list (try-completion string table) try) (error (progn (setq fn-519 ...) (list ... ...)))))) (let ((value-521 'ert-form-evaluation-aborted-522)) (let (form-description-523) (if (unwind-protect (setq value-521 (apply fn-519 args-520)) (setq form-description-523 (nconc ... ... ... ...)) (ert--signal-should-execution form-description-523)) nil (ert-fail form-description-523))) value-521)) (let* ((fn-524 #'equal) (args-525 (condition-case err (list (all-completions string table) all) (error (progn (setq fn-524 ...) (list ... ...)))))) (let ((value-526 'ert-form-evaluation-aborted-527)) (let (form-description-528) (if (unwind-protect (setq value-526 (apply fn-524 args-525)) (setq form-description-528 (nconc ... ... ... ...)) (ert--signal-should-execution form-description-528)) nil (ert-fail form-description-528))) value-526)) (let* ((fn-529 #'eq) (args-530 (condition-case err (list (test-completion string table) test) (error (progn (setq fn-529 ...) (list ... ...)))))) (let ((value-531 'ert-form-evaluation-aborted-532)) (let (form-description-533) (if (unwind-protect (setq value-531 (apply fn-529 args-530)) (setq form-description-533 (nconc ... ... ... ...)) (ert--signal-should-execution form-description-533)) nil (ert-fail form-description-533))) value-531)) (let* ((fn-534 #'equal) (args-535 (condition-case err (list (completion-boundaries string table nil "suffix") (cons bound 6)) (error (progn (setq fn-534 ...) (list ... ...)))))) (let ((value-536 'ert-form-evaluation-aborted-537)) (let (form-description-538) (if (unwind-protect (setq value-536 (apply fn-534 args-535)) (setq form-description-538 (nconc ... ... ... ...)) (ert--signal-should-execution form-description-538)) nil (ert-fail form-description-538))) value-536))) + (let ((ert--infos (cons (cons "Package: " (prin1-to-string package)) ert--infos))) (let* ((default-directory (file-name-as-directory (expand-file-name package dir))) (table (bazel--target-completion-table :pattern nil))) (let* ((fn-519 #'equal) (args-520 (condition-case err (list (try-completion string table) try) (error (progn ... ...))))) (let ((value-521 'ert-form-evaluation-aborted-522)) (let (form-description-523) (if (unwind-protect (setq value-521 ...) (setq form-description-523 ...) (ert--signal-should-execution form-description-523)) nil (ert-fail form-description-523))) value-521)) (let* ((fn-524 #'equal) (args-525 (condition-case err (list (all-completions string table) all) (error (progn ... ...))))) (let ((value-526 'ert-form-evaluation-aborted-527)) (let (form-description-528) (if (unwind-protect (setq value-526 ...) (setq form-description-528 ...) (ert--signal-should-execution form-description-528)) nil (ert-fail form-description-528))) value-526)) (let* ((fn-529 #'eq) (args-530 (condition-case err (list (test-completion string table) test) (error (progn ... ...))))) (let ((value-531 'ert-form-evaluation-aborted-532)) (let (form-description-533) (if (unwind-protect (setq value-531 ...) (setq form-description-533 ...) (ert--signal-should-execution form-description-533)) nil (ert-fail form-description-533))) value-531)) (let* ((fn-534 #'equal) (args-535 (condition-case err (list (completion-boundaries string table nil "suffix") (cons bound 6)) (error (progn ... ...))))) (let ((value-536 'ert-form-evaluation-aborted-537)) (let (form-description-538) (if (unwind-protect (setq value-536 ...) (setq form-description-538 ...) (ert--signal-should-execution form-description-538)) nil (ert-fail form-description-538))) value-536)))) + (let ((package (car tail))) (let ((ert--infos (cons (cons "Package: " (prin1-to-string package)) ert--infos))) (let* ((default-directory (file-name-as-directory (expand-file-name package dir))) (table (bazel--target-completion-table :pattern nil))) (let* ((fn-519 #'equal) (args-520 (condition-case err (list ... try) (error ...)))) (let ((value-521 'ert-form-evaluation-aborted-522)) (let (form-description-523) (if (unwind-protect ... ... ...) nil (ert-fail form-description-523))) value-521)) (let* ((fn-524 #'equal) (args-525 (condition-case err (list ... all) (error ...)))) (let ((value-526 'ert-form-evaluation-aborted-527)) (let (form-description-528) (if (unwind-protect ... ... ...) nil (ert-fail form-description-528))) value-526)) (let* ((fn-529 #'eq) (args-530 (condition-case err (list ... test) (error ...)))) (let ((value-531 'ert-form-evaluation-aborted-532)) (let (form-description-533) (if (unwind-protect ... ... ...) nil (ert-fail form-description-533))) value-531)) (let* ((fn-534 #'equal) (args-535 (condition-case err (list ... ...) (error ...)))) (let ((value-536 'ert-form-evaluation-aborted-537)) (let (form-description-538) (if (unwind-protect ... ... ...) nil (ert-fail form-description-538))) value-536)))) (setq tail (cdr tail))) + (while tail (let ((package (car tail))) (let ((ert--infos (cons (cons "Package: " (prin1-to-string package)) ert--infos))) (let* ((default-directory (file-name-as-directory (expand-file-name package dir))) (table (bazel--target-completion-table :pattern nil))) (let* ((fn-519 #'equal) (args-520 (condition-case err ... ...))) (let ((value-521 ...)) (let (form-description-523) (if ... nil ...)) value-521)) (let* ((fn-524 #'equal) (args-525 (condition-case err ... ...))) (let ((value-526 ...)) (let (form-description-528) (if ... nil ...)) value-526)) (let* ((fn-529 #'eq) (args-530 (condition-case err ... ...))) (let ((value-531 ...)) (let (form-description-533) (if ... nil ...)) value-531)) (let* ((fn-534 #'equal) (args-535 (condition-case err ... ...))) (let ((value-536 ...)) (let (form-description-538) (if ... nil ...)) value-536)))) (setq tail (cdr tail)))) + (let ((tail packages)) (while tail (let ((package (car tail))) (let ((ert--infos (cons (cons "Package: " ...) ert--infos))) (let* ((default-directory (file-name-as-directory ...)) (table (bazel--target-completion-table :pattern nil))) (let* ((fn-519 ...) (args-520 ...)) (let (...) (let ... ...) value-521)) (let* ((fn-524 ...) (args-525 ...)) (let (...) (let ... ...) value-526)) (let* ((fn-529 ...) (args-530 ...)) (let (...) (let ... ...) value-531)) (let* ((fn-534 ...) (args-535 ...)) (let (...) (let ... ...) value-536)))) (setq tail (cdr tail))))) + (let ((packages (cond ((stringp package) (list package)) ((eq package t) '("" "package"))))) (let* ((fn-514 #'consp) (args-515 (condition-case err (list packages) (error (progn (setq fn-514 ...) (list ... ...)))))) (let ((value-516 'ert-form-evaluation-aborted-517)) (let (form-description-518) (if (unwind-protect (setq value-516 (apply fn-514 args-515)) (setq form-description-518 (nconc ... ... ... ...)) (ert--signal-should-execution form-description-518)) nil (ert-fail form-description-518))) value-516)) (let ((tail packages)) (while tail (let ((package (car tail))) (let ((ert--infos (cons ... ert--infos))) (let* ((default-directory ...) (table ...)) (let* (... ...) (let ... ... value-521)) (let* (... ...) (let ... ... value-526)) (let* (... ...) (let ... ... value-531)) (let* (... ...) (let ... ... value-536)))) (setq tail (cdr tail)))))) + (let ((ert--infos (cons (cons "Input: " (prin1-to-string string)) ert--infos))) (let ((packages (cond ((stringp package) (list package)) ((eq package t) '("" "package"))))) (let* ((fn-514 #'consp) (args-515 (condition-case err (list packages) (error (progn ... ...))))) (let ((value-516 'ert-form-evaluation-aborted-517)) (let (form-description-518) (if (unwind-protect (setq value-516 ...) (setq form-description-518 ...) (ert--signal-should-execution form-description-518)) nil (ert-fail form-description-518))) value-516)) (let ((tail packages)) (while tail (let ((package (car tail))) (let ((ert--infos ...)) (let* (... ...) (let* ... ...) (let* ... ...) (let* ... ...) (let* ... ...))) (setq tail (cdr tail))))))) + (let ((package x502) (string x504) (try x506) (all x508) (test x510) (bound x512)) (let ((ert--infos (cons (cons "Input: " (prin1-to-string string)) ert--infos))) (let ((packages (cond ((stringp package) (list package)) ((eq package t) '...)))) (let* ((fn-514 #'consp) (args-515 (condition-case err (list packages) (error ...)))) (let ((value-516 'ert-form-evaluation-aborted-517)) (let (form-description-518) (if (unwind-protect ... ... ...) nil (ert-fail form-description-518))) value-516)) (let ((tail packages)) (while tail (let ((package ...)) (let (...) (let* ... ... ... ... ...)) (setq tail (cdr tail)))))))) + (progn (ignore (null x513)) (let ((package x502) (string x504) (try x506) (all x508) (test x510) (bound x512)) (let ((ert--infos (cons (cons "Input: " (prin1-to-string string)) ert--infos))) (let ((packages (cond (... ...) (... ...)))) (let* ((fn-514 #'consp) (args-515 (condition-case err ... ...))) (let ((value-516 ...)) (let (form-description-518) (if ... nil ...)) value-516)) (let ((tail packages)) (while tail (let (...) (let ... ...) (setq tail ...)))))))) + (let* ((x512 (car-safe x511)) (x513 (cdr-safe x511))) (progn (ignore (null x513)) (let ((package x502) (string x504) (try x506) (all x508) (test x510) (bound x512)) (let ((ert--infos (cons (cons "Input: " ...) ert--infos))) (let ((packages (cond ... ...))) (let* ((fn-514 ...) (args-515 ...)) (let (...) (let ... ...) value-516)) (let ((tail packages)) (while tail (let ... ... ...)))))))) + (progn (ignore (consp x511)) (let* ((x512 (car-safe x511)) (x513 (cdr-safe x511))) (progn (ignore (null x513)) (let ((package x502) (string x504) (try x506) (all x508) (test x510) (bound x512)) (let ((ert--infos (cons ... ert--infos))) (let ((packages ...)) (let* (... ...) (let ... ... value-516)) (let (...) (while tail ...)))))))) + (let* ((x510 (car-safe x509)) (x511 (cdr-safe x509))) (progn (ignore (consp x511)) (let* ((x512 (car-safe x511)) (x513 (cdr-safe x511))) (progn (ignore (null x513)) (let ((package x502) (string x504) (try x506) (all x508) (test x510) (bound x512)) (let ((ert--infos ...)) (let (...) (let* ... ...) (let ... ...)))))))) + (progn (ignore (consp x509)) (let* ((x510 (car-safe x509)) (x511 (cdr-safe x509))) (progn (ignore (consp x511)) (let* ((x512 (car-safe x511)) (x513 (cdr-safe x511))) (progn (ignore (null x513)) (let ((package x502) (string x504) (try x506) (all x508) (test x510) (bound x512)) (let (...) (let ... ... ...)))))))) + (let* ((x508 (car-safe x507)) (x509 (cdr-safe x507))) (progn (ignore (consp x509)) (let* ((x510 (car-safe x509)) (x511 (cdr-safe x509))) (progn (ignore (consp x511)) (let* ((x512 (car-safe x511)) (x513 (cdr-safe x511))) (progn (ignore (null x513)) (let (... ... ... ... ... ...) (let ... ...)))))))) + (progn (ignore (consp x507)) (let* ((x508 (car-safe x507)) (x509 (cdr-safe x507))) (progn (ignore (consp x509)) (let* ((x510 (car-safe x509)) (x511 (cdr-safe x509))) (progn (ignore (consp x511)) (let* ((x512 ...) (x513 ...)) (progn (ignore ...) (let ... ...)))))))) + (let* ((x506 (car-safe x505)) (x507 (cdr-safe x505))) (progn (ignore (consp x507)) (let* ((x508 (car-safe x507)) (x509 (cdr-safe x507))) (progn (ignore (consp x509)) (let* ((x510 (car-safe x509)) (x511 (cdr-safe x509))) (progn (ignore (consp x511)) (let* (... ...) (progn ... ...)))))))) + (progn (ignore (consp x505)) (let* ((x506 (car-safe x505)) (x507 (cdr-safe x505))) (progn (ignore (consp x507)) (let* ((x508 (car-safe x507)) (x509 (cdr-safe x507))) (progn (ignore (consp x509)) (let* ((x510 ...) (x511 ...)) (progn (ignore ...) (let* ... ...)))))))) + (let* ((x504 (car-safe x503)) (x505 (cdr-safe x503))) (progn (ignore (consp x505)) (let* ((x506 (car-safe x505)) (x507 (cdr-safe x505))) (progn (ignore (consp x507)) (let* ((x508 (car-safe x507)) (x509 (cdr-safe x507))) (progn (ignore (consp x509)) (let* (... ...) (progn ... ...)))))))) + (progn (ignore (consp x503)) (let* ((x504 (car-safe x503)) (x505 (cdr-safe x503))) (progn (ignore (consp x505)) (let* ((x506 (car-safe x505)) (x507 (cdr-safe x505))) (progn (ignore (consp x507)) (let* ((x508 ...) (x509 ...)) (progn (ignore ...) (let* ... ...)))))))) + (let* ((x502 (car-safe x501)) (x503 (cdr-safe x501))) (progn (ignore (consp x503)) (let* ((x504 (car-safe x503)) (x505 (cdr-safe x503))) (progn (ignore (consp x505)) (let* ((x506 (car-safe x505)) (x507 (cdr-safe x505))) (progn (ignore (consp x507)) (let* (... ...) (progn ... ...)))))))) + (progn (ignore (consp x501)) (let* ((x502 (car-safe x501)) (x503 (cdr-safe x501))) (progn (ignore (consp x503)) (let* ((x504 (car-safe x503)) (x505 (cdr-safe x503))) (progn (ignore (consp x505)) (let* ((x506 ...) (x507 ...)) (progn (ignore ...) (let* ... ...)))))))) + (let ((x501 (car tail))) (progn (ignore (consp x501)) (let* ((x502 (car-safe x501)) (x503 (cdr-safe x501))) (progn (ignore (consp x503)) (let* ((x504 (car-safe x503)) (x505 (cdr-safe x503))) (progn (ignore (consp x505)) (let* (... ...) (progn ... ...))))))) (setq tail (cdr tail))) + (while tail (let ((x501 (car tail))) (progn (ignore (consp x501)) (let* ((x502 (car-safe x501)) (x503 (cdr-safe x501))) (progn (ignore (consp x503)) (let* ((x504 ...) (x505 ...)) (progn (ignore ...) (let* ... ...)))))) (setq tail (cdr tail)))) + (let ((tail '(("" "" "" ("package" "..." "//" "@") nil 0) ("" "test" nil nil nil 0) ("" "all" nil nil nil 0) ("" "all-targets" nil nil nil 0) ("" "*" nil nil nil 0) ("" ":" nil nil nil 1) ("" ":test" nil nil nil 1) ("" ":all" nil nil nil 1) ("" ":*" nil nil nil 1) ("" ":all-targets" nil nil nil 1) ("" "pack" "package" ("package") nil 0) ("" "package" "package" ("package") t 0) ("" "package/" "package/..." ("...") nil 8) ("" "package/." "package/..." ("...") nil 8) ("" "package/..." "package/..." ("..." "...:") t 8) ("" "package/...:" "package/...:" ("all" "all-targets" "*") nil 12) ("" "package:" "package:" ("test" "all" "all-targets" "*") nil 8) ("" "package:te" "package:test" ("test") nil 8) ("" "package:test" t ("test") t 8) ("" "package:a" "package:all" ("all" "all-targets") nil 8) ("" "package:all" "package:all" ("all" "all-targets") t 8) ("" "package:all-targets" t ("all-targets") t 8) ("" "package:*" t ("*") t 8) ("package" "" "" ("test" ":all" ":all-targets" ":*" "..." "//" "@") nil 0) ("package" "te" "test" ("test") nil 0) ("package" "test" t ("test") t 0) ("package" "a" nil nil nil 0) ("package" "all" nil nil nil 0) ("package" ":" ":" ("test" "all" "all-targets" "*") nil 1) ("package" ":te" ":test" ("test") nil 1) ("package" ":test" t ("test") t 1) ("package" ":a" ":all" ("all" "all-targets") nil 1) ("package" ":all" ":all" ("all" "all-targets") t 1) ("package" ":all-targets" t ("all-targets") t 1) ("package" ":*" t ("*") t 1) (t "@" "@//" ("//") nil 1) (t "@w" nil nil nil 1) (t "/" "//" ("//") nil 0) (t "//" "//" (":" "package" "...") nil 2) (t "//:" nil nil nil 3) (t "//:test" nil nil nil 3) (t "//:all" nil nil nil 3) (t "//:all-targets" nil nil nil 3) (t "//:*" nil nil nil 3) (t "//." "//..." ("...") nil 2) (t "//..." "//..." ("..." "...:") t 2) (t "//pack" "//package" ("package") nil 2) (t "//package" "//package" ("package") t 2) (t "//package/" "//package/..." ("...") nil 10) (t "//package/." "//package/..." ("...") nil 10) ...))) (while tail (let ((x501 (car tail))) (progn (ignore (consp x501)) (let* ((x502 (car-safe x501)) (x503 (cdr-safe x501))) (progn (ignore (consp x503)) (let* (... ...) (progn ... ...))))) (setq tail (cdr tail))))) + (let ((dir (file-name-as-directory directory))) (let ((tail '(("" "" "" ("package" "..." "//" "@") nil 0) ("" "test" nil nil nil 0) ("" "all" nil nil nil 0) ("" "all-targets" nil nil nil 0) ("" "*" nil nil nil 0) ("" ":" nil nil nil 1) ("" ":test" nil nil nil 1) ("" ":all" nil nil nil 1) ("" ":*" nil nil nil 1) ("" ":all-targets" nil nil nil 1) ("" "pack" "package" ("package") nil 0) ("" "package" "package" ("package") t 0) ("" "package/" "package/..." ("...") nil 8) ("" "package/." "package/..." ("...") nil 8) ("" "package/..." "package/..." ("..." "...:") t 8) ("" "package/...:" "package/...:" ("all" "all-targets" "*") nil 12) ("" "package:" "package:" ("test" "all" "all-targets" "*") nil 8) ("" "package:te" "package:test" ("test") nil 8) ("" "package:test" t ("test") t 8) ("" "package:a" "package:all" ("all" "all-targets") nil 8) ("" "package:all" "package:all" ("all" "all-targets") t 8) ("" "package:all-targets" t ("all-targets") t 8) ("" "package:*" t ("*") t 8) ("package" "" "" ("test" ":all" ":all-targets" ":*" "..." "//" "@") nil 0) ("package" "te" "test" ("test") nil 0) ("package" "test" t ("test") t 0) ("package" "a" nil nil nil 0) ("package" "all" nil nil nil 0) ("package" ":" ":" ("test" "all" "all-targets" "*") nil 1) ("package" ":te" ":test" ("test") nil 1) ("package" ":test" t ("test") t 1) ("package" ":a" ":all" ("all" "all-targets") nil 1) ("package" ":all" ":all" ("all" "all-targets") t 1) ("package" ":all-targets" t ("all-targets") t 1) ("package" ":*" t ("*") t 1) (t "@" "@//" ("//") nil 1) (t "@w" nil nil nil 1) (t "/" "//" ("//") nil 0) (t "//" "//" (":" "package" "...") nil 2) (t "//:" nil nil nil 3) (t "//:test" nil nil nil 3) (t "//:all" nil nil nil 3) (t "//:all-targets" nil nil nil 3) (t "//:*" nil nil nil 3) (t "//." "//..." ("...") nil 2) (t "//..." "//..." ("..." "...:") t 2) (t "//pack" "//package" ("package") nil 2) (t "//package" "//package" ("package") t 2) (t "//package/" "//package/..." ("...") nil 10) (t "//package/." "//package/..." ("...") nil 10) ...))) (while tail (let ((x501 (car tail))) (progn (ignore (consp x501)) (let* ((x502 ...) (x503 ...)) (progn (ignore ...) (let* ... ...)))) (setq tail (cdr tail)))))) + (prog1 (let ((dir (file-name-as-directory directory))) (let ((tail '(("" "" "" ... nil 0) ("" "test" nil nil nil 0) ("" "all" nil nil nil 0) ("" "all-targets" nil nil nil 0) ("" "*" nil nil nil 0) ("" ":" nil nil nil 1) ("" ":test" nil nil nil 1) ("" ":all" nil nil nil 1) ("" ":*" nil nil nil 1) ("" ":all-targets" nil nil nil 1) ("" "pack" "package" ... nil 0) ("" "package" "package" ... t 0) ("" "package/" "package/..." ... nil 8) ("" "package/." "package/..." ... nil 8) ("" "package/..." "package/..." ... t 8) ("" "package/...:" "package/...:" ... nil 12) ("" "package:" "package:" ... nil 8) ("" "package:te" "package:test" ... nil 8) ("" "package:test" t ... t 8) ("" "package:a" "package:all" ... nil 8) ("" "package:all" "package:all" ... t 8) ("" "package:all-targets" t ... t 8) ("" "package:*" t ... t 8) ("package" "" "" ... nil 0) ("package" "te" "test" ... nil 0) ("package" "test" t ... t 0) ("package" "a" nil nil nil 0) ("package" "all" nil nil nil 0) ("package" ":" ":" ... nil 1) ("package" ":te" ":test" ... nil 1) ("package" ":test" t ... t 1) ("package" ":a" ":all" ... nil 1) ("package" ":all" ":all" ... t 1) ("package" ":all-targets" t ... t 1) ("package" ":*" t ... t 1) (t "@" "@//" ... nil 1) (t "@w" nil nil nil 1) (t "/" "//" ... nil 0) (t "//" "//" ... nil 2) (t "//:" nil nil nil 3) (t "//:test" nil nil nil 3) (t "//:all" nil nil nil 3) (t "//:all-targets" nil nil nil 3) (t "//:*" nil nil nil 3) (t "//." "//..." ... nil 2) (t "//..." "//..." ... t 2) (t "//pack" "//package" ... nil 2) (t "//package" "//package" ... t 2) (t "//package/" "//package/..." ... nil 10) (t "//package/." "//package/..." ... nil 10) ...))) (while tail (let ((x501 (car tail))) (progn (ignore (consp x501)) (let* (... ...) (progn ... ...))) (setq tail (cdr tail)))))) (delete-directory directory :recursive)) + (progn (let* ((file (and t "target-completion-package.org"))) (if file (bazel-test--tangle directory file) nil)) (prog1 (let ((dir (file-name-as-directory directory))) (let ((tail '(... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...))) (while tail (let ((x501 ...)) (progn (ignore ...) (let* ... ...)) (setq tail (cdr tail)))))) (delete-directory directory :recursive))) + (let ((ert--infos (cons (cons "Temporary directory: " directory) ert--infos))) (progn (let* ((file (and t "target-completion-package.org"))) (if file (bazel-test--tangle directory file) nil)) (prog1 (let ((dir (file-name-as-directory directory))) (let ((tail '...)) (while tail (let (...) (progn ... ...) (setq tail ...))))) (delete-directory directory :recursive)))) + (let ((directory (make-temp-file "bazel-mode-test-" :dir-flag))) (let ((ert--infos (cons (cons "Temporary directory: " directory) ert--infos))) (progn (let* ((file (and t "target-completion-package.org"))) (if file (bazel-test--tangle directory file) nil)) (prog1 (let ((dir (file-name-as-directory directory))) (let ((tail ...)) (while tail (let ... ... ...)))) (delete-directory directory :recursive))))) + #f(lambda () [t] (let ((directory (make-temp-file "bazel-mode-test-" :dir-flag))) (let ((ert--infos ...)) (progn (let* ... ...) (prog1 ... ...)))) 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 ... :result ... :exit-continuation #f(compiled-function () #) :ert-debug-on-error nil)) + ert-run-test(#s(ert-test :name bazel--target-completion-table/subpackage :documentation "Test target completion in a subpackage." :body #f(lambda () ... ... nil) :most-recent-result ... :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/test.el")) + ert-run-or-rerun-test(#s(ert--stats :selector t :tests ... :test-map # :test-results ... :test-start-times ... :test-end-times ... :passed-expected 0 :passed-unexpected 0 :failed-expected 0 :failed-unexpected 2 :skipped 0 :start-time ... :end-time nil :aborted-p nil ...) #s(ert-test :name bazel--target-completion-table/subpackage :documentation "Test target completion in a subpackage." :body #f(lambda () ... ... nil) :most-recent-result ... :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/test.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() + eval((ert-run-tests-batch-and-exit) t) + 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" "." "--eval" "(progn (setenv \"TEST_SRCDIR\" \".\") (setenv \"TEST_WORKSPACE\" \".\"))" "-l" "test.el" "--eval" "(ert-run-tests-batch-and-exit)" "'(not (or \"bazel--target-completion-table/root-package\" \"bazel--target-completion-table/subpackage\" \"bazel--target-completion-table/workspace\" \"bazel-build-mode/beginning-of-defun\" \"bazel-build-mode/end-of-defun\" \"bazel-build-mode/imenu\" \"bazel-buildifier/failure\" \"bazel-completion-at-point\" \"bazel-fix-visibility\" \"bazel-insert-http-archive\" \"bazel-insert-http-archive/no-directory\" \"bazel-insert-http-archive/no-unique-prefix\" \"bazel-mode-flymake\" \"bazel-mode/compile\" \"bazel-mode/ffap\" \"bazel-mode/indent-region\" \"bazel-mode/speedbar\" \"bazel-mode/which-function\" \"bazel-mode/xref\" \"bazel-test-at-point\" \"bazel-test-at-point/c++-mode\" \"bazel-test-at-point/go-mode\" \"bazel-test-at-point/python-mode\" \"bazel-test/completion\" \"bazel-test/coverage\" \"bazel/project\" \"bazel/project-files\" \"bazelrc-ffap\"))")) + command-line() + normal-top-level() + +Test bazel--target-completion-table/subpackage condition: + Temporary directory: /tmp/bazel-mode-test-Azpsne + Input: "" + Package: "" + (ert-test-failed + ((should (equal (try-completion string table) try)) :form + (equal nil "") :value nil :explanation (different-types nil ""))) + FAILED 2/46 bazel--target-completion-table/subpackage (0.013380 sec) at test.el:631 Tangled 6 code blocks from target-completion-workspace.org - passed 3/46 bazel--target-completion-table/workspace (0.430613 sec) - passed 4/46 bazel-build (0.000185 sec) +Test bazel--target-completion-table/workspace backtrace: + signal(ert-test-failed (((should (equal (try-completion string table) try)) :form (equal nil "@") :value nil :explanation (different-types nil "@")))) + ert-fail(((should (equal (try-completion string table) try)) :form (equal nil "@") :value nil :explanation (different-types nil "@"))) + (if (unwind-protect (setq value-552 (apply fn-550 args-551)) (setq form-description-554 (nconc (list '(should (equal ... try))) (list :form (cons fn-550 args-551)) (if (eql value-552 'ert-form-evaluation-aborted-553) nil (list :value value-552)) (if (eql value-552 'ert-form-evaluation-aborted-553) nil (let* ((-explainer- ...)) (if -explainer- (list :explanation ...) nil))))) (ert--signal-should-execution form-description-554)) nil (ert-fail form-description-554)) + (let (form-description-554) (if (unwind-protect (setq value-552 (apply fn-550 args-551)) (setq form-description-554 (nconc (list '(should ...)) (list :form (cons fn-550 args-551)) (if (eql value-552 'ert-form-evaluation-aborted-553) nil (list :value value-552)) (if (eql value-552 'ert-form-evaluation-aborted-553) nil (let* (...) (if -explainer- ... nil))))) (ert--signal-should-execution form-description-554)) nil (ert-fail form-description-554))) + (let ((value-552 'ert-form-evaluation-aborted-553)) (let (form-description-554) (if (unwind-protect (setq value-552 (apply fn-550 args-551)) (setq form-description-554 (nconc (list '...) (list :form (cons fn-550 args-551)) (if (eql value-552 ...) nil (list :value value-552)) (if (eql value-552 ...) nil (let* ... ...)))) (ert--signal-should-execution form-description-554)) nil (ert-fail form-description-554))) value-552) + (let* ((fn-550 #'equal) (args-551 (condition-case err (list (try-completion string table) try) (error (progn (setq fn-550 #'signal) (list (car err) (cdr err))))))) (let ((value-552 'ert-form-evaluation-aborted-553)) (let (form-description-554) (if (unwind-protect (setq value-552 (apply fn-550 args-551)) (setq form-description-554 (nconc (list ...) (list :form ...) (if ... nil ...) (if ... nil ...))) (ert--signal-should-execution form-description-554)) nil (ert-fail form-description-554))) value-552)) + (let* ((default-directory (expand-file-name "main/" dir)) (table (bazel--target-completion-table :pattern nil))) (let* ((fn-550 #'equal) (args-551 (condition-case err (list (try-completion string table) try) (error (progn (setq fn-550 ...) (list ... ...)))))) (let ((value-552 'ert-form-evaluation-aborted-553)) (let (form-description-554) (if (unwind-protect (setq value-552 (apply fn-550 args-551)) (setq form-description-554 (nconc ... ... ... ...)) (ert--signal-should-execution form-description-554)) nil (ert-fail form-description-554))) value-552)) (let* ((fn-555 #'equal) (args-556 (condition-case err (list (all-completions string table) all) (error (progn (setq fn-555 ...) (list ... ...)))))) (let ((value-557 'ert-form-evaluation-aborted-558)) (let (form-description-559) (if (unwind-protect (setq value-557 (apply fn-555 args-556)) (setq form-description-559 (nconc ... ... ... ...)) (ert--signal-should-execution form-description-559)) nil (ert-fail form-description-559))) value-557)) (let* ((fn-560 #'eq) (args-561 (condition-case err (list (test-completion string table) test) (error (progn (setq fn-560 ...) (list ... ...)))))) (let ((value-562 'ert-form-evaluation-aborted-563)) (let (form-description-564) (if (unwind-protect (setq value-562 (apply fn-560 args-561)) (setq form-description-564 (nconc ... ... ... ...)) (ert--signal-should-execution form-description-564)) nil (ert-fail form-description-564))) value-562)) (let* ((fn-565 #'equal) (args-566 (condition-case err (list (completion-boundaries string table nil "suffix") (cons bound 6)) (error (progn (setq fn-565 ...) (list ... ...)))))) (let ((value-567 'ert-form-evaluation-aborted-568)) (let (form-description-569) (if (unwind-protect (setq value-567 (apply fn-565 args-566)) (setq form-description-569 (nconc ... ... ... ...)) (ert--signal-should-execution form-description-569)) nil (ert-fail form-description-569))) value-567))) + (let ((ert--infos (cons (cons "Input: " (prin1-to-string string)) ert--infos))) (let* ((default-directory (expand-file-name "main/" dir)) (table (bazel--target-completion-table :pattern nil))) (let* ((fn-550 #'equal) (args-551 (condition-case err (list (try-completion string table) try) (error (progn ... ...))))) (let ((value-552 'ert-form-evaluation-aborted-553)) (let (form-description-554) (if (unwind-protect (setq value-552 ...) (setq form-description-554 ...) (ert--signal-should-execution form-description-554)) nil (ert-fail form-description-554))) value-552)) (let* ((fn-555 #'equal) (args-556 (condition-case err (list (all-completions string table) all) (error (progn ... ...))))) (let ((value-557 'ert-form-evaluation-aborted-558)) (let (form-description-559) (if (unwind-protect (setq value-557 ...) (setq form-description-559 ...) (ert--signal-should-execution form-description-559)) nil (ert-fail form-description-559))) value-557)) (let* ((fn-560 #'eq) (args-561 (condition-case err (list (test-completion string table) test) (error (progn ... ...))))) (let ((value-562 'ert-form-evaluation-aborted-563)) (let (form-description-564) (if (unwind-protect (setq value-562 ...) (setq form-description-564 ...) (ert--signal-should-execution form-description-564)) nil (ert-fail form-description-564))) value-562)) (let* ((fn-565 #'equal) (args-566 (condition-case err (list (completion-boundaries string table nil "suffix") (cons bound 6)) (error (progn ... ...))))) (let ((value-567 'ert-form-evaluation-aborted-568)) (let (form-description-569) (if (unwind-protect (setq value-567 ...) (setq form-description-569 ...) (ert--signal-should-execution form-description-569)) nil (ert-fail form-description-569))) value-567)))) + (let ((string x540) (try x542) (all x544) (test x546) (bound x548)) (let ((ert--infos (cons (cons "Input: " (prin1-to-string string)) ert--infos))) (let* ((default-directory (expand-file-name "main/" dir)) (table (bazel--target-completion-table :pattern nil))) (let* ((fn-550 #'equal) (args-551 (condition-case err (list ... try) (error ...)))) (let ((value-552 'ert-form-evaluation-aborted-553)) (let (form-description-554) (if (unwind-protect ... ... ...) nil (ert-fail form-description-554))) value-552)) (let* ((fn-555 #'equal) (args-556 (condition-case err (list ... all) (error ...)))) (let ((value-557 'ert-form-evaluation-aborted-558)) (let (form-description-559) (if (unwind-protect ... ... ...) nil (ert-fail form-description-559))) value-557)) (let* ((fn-560 #'eq) (args-561 (condition-case err (list ... test) (error ...)))) (let ((value-562 'ert-form-evaluation-aborted-563)) (let (form-description-564) (if (unwind-protect ... ... ...) nil (ert-fail form-description-564))) value-562)) (let* ((fn-565 #'equal) (args-566 (condition-case err (list ... ...) (error ...)))) (let ((value-567 'ert-form-evaluation-aborted-568)) (let (form-description-569) (if (unwind-protect ... ... ...) nil (ert-fail form-description-569))) value-567))))) + (progn (ignore (null x549)) (let ((string x540) (try x542) (all x544) (test x546) (bound x548)) (let ((ert--infos (cons (cons "Input: " (prin1-to-string string)) ert--infos))) (let* ((default-directory (expand-file-name "main/" dir)) (table (bazel--target-completion-table :pattern nil))) (let* ((fn-550 #'equal) (args-551 (condition-case err ... ...))) (let ((value-552 ...)) (let (form-description-554) (if ... nil ...)) value-552)) (let* ((fn-555 #'equal) (args-556 (condition-case err ... ...))) (let ((value-557 ...)) (let (form-description-559) (if ... nil ...)) value-557)) (let* ((fn-560 #'eq) (args-561 (condition-case err ... ...))) (let ((value-562 ...)) (let (form-description-564) (if ... nil ...)) value-562)) (let* ((fn-565 #'equal) (args-566 (condition-case err ... ...))) (let ((value-567 ...)) (let (form-description-569) (if ... nil ...)) value-567)))))) + (let* ((x548 (car-safe x547)) (x549 (cdr-safe x547))) (progn (ignore (null x549)) (let ((string x540) (try x542) (all x544) (test x546) (bound x548)) (let ((ert--infos (cons (cons "Input: " ...) ert--infos))) (let* ((default-directory (expand-file-name "main/" dir)) (table (bazel--target-completion-table :pattern nil))) (let* ((fn-550 ...) (args-551 ...)) (let (...) (let ... ...) value-552)) (let* ((fn-555 ...) (args-556 ...)) (let (...) (let ... ...) value-557)) (let* ((fn-560 ...) (args-561 ...)) (let (...) (let ... ...) value-562)) (let* ((fn-565 ...) (args-566 ...)) (let (...) (let ... ...) value-567))))))) + (progn (ignore (consp x547)) (let* ((x548 (car-safe x547)) (x549 (cdr-safe x547))) (progn (ignore (null x549)) (let ((string x540) (try x542) (all x544) (test x546) (bound x548)) (let ((ert--infos (cons ... ert--infos))) (let* ((default-directory ...) (table ...)) (let* (... ...) (let ... ... value-552)) (let* (... ...) (let ... ... value-557)) (let* (... ...) (let ... ... value-562)) (let* (... ...) (let ... ... value-567)))))))) + (let* ((x546 (car-safe x545)) (x547 (cdr-safe x545))) (progn (ignore (consp x547)) (let* ((x548 (car-safe x547)) (x549 (cdr-safe x547))) (progn (ignore (null x549)) (let ((string x540) (try x542) (all x544) (test x546) (bound x548)) (let ((ert--infos ...)) (let* (... ...) (let* ... ...) (let* ... ...) (let* ... ...) (let* ... ...)))))))) + (progn (ignore (consp x545)) (let* ((x546 (car-safe x545)) (x547 (cdr-safe x545))) (progn (ignore (consp x547)) (let* ((x548 (car-safe x547)) (x549 (cdr-safe x547))) (progn (ignore (null x549)) (let ((string x540) (try x542) (all x544) (test x546) (bound x548)) (let (...) (let* ... ... ... ... ...)))))))) + (let* ((x544 (car-safe x543)) (x545 (cdr-safe x543))) (progn (ignore (consp x545)) (let* ((x546 (car-safe x545)) (x547 (cdr-safe x545))) (progn (ignore (consp x547)) (let* ((x548 (car-safe x547)) (x549 (cdr-safe x547))) (progn (ignore (null x549)) (let (... ... ... ... ...) (let ... ...)))))))) + (progn (ignore (consp x543)) (let* ((x544 (car-safe x543)) (x545 (cdr-safe x543))) (progn (ignore (consp x545)) (let* ((x546 (car-safe x545)) (x547 (cdr-safe x545))) (progn (ignore (consp x547)) (let* ((x548 ...) (x549 ...)) (progn (ignore ...) (let ... ...)))))))) + (let* ((x542 (car-safe x541)) (x543 (cdr-safe x541))) (progn (ignore (consp x543)) (let* ((x544 (car-safe x543)) (x545 (cdr-safe x543))) (progn (ignore (consp x545)) (let* ((x546 (car-safe x545)) (x547 (cdr-safe x545))) (progn (ignore (consp x547)) (let* (... ...) (progn ... ...)))))))) + (progn (ignore (consp x541)) (let* ((x542 (car-safe x541)) (x543 (cdr-safe x541))) (progn (ignore (consp x543)) (let* ((x544 (car-safe x543)) (x545 (cdr-safe x543))) (progn (ignore (consp x545)) (let* ((x546 ...) (x547 ...)) (progn (ignore ...) (let* ... ...)))))))) + (let* ((x540 (car-safe x539)) (x541 (cdr-safe x539))) (progn (ignore (consp x541)) (let* ((x542 (car-safe x541)) (x543 (cdr-safe x541))) (progn (ignore (consp x543)) (let* ((x544 (car-safe x543)) (x545 (cdr-safe x543))) (progn (ignore (consp x545)) (let* (... ...) (progn ... ...)))))))) + (progn (ignore (consp x539)) (let* ((x540 (car-safe x539)) (x541 (cdr-safe x539))) (progn (ignore (consp x541)) (let* ((x542 (car-safe x541)) (x543 (cdr-safe x541))) (progn (ignore (consp x543)) (let* ((x544 ...) (x545 ...)) (progn (ignore ...) (let* ... ...)))))))) + (let ((x539 (car tail))) (progn (ignore (consp x539)) (let* ((x540 (car-safe x539)) (x541 (cdr-safe x539))) (progn (ignore (consp x541)) (let* ((x542 (car-safe x541)) (x543 (cdr-safe x541))) (progn (ignore (consp x543)) (let* (... ...) (progn ... ...))))))) (setq tail (cdr tail))) + (while tail (let ((x539 (car tail))) (progn (ignore (consp x539)) (let* ((x540 (car-safe x539)) (x541 (cdr-safe x539))) (progn (ignore (consp x541)) (let* ((x542 ...) (x543 ...)) (progn (ignore ...) (let* ... ...)))))) (setq tail (cdr tail)))) + (let ((tail '(("@" "@" ("ext" "//") nil 1) ("@/" "@//" ("//") nil 1) ("@//" "@//" (":" "main-pkg" "...") nil 3) ("@//:" "@//:" ("all" "all-targets" "*") nil 4) ("@//:all" "@//:all" ("all" "all-targets") t 4) ("@//." "@//..." ("...") nil 3) ("@//..." "@//..." ("..." "...:") t 3) ("@//...:*" t ("*") t 7) ("@//m" "@//main-pkg" ("main-pkg") nil 3) ("@//main-pkg" "@//main-pkg" ("main-pkg") t 3) ("@e" "@ext" ("ext") nil 1) ("@ext" t ("ext" "ext//") t 1) ("@ext/" "@ext//" ("//") nil 4) ("@ext//" "@ext//" (":" "ext-pkg" "...") nil 6) ("@ext//:" "@ext//:" ("all" "all-targets" "*") nil 7) ("@ext//:a" "@ext//:all" ("all" "all-targets") nil 7) ("@ext//:all" "@ext//:all" ("all" "all-targets") t 7) ("@ext//." "@ext//..." ("...") nil 6) ("@ext//..." "@ext//..." ("..." "...:") t 6) ("@ext//...:*" t ("*") t 10) ("@ext//e" "@ext//ext-pkg" ("ext-pkg") nil 6) ("@ext//ext-pkg" "@ext//ext-pkg" ("ext-pkg") t 6) ("@ext//ext-pkg/" "@ext//ext-pkg/..." ("...") nil 14) ("@ext//ext-pkg:" "@ext//ext-pkg:" ("all" "all-targets" "*") nil 14) ("@q" nil nil nil 1) ("@qux" nil nil nil 1) ("@qux//:" nil nil nil 7) ("@qux//p" nil nil nil 6)))) (while tail (let ((x539 (car tail))) (progn (ignore (consp x539)) (let* ((x540 (car-safe x539)) (x541 (cdr-safe x539))) (progn (ignore (consp x541)) (let* (... ...) (progn ... ...))))) (setq tail (cdr tail))))) + (let ((dir (file-name-as-directory directory))) (make-symbolic-link dir (expand-file-name "bazel-out" dir)) (let ((tail '(("@" "@" ("ext" "//") nil 1) ("@/" "@//" ("//") nil 1) ("@//" "@//" (":" "main-pkg" "...") nil 3) ("@//:" "@//:" ("all" "all-targets" "*") nil 4) ("@//:all" "@//:all" ("all" "all-targets") t 4) ("@//." "@//..." ("...") nil 3) ("@//..." "@//..." ("..." "...:") t 3) ("@//...:*" t ("*") t 7) ("@//m" "@//main-pkg" ("main-pkg") nil 3) ("@//main-pkg" "@//main-pkg" ("main-pkg") t 3) ("@e" "@ext" ("ext") nil 1) ("@ext" t ("ext" "ext//") t 1) ("@ext/" "@ext//" ("//") nil 4) ("@ext//" "@ext//" (":" "ext-pkg" "...") nil 6) ("@ext//:" "@ext//:" ("all" "all-targets" "*") nil 7) ("@ext//:a" "@ext//:all" ("all" "all-targets") nil 7) ("@ext//:all" "@ext//:all" ("all" "all-targets") t 7) ("@ext//." "@ext//..." ("...") nil 6) ("@ext//..." "@ext//..." ("..." "...:") t 6) ("@ext//...:*" t ("*") t 10) ("@ext//e" "@ext//ext-pkg" ("ext-pkg") nil 6) ("@ext//ext-pkg" "@ext//ext-pkg" ("ext-pkg") t 6) ("@ext//ext-pkg/" "@ext//ext-pkg/..." ("...") nil 14) ("@ext//ext-pkg:" "@ext//ext-pkg:" ("all" "all-targets" "*") nil 14) ("@q" nil nil nil 1) ("@qux" nil nil nil 1) ("@qux//:" nil nil nil 7) ("@qux//p" nil nil nil 6)))) (while tail (let ((x539 (car tail))) (progn (ignore (consp x539)) (let* ((x540 ...) (x541 ...)) (progn (ignore ...) (let* ... ...)))) (setq tail (cdr tail)))))) + (prog1 (let ((dir (file-name-as-directory directory))) (make-symbolic-link dir (expand-file-name "bazel-out" dir)) (let ((tail '(("@" "@" ... nil 1) ("@/" "@//" ... nil 1) ("@//" "@//" ... nil 3) ("@//:" "@//:" ... nil 4) ("@//:all" "@//:all" ... t 4) ("@//." "@//..." ... nil 3) ("@//..." "@//..." ... t 3) ("@//...:*" t ... t 7) ("@//m" "@//main-pkg" ... nil 3) ("@//main-pkg" "@//main-pkg" ... t 3) ("@e" "@ext" ... nil 1) ("@ext" t ... t 1) ("@ext/" "@ext//" ... nil 4) ("@ext//" "@ext//" ... nil 6) ("@ext//:" "@ext//:" ... nil 7) ("@ext//:a" "@ext//:all" ... nil 7) ("@ext//:all" "@ext//:all" ... t 7) ("@ext//." "@ext//..." ... nil 6) ("@ext//..." "@ext//..." ... t 6) ("@ext//...:*" t ... t 10) ("@ext//e" "@ext//ext-pkg" ... nil 6) ("@ext//ext-pkg" "@ext//ext-pkg" ... t 6) ("@ext//ext-pkg/" "@ext//ext-pkg/..." ... nil 14) ("@ext//ext-pkg:" "@ext//ext-pkg:" ... nil 14) ("@q" nil nil nil 1) ("@qux" nil nil nil 1) ("@qux//:" nil nil nil 7) ("@qux//p" nil nil nil 6)))) (while tail (let ((x539 (car tail))) (progn (ignore (consp x539)) (let* (... ...) (progn ... ...))) (setq tail (cdr tail)))))) (delete-directory directory :recursive)) + (progn (let* ((file (and t "target-completion-workspace.org"))) (if file (bazel-test--tangle directory file) nil)) (prog1 (let ((dir (file-name-as-directory directory))) (make-symbolic-link dir (expand-file-name "bazel-out" dir)) (let ((tail '(... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...))) (while tail (let ((x539 ...)) (progn (ignore ...) (let* ... ...)) (setq tail (cdr tail)))))) (delete-directory directory :recursive))) + (let ((ert--infos (cons (cons "Temporary directory: " directory) ert--infos))) (progn (let* ((file (and t "target-completion-workspace.org"))) (if file (bazel-test--tangle directory file) nil)) (prog1 (let ((dir (file-name-as-directory directory))) (make-symbolic-link dir (expand-file-name "bazel-out" dir)) (let ((tail '...)) (while tail (let (...) (progn ... ...) (setq tail ...))))) (delete-directory directory :recursive)))) + (let ((directory (make-temp-file "bazel-mode-test-" :dir-flag))) (let ((ert--infos (cons (cons "Temporary directory: " directory) ert--infos))) (progn (let* ((file (and t "target-completion-workspace.org"))) (if file (bazel-test--tangle directory file) nil)) (prog1 (let ((dir (file-name-as-directory directory))) (make-symbolic-link dir (expand-file-name "bazel-out" dir)) (let ((tail ...)) (while tail (let ... ... ...)))) (delete-directory directory :recursive))))) + #f(lambda () [t] (let ((directory (make-temp-file "bazel-mode-test-" :dir-flag))) (let ((ert--infos ...)) (progn (let* ... ...) (prog1 ... ...)))) 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 ... :result ... :exit-continuation #f(compiled-function () #) :ert-debug-on-error nil)) + ert-run-test(#s(ert-test :name bazel--target-completion-table/workspace :documentation "Test workspace name completion." :body #f(lambda () ... ... nil) :most-recent-result #s(ert-test-failed :messages "Tangled 6 code blocks from target-completion-workspace.org\n" :should-forms ... :duration 0.017003902 :condition ... :backtrace ... :infos ...) :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/test.el")) + ert-run-or-rerun-test(#s(ert--stats :selector t :tests ... :test-map # :test-results ... :test-start-times ... :test-end-times ... :passed-expected 0 :passed-unexpected 0 :failed-expected 0 :failed-unexpected 3 :skipped 0 :start-time ... :end-time nil :aborted-p nil ...) #s(ert-test :name bazel--target-completion-table/workspace :documentation "Test workspace name completion." :body #f(lambda () ... ... nil) :most-recent-result ... :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/test.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() + eval((ert-run-tests-batch-and-exit) t) + 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" "." "--eval" "(progn (setenv \"TEST_SRCDIR\" \".\") (setenv \"TEST_WORKSPACE\" \".\"))" "-l" "test.el" "--eval" "(ert-run-tests-batch-and-exit)" "'(not (or \"bazel--target-completion-table/root-package\" \"bazel--target-completion-table/subpackage\" \"bazel--target-completion-table/workspace\" \"bazel-build-mode/beginning-of-defun\" \"bazel-build-mode/end-of-defun\" \"bazel-build-mode/imenu\" \"bazel-buildifier/failure\" \"bazel-completion-at-point\" \"bazel-fix-visibility\" \"bazel-insert-http-archive\" \"bazel-insert-http-archive/no-directory\" \"bazel-insert-http-archive/no-unique-prefix\" \"bazel-mode-flymake\" \"bazel-mode/compile\" \"bazel-mode/ffap\" \"bazel-mode/indent-region\" \"bazel-mode/speedbar\" \"bazel-mode/which-function\" \"bazel-mode/xref\" \"bazel-test-at-point\" \"bazel-test-at-point/c++-mode\" \"bazel-test-at-point/go-mode\" \"bazel-test-at-point/python-mode\" \"bazel-test/completion\" \"bazel-test/coverage\" \"bazel/project\" \"bazel/project-files\" \"bazelrc-ffap\"))")) + command-line() + normal-top-level() + +Test bazel--target-completion-table/workspace condition: + Temporary directory: /tmp/bazel-mode-test-JhrWdR + Input: "@" + (ert-test-failed + ((should (equal (try-completion string table) try)) :form + (equal nil "@") :value nil :explanation (different-types nil "@"))) + FAILED 3/46 bazel--target-completion-table/workspace (0.017004 sec) at test.el:719 + passed 4/46 bazel-build (0.000145 sec) Tangled 2 code blocks from defun-navigation.org - passed 5/46 bazel-build-mode/beginning-of-defun (0.021040 sec) +Test bazel-build-mode/beginning-of-defun backtrace: + access-file("/tmp/bazel-mode-test-wyozvw/BUILD" "Visiting test file") + (let ((previous-buffers (buffer-list))) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let ((buffer (current-buffer))) (unwind-protect (progn (search-forward "bazel.el") (beginning-of-defun) (let* ((fn-224 ...) (args-225 ...)) (let (...) (let ... ...) value-226))) (if (memq buffer previous-buffers) nil (kill-buffer buffer)))))) + (let ((ert--infos (cons (cons "Visited test file: " filename) ert--infos))) (let ((previous-buffers (buffer-list))) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let ((buffer (current-buffer))) (unwind-protect (progn (search-forward "bazel.el") (beginning-of-defun) (let* (... ...) (let ... ... value-226))) (if (memq buffer previous-buffers) nil (kill-buffer buffer))))))) + (let* ((filename (expand-file-name "BUILD" dir))) (let ((ert--infos (cons (cons "Visited test file: " filename) ert--infos))) (let ((previous-buffers (buffer-list))) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let ((buffer (current-buffer))) (unwind-protect (progn (search-forward "bazel.el") (beginning-of-defun) (let* ... ...)) (if (memq buffer previous-buffers) nil (kill-buffer buffer)))))))) + (let ((dir (file-name-as-directory directory))) (let* ((filename (expand-file-name "BUILD" dir))) (let ((ert--infos (cons (cons "Visited test file: " filename) ert--infos))) (let ((previous-buffers (buffer-list))) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let ((buffer ...)) (unwind-protect (progn ... ... ...) (if ... nil ...)))))))) + (prog1 (let ((dir (file-name-as-directory directory))) (let* ((filename (expand-file-name "BUILD" dir))) (let ((ert--infos (cons (cons "Visited test file: " filename) ert--infos))) (let ((previous-buffers (buffer-list))) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let (...) (unwind-protect ... ...))))))) (delete-directory directory :recursive)) + (progn (let* ((file (and t "defun-navigation.org"))) (if file (bazel-test--tangle directory file) nil)) (prog1 (let ((dir (file-name-as-directory directory))) (let* ((filename (expand-file-name "BUILD" dir))) (let ((ert--infos (cons ... ert--infos))) (let ((previous-buffers ...)) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let ... ...)))))) (delete-directory directory :recursive))) + (let ((ert--infos (cons (cons "Temporary directory: " directory) ert--infos))) (progn (let* ((file (and t "defun-navigation.org"))) (if file (bazel-test--tangle directory file) nil)) (prog1 (let ((dir (file-name-as-directory directory))) (let* ((filename (expand-file-name "BUILD" dir))) (let ((ert--infos ...)) (let (...) (access-file filename "Visiting test file") (save-current-buffer ... ...))))) (delete-directory directory :recursive)))) + (let ((directory (make-temp-file "bazel-mode-test-" :dir-flag))) (let ((ert--infos (cons (cons "Temporary directory: " directory) ert--infos))) (progn (let* ((file (and t "defun-navigation.org"))) (if file (bazel-test--tangle directory file) nil)) (prog1 (let ((dir (file-name-as-directory directory))) (let* ((filename ...)) (let (...) (let ... ... ...)))) (delete-directory directory :recursive))))) + #f(lambda () [t] (let ((directory (make-temp-file "bazel-mode-test-" :dir-flag))) (let ((ert--infos ...)) (progn (let* ... ...) (prog1 ... ...)))) 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 bazel-build-mode/beginning-of-defun :documentation "Check that ‘beginning-of-defun’ moves to the beginning of the rule." :body #f(lambda () [t] (let ... ...) nil) :most-recent-result #s(ert-test-failed :messages "Tangled 2 code blocks from defun-navigation.org\n" :should-forms nil :duration 0.01041868 :condition (file-missing "Visiting test file" "No such file or directory" "/tmp/bazel-mode-test-wyozvw/BUILD") :backtrace (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :infos (... ...)) :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/test.el") :result #s(ert-test-failed :messages "Tangled 2 code blocks from defun-navigation.org\n" :should-forms nil :duration 0.01041868 :condition (file-missing "Visiting test file" "No such file or directory" "/tmp/bazel-mode-test-wyozvw/BUILD") :backtrace (#s(backtrace-frame :evald t :fun access-file :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 let :args ... :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun prog1 :args ... :flags nil :locals nil :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 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 eval :args ... :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 (("Temporary directory: " . "/tmp/bazel-mode-test-wyozvw") ("Visited test file: " . "/tmp/bazel-mode-test-wyozvw/BUILD"))) :exit-continuation #f(compiled-function () #) :ert-debug-on-error nil)) + ert-run-test(#s(ert-test :name bazel-build-mode/beginning-of-defun :documentation "Check that ‘beginning-of-defun’ moves to the beginning of the rule." :body #f(lambda () [t] (let ((directory ...)) (let (...) (progn ... ...))) nil) :most-recent-result #s(ert-test-failed :messages "Tangled 2 code blocks from defun-navigation.org\n" :should-forms nil :duration 0.01041868 :condition (file-missing "Visiting test file" "No such file or directory" "/tmp/bazel-mode-test-wyozvw/BUILD") :backtrace (#s(backtrace-frame :evald t :fun access-file :args ("/tmp/bazel-mode-test-wyozvw/BUILD" "Visiting test file") :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 let :args (... ...) :flags nil :locals (... ...) :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun prog1 :args (... ...) :flags nil :locals nil :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 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 eval :args (... t) :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 (("Temporary directory: " . "/tmp/bazel-mode-test-wyozvw") ("Visited test file: " . "/tmp/bazel-mode-test-wyozvw/BUILD"))) :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/test.el")) + ert-run-or-rerun-test(#s(ert--stats :selector t :tests ... :test-map # :test-results ... :test-start-times ... :test-end-times ... :passed-expected 1 :passed-unexpected 0 :failed-expected 0 :failed-unexpected 4 :skipped 0 :start-time ... :end-time nil :aborted-p nil ...) #s(ert-test :name bazel-build-mode/beginning-of-defun :documentation "Check that ‘beginning-of-defun’ moves to the beginning of the rule." :body #f(lambda () ... ... nil) :most-recent-result ... :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/test.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() + eval((ert-run-tests-batch-and-exit) t) + 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" "." "--eval" "(progn (setenv \"TEST_SRCDIR\" \".\") (setenv \"TEST_WORKSPACE\" \".\"))" "-l" "test.el" "--eval" "(ert-run-tests-batch-and-exit)" "'(not (or \"bazel--target-completion-table/root-package\" \"bazel--target-completion-table/subpackage\" \"bazel--target-completion-table/workspace\" \"bazel-build-mode/beginning-of-defun\" \"bazel-build-mode/end-of-defun\" \"bazel-build-mode/imenu\" \"bazel-buildifier/failure\" \"bazel-completion-at-point\" \"bazel-fix-visibility\" \"bazel-insert-http-archive\" \"bazel-insert-http-archive/no-directory\" \"bazel-insert-http-archive/no-unique-prefix\" \"bazel-mode-flymake\" \"bazel-mode/compile\" \"bazel-mode/ffap\" \"bazel-mode/indent-region\" \"bazel-mode/speedbar\" \"bazel-mode/which-function\" \"bazel-mode/xref\" \"bazel-test-at-point\" \"bazel-test-at-point/c++-mode\" \"bazel-test-at-point/go-mode\" \"bazel-test-at-point/python-mode\" \"bazel-test/completion\" \"bazel-test/coverage\" \"bazel/project\" \"bazel/project-files\" \"bazelrc-ffap\"))")) + command-line() + normal-top-level() + +Test bazel-build-mode/beginning-of-defun condition: + Temporary directory: /tmp/bazel-mode-test-wyozvw + Visited test file: /tmp/bazel-mode-test-wyozvw/BUILD + (file-missing "Visiting test file" "No such file or directory" + "/tmp/bazel-mode-test-wyozvw/BUILD") + FAILED 5/46 bazel-build-mode/beginning-of-defun (0.010419 sec) at test.el:315 Tangled 2 code blocks from defun-navigation.org - passed 6/46 bazel-build-mode/end-of-defun (0.020101 sec) - passed 7/46 bazel-build-mode/fill (0.002539 sec) - passed 8/46 bazel-build-mode/font-lock (0.000865 sec) +Test bazel-build-mode/end-of-defun backtrace: + access-file("/tmp/bazel-mode-test-lencBv/BUILD" "Visiting test file") + (let ((previous-buffers (buffer-list))) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let ((buffer (current-buffer))) (unwind-protect (progn (search-forward "bazel.el") (end-of-defun) (let* ((fn-229 ...) (args-230 ...)) (let (...) (let ... ...) value-231))) (if (memq buffer previous-buffers) nil (kill-buffer buffer)))))) + (let ((ert--infos (cons (cons "Visited test file: " filename) ert--infos))) (let ((previous-buffers (buffer-list))) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let ((buffer (current-buffer))) (unwind-protect (progn (search-forward "bazel.el") (end-of-defun) (let* (... ...) (let ... ... value-231))) (if (memq buffer previous-buffers) nil (kill-buffer buffer))))))) + (let* ((filename (expand-file-name "BUILD" dir))) (let ((ert--infos (cons (cons "Visited test file: " filename) ert--infos))) (let ((previous-buffers (buffer-list))) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let ((buffer (current-buffer))) (unwind-protect (progn (search-forward "bazel.el") (end-of-defun) (let* ... ...)) (if (memq buffer previous-buffers) nil (kill-buffer buffer)))))))) + (let ((dir (file-name-as-directory directory))) (let* ((filename (expand-file-name "BUILD" dir))) (let ((ert--infos (cons (cons "Visited test file: " filename) ert--infos))) (let ((previous-buffers (buffer-list))) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let ((buffer ...)) (unwind-protect (progn ... ... ...) (if ... nil ...)))))))) + (prog1 (let ((dir (file-name-as-directory directory))) (let* ((filename (expand-file-name "BUILD" dir))) (let ((ert--infos (cons (cons "Visited test file: " filename) ert--infos))) (let ((previous-buffers (buffer-list))) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let (...) (unwind-protect ... ...))))))) (delete-directory directory :recursive)) + (progn (let* ((file (and t "defun-navigation.org"))) (if file (bazel-test--tangle directory file) nil)) (prog1 (let ((dir (file-name-as-directory directory))) (let* ((filename (expand-file-name "BUILD" dir))) (let ((ert--infos (cons ... ert--infos))) (let ((previous-buffers ...)) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let ... ...)))))) (delete-directory directory :recursive))) + (let ((ert--infos (cons (cons "Temporary directory: " directory) ert--infos))) (progn (let* ((file (and t "defun-navigation.org"))) (if file (bazel-test--tangle directory file) nil)) (prog1 (let ((dir (file-name-as-directory directory))) (let* ((filename (expand-file-name "BUILD" dir))) (let ((ert--infos ...)) (let (...) (access-file filename "Visiting test file") (save-current-buffer ... ...))))) (delete-directory directory :recursive)))) + (let ((directory (make-temp-file "bazel-mode-test-" :dir-flag))) (let ((ert--infos (cons (cons "Temporary directory: " directory) ert--infos))) (progn (let* ((file (and t "defun-navigation.org"))) (if file (bazel-test--tangle directory file) nil)) (prog1 (let ((dir (file-name-as-directory directory))) (let* ((filename ...)) (let (...) (let ... ... ...)))) (delete-directory directory :recursive))))) + #f(lambda () [t] (let ((directory (make-temp-file "bazel-mode-test-" :dir-flag))) (let ((ert--infos ...)) (progn (let* ... ...) (prog1 ... ...)))) 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 bazel-build-mode/end-of-defun :documentation "Check that ‘end-of-defun’ moves to the end of the rule." :body #f(lambda () [t] (let ... ...) nil) :most-recent-result #s(ert-test-failed :messages "Tangled 2 code blocks from defun-navigation.org\n" :should-forms nil :duration 0.026329167 :condition (file-missing "Visiting test file" "No such file or directory" "/tmp/bazel-mode-test-lencBv/BUILD") :backtrace (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :infos (... ...)) :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/test.el") :result #s(ert-test-failed :messages "Tangled 2 code blocks from defun-navigation.org\n" :should-forms nil :duration 0.026329167 :condition (file-missing "Visiting test file" "No such file or directory" "/tmp/bazel-mode-test-lencBv/BUILD") :backtrace (#s(backtrace-frame :evald t :fun access-file :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 let :args ... :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun prog1 :args ... :flags nil :locals nil :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 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 eval :args ... :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 (("Temporary directory: " . "/tmp/bazel-mode-test-lencBv") ("Visited test file: " . "/tmp/bazel-mode-test-lencBv/BUILD"))) :exit-continuation #f(compiled-function () #) :ert-debug-on-error nil)) + ert-run-test(#s(ert-test :name bazel-build-mode/end-of-defun :documentation "Check that ‘end-of-defun’ moves to the end of the rule." :body #f(lambda () [t] (let ((directory ...)) (let (...) (progn ... ...))) nil) :most-recent-result #s(ert-test-failed :messages "Tangled 2 code blocks from defun-navigation.org\n" :should-forms nil :duration 0.026329167 :condition (file-missing "Visiting test file" "No such file or directory" "/tmp/bazel-mode-test-lencBv/BUILD") :backtrace (#s(backtrace-frame :evald t :fun access-file :args ("/tmp/bazel-mode-test-lencBv/BUILD" "Visiting test file") :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 let :args (... ...) :flags nil :locals (... ...) :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun prog1 :args (... ...) :flags nil :locals nil :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 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 eval :args (... t) :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 (("Temporary directory: " . "/tmp/bazel-mode-test-lencBv") ("Visited test file: " . "/tmp/bazel-mode-test-lencBv/BUILD"))) :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/test.el")) + ert-run-or-rerun-test(#s(ert--stats :selector t :tests ... :test-map # :test-results ... :test-start-times ... :test-end-times ... :passed-expected 1 :passed-unexpected 0 :failed-expected 0 :failed-unexpected 5 :skipped 0 :start-time ... :end-time nil :aborted-p nil ...) #s(ert-test :name bazel-build-mode/end-of-defun :documentation "Check that ‘end-of-defun’ moves to the end of the rule." :body #f(lambda () ... ... nil) :most-recent-result ... :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/test.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() + eval((ert-run-tests-batch-and-exit) t) + 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" "." "--eval" "(progn (setenv \"TEST_SRCDIR\" \".\") (setenv \"TEST_WORKSPACE\" \".\"))" "-l" "test.el" "--eval" "(ert-run-tests-batch-and-exit)" "'(not (or \"bazel--target-completion-table/root-package\" \"bazel--target-completion-table/subpackage\" \"bazel--target-completion-table/workspace\" \"bazel-build-mode/beginning-of-defun\" \"bazel-build-mode/end-of-defun\" \"bazel-build-mode/imenu\" \"bazel-buildifier/failure\" \"bazel-completion-at-point\" \"bazel-fix-visibility\" \"bazel-insert-http-archive\" \"bazel-insert-http-archive/no-directory\" \"bazel-insert-http-archive/no-unique-prefix\" \"bazel-mode-flymake\" \"bazel-mode/compile\" \"bazel-mode/ffap\" \"bazel-mode/indent-region\" \"bazel-mode/speedbar\" \"bazel-mode/which-function\" \"bazel-mode/xref\" \"bazel-test-at-point\" \"bazel-test-at-point/c++-mode\" \"bazel-test-at-point/go-mode\" \"bazel-test-at-point/python-mode\" \"bazel-test/completion\" \"bazel-test/coverage\" \"bazel/project\" \"bazel/project-files\" \"bazelrc-ffap\"))")) + command-line() + normal-top-level() + +Test bazel-build-mode/end-of-defun condition: + Temporary directory: /tmp/bazel-mode-test-lencBv + Visited test file: /tmp/bazel-mode-test-lencBv/BUILD + (file-missing "Visiting test file" "No such file or directory" + "/tmp/bazel-mode-test-lencBv/BUILD") + FAILED 6/46 bazel-build-mode/end-of-defun (0.026329 sec) at test.el:324 + passed 7/46 bazel-build-mode/fill (0.001032 sec) + passed 8/46 bazel-build-mode/font-lock (0.000571 sec) Tangled 8 code blocks from xref.org - passed 9/46 bazel-build-mode/imenu (0.065776 sec) - passed 10/46 bazel-buildifier-before-save (0.085892 sec) +Test bazel-build-mode/imenu backtrace: + insert-file-contents("/tmp/bazel-mode-test-X9u6PC/root/BUILD") + (progn (insert-file-contents (expand-file-name "root/BUILD" dir)) (bazel-build-mode) (let ((imenu-use-markers nil)) (let* ((fn-281 #'equal) (args-282 (condition-case err (list (funcall imenu-create-index-function) '...) (error (progn ... ...))))) (let ((value-283 'ert-form-evaluation-aborted-284)) (let (form-description-285) (if (unwind-protect (setq value-283 ...) (setq form-description-285 ...) (ert--signal-should-execution form-description-285)) nil (ert-fail form-description-285))) value-283))) (let ((imenu-use-markers t)) (let* ((fn-286 #'equal) (args-287 (condition-case err (list (funcall imenu-create-index-function) (list ... ...)) (error (progn ... ...))))) (let ((value-288 'ert-form-evaluation-aborted-289)) (let (form-description-290) (if (unwind-protect (setq value-288 ...) (setq form-description-290 ...) (ert--signal-should-execution form-description-290)) nil (ert-fail form-description-290))) value-288)))) + (unwind-protect (progn (insert-file-contents (expand-file-name "root/BUILD" dir)) (bazel-build-mode) (let ((imenu-use-markers nil)) (let* ((fn-281 #'equal) (args-282 (condition-case err (list ... ...) (error ...)))) (let ((value-283 'ert-form-evaluation-aborted-284)) (let (form-description-285) (if (unwind-protect ... ... ...) nil (ert-fail form-description-285))) value-283))) (let ((imenu-use-markers t)) (let* ((fn-286 #'equal) (args-287 (condition-case err (list ... ...) (error ...)))) (let ((value-288 'ert-form-evaluation-aborted-289)) (let (form-description-290) (if (unwind-protect ... ... ...) nil (ert-fail form-description-290))) value-288)))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))) + (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert-file-contents (expand-file-name "root/BUILD" dir)) (bazel-build-mode) (let ((imenu-use-markers nil)) (let* ((fn-281 #'equal) (args-282 (condition-case err ... ...))) (let ((value-283 ...)) (let (form-description-285) (if ... nil ...)) value-283))) (let ((imenu-use-markers t)) (let* ((fn-286 #'equal) (args-287 (condition-case err ... ...))) (let ((value-288 ...)) (let (form-description-290) (if ... nil ...)) value-288)))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))) + (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert-file-contents (expand-file-name "root/BUILD" dir)) (bazel-build-mode) (let ((imenu-use-markers nil)) (let* ((fn-281 ...) (args-282 ...)) (let (...) (let ... ...) value-283))) (let ((imenu-use-markers t)) (let* ((fn-286 ...) (args-287 ...)) (let (...) (let ... ...) value-288)))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) + (let ((dir (file-name-as-directory directory))) (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert-file-contents (expand-file-name "root/BUILD" dir)) (bazel-build-mode) (let ((imenu-use-markers nil)) (let* (... ...) (let ... ... value-283))) (let ((imenu-use-markers t)) (let* (... ...) (let ... ... value-288)))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))))) + (prog1 (let ((dir (file-name-as-directory directory))) (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert-file-contents (expand-file-name "root/BUILD" dir)) (bazel-build-mode) (let (...) (let* ... ...)) (let (...) (let* ... ...))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))))) (delete-directory directory :recursive)) + (progn (let* ((file (and t "xref.org"))) (if file (bazel-test--tangle directory file) nil)) (prog1 (let ((dir (file-name-as-directory directory))) (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert-file-contents ...) (bazel-build-mode) (let ... ...) (let ... ...)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))))) (delete-directory directory :recursive))) + (let ((ert--infos (cons (cons "Temporary directory: " directory) ert--infos))) (progn (let* ((file (and t "xref.org"))) (if file (bazel-test--tangle directory file) nil)) (prog1 (let ((dir (file-name-as-directory directory))) (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn ... ... ... ...) (and ... ...))))) (delete-directory directory :recursive)))) + (let ((directory (make-temp-file "bazel-mode-test-" :dir-flag))) (let ((ert--infos (cons (cons "Temporary directory: " directory) ert--infos))) (progn (let* ((file (and t "xref.org"))) (if file (bazel-test--tangle directory file) nil)) (prog1 (let ((dir (file-name-as-directory directory))) (let ((temp-buffer ...)) (save-current-buffer (set-buffer temp-buffer) (unwind-protect ... ...)))) (delete-directory directory :recursive))))) + #f(lambda () [t] (let ((directory (make-temp-file "bazel-mode-test-" :dir-flag))) (let ((ert--infos ...)) (progn (let* ... ...) (prog1 ... ...)))) 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 bazel-build-mode/imenu :documentation "Check that ‘imenu’ finds BUILD rules." :body #f(lambda () [t] (let ... ...) nil) :most-recent-result #s(ert-test-failed :messages "Tangled 8 code blocks from xref.org\n" :should-forms nil :duration 0.037311127 :condition (file-missing "Opening input file" "No such file or directory" "/tmp/bazel-mode-test-X9u6PC/root/BUILD") :backtrace (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :infos (...)) :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/test.el") :result #s(ert-test-failed :messages "Tangled 8 code blocks from xref.org\n" :should-forms nil :duration 0.037311127 :condition (file-missing "Opening input file" "No such file or directory" "/tmp/bazel-mode-test-X9u6PC/root/BUILD") :backtrace (#s(backtrace-frame :evald t :fun insert-file-contents :args ... :flags nil :locals nil :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 unwind-protect :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 let :args ... :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun prog1 :args ... :flags nil :locals nil :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 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 eval :args ... :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 (("Temporary directory: " . "/tmp/bazel-mode-test-X9u6PC"))) :exit-continuation #f(compiled-function () #) :ert-debug-on-error nil)) + ert-run-test(#s(ert-test :name bazel-build-mode/imenu :documentation "Check that ‘imenu’ finds BUILD rules." :body #f(lambda () [t] (let ((directory ...)) (let (...) (progn ... ...))) nil) :most-recent-result #s(ert-test-failed :messages "Tangled 8 code blocks from xref.org\n" :should-forms nil :duration 0.037311127 :condition (file-missing "Opening input file" "No such file or directory" "/tmp/bazel-mode-test-X9u6PC/root/BUILD") :backtrace (#s(backtrace-frame :evald t :fun insert-file-contents :args ("/tmp/bazel-mode-test-X9u6PC/root/BUILD") :flags nil :locals nil :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 unwind-protect :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 let :args (... ...) :flags nil :locals (... ...) :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun prog1 :args (... ...) :flags nil :locals nil :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 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 eval :args (... t) :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 (("Temporary directory: " . "/tmp/bazel-mode-test-X9u6PC"))) :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/test.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 6 :skipped 0 :start-time ... :end-time nil :aborted-p nil ...) #s(ert-test :name bazel-build-mode/imenu :documentation "Check that ‘imenu’ finds BUILD rules." :body #f(lambda () ... ... nil) :most-recent-result ... :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/test.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() + eval((ert-run-tests-batch-and-exit) t) + 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" "." "--eval" "(progn (setenv \"TEST_SRCDIR\" \".\") (setenv \"TEST_WORKSPACE\" \".\"))" "-l" "test.el" "--eval" "(ert-run-tests-batch-and-exit)" "'(not (or \"bazel--target-completion-table/root-package\" \"bazel--target-completion-table/subpackage\" \"bazel--target-completion-table/workspace\" \"bazel-build-mode/beginning-of-defun\" \"bazel-build-mode/end-of-defun\" \"bazel-build-mode/imenu\" \"bazel-buildifier/failure\" \"bazel-completion-at-point\" \"bazel-fix-visibility\" \"bazel-insert-http-archive\" \"bazel-insert-http-archive/no-directory\" \"bazel-insert-http-archive/no-unique-prefix\" \"bazel-mode-flymake\" \"bazel-mode/compile\" \"bazel-mode/ffap\" \"bazel-mode/indent-region\" \"bazel-mode/speedbar\" \"bazel-mode/which-function\" \"bazel-mode/xref\" \"bazel-test-at-point\" \"bazel-test-at-point/c++-mode\" \"bazel-test-at-point/go-mode\" \"bazel-test-at-point/python-mode\" \"bazel-test/completion\" \"bazel-test/coverage\" \"bazel/project\" \"bazel/project-files\" \"bazelrc-ffap\"))")) + command-line() + normal-top-level() + +Test bazel-build-mode/imenu condition: + Temporary directory: /tmp/bazel-mode-test-X9u6PC + (file-missing "Opening input file" "No such file or directory" + "/tmp/bazel-mode-test-X9u6PC/root/BUILD") + FAILED 9/46 bazel-build-mode/imenu (0.037311 sec) at test.el:375 + passed 10/46 bazel-buildifier-before-save (0.088645 sec) Tangled 3 code blocks from buildifier.org - passed 11/46 bazel-buildifier/failure (0.135293 sec) - passed 12/46 bazel-buildifier/success (0.145598 sec) - passed 13/46 bazel-compile-current-file (0.046409 sec) +Test bazel-buildifier/failure backtrace: + insert-file-contents("/tmp/bazel-mode-test-qX1tlk/pkg/BUILD" :visit) + (progn (insert-file-contents (expand-file-name "pkg/BUILD" dir) :visit) (bazel-starlark-mode) (let ((tick-before (buffer-modified-tick)) (temp-buffer-window-show-hook (list #'(lambda nil (setq temp-buffers ...))))) (bazel-buildifier) (let* ((fn-745 #'equal) (args-746 (condition-case err (list (buffer-string) "cc_library(\n") (error (progn ... ...))))) (let ((value-747 'ert-form-evaluation-aborted-748)) (let (form-description-749) (if (unwind-protect (setq value-747 ...) (setq form-description-749 ...) (ert--signal-should-execution form-description-749)) nil (ert-fail form-description-749))) value-747)) (let* ((fn-750 #'eql) (args-751 (condition-case err (list (buffer-modified-tick) tick-before) (error (progn ... ...))))) (let ((value-752 'ert-form-evaluation-aborted-753)) (let (form-description-754) (if (unwind-protect (setq value-752 ...) (setq form-description-754 ...) (ert--signal-should-execution form-description-754)) nil (ert-fail form-description-754))) value-752)))) + (unwind-protect (progn (insert-file-contents (expand-file-name "pkg/BUILD" dir) :visit) (bazel-starlark-mode) (let ((tick-before (buffer-modified-tick)) (temp-buffer-window-show-hook (list #'(lambda nil ...)))) (bazel-buildifier) (let* ((fn-745 #'equal) (args-746 (condition-case err (list ... "cc_library(\n") (error ...)))) (let ((value-747 'ert-form-evaluation-aborted-748)) (let (form-description-749) (if (unwind-protect ... ... ...) nil (ert-fail form-description-749))) value-747)) (let* ((fn-750 #'eql) (args-751 (condition-case err (list ... tick-before) (error ...)))) (let ((value-752 'ert-form-evaluation-aborted-753)) (let (form-description-754) (if (unwind-protect ... ... ...) nil (ert-fail form-description-754))) value-752)))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))) + (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert-file-contents (expand-file-name "pkg/BUILD" dir) :visit) (bazel-starlark-mode) (let ((tick-before (buffer-modified-tick)) (temp-buffer-window-show-hook (list #'...))) (bazel-buildifier) (let* ((fn-745 #'equal) (args-746 (condition-case err ... ...))) (let ((value-747 ...)) (let (form-description-749) (if ... nil ...)) value-747)) (let* ((fn-750 #'eql) (args-751 (condition-case err ... ...))) (let ((value-752 ...)) (let (form-description-754) (if ... nil ...)) value-752)))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))) + (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert-file-contents (expand-file-name "pkg/BUILD" dir) :visit) (bazel-starlark-mode) (let ((tick-before (buffer-modified-tick)) (temp-buffer-window-show-hook (list ...))) (bazel-buildifier) (let* ((fn-745 ...) (args-746 ...)) (let (...) (let ... ...) value-747)) (let* ((fn-750 ...) (args-751 ...)) (let (...) (let ... ...) value-752)))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) + (let* ((bash (executable-find "bash")) (bazel-buildifier-command (expand-file-name "buildifier" dir)) (error-file (expand-file-name "buildifier.err" dir)) (temp-buffers nil)) (let ((value-743 (gensym "ert-form-evaluation-aborted-"))) (let (form-description-744) (if (condition-case nil (progn (unwind-protect (setq value-743 bash) (setq form-description-744 ...) (ert--signal-should-execution form-description-744))) (error nil)) nil (ert-skip form-description-744))) value-743) (let ((temp-file bazel-buildifier-command) (temp-buffer (generate-new-buffer " *temp file*" t))) (unwind-protect (prog1 (save-current-buffer (set-buffer temp-buffer) (insert "#!" (file-name-unquote bash) 10 "set -efu\n" "cat > /dev/null\n" "echo output > \"${@: -1}\"\n" "cat -- " (shell-quote-argument (file-name-unquote error-file)) " >&2\n" "exit 1\n")) (save-current-buffer (set-buffer temp-buffer) (write-region nil nil temp-file nil 0))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))) (set-file-modes bazel-buildifier-command 320) (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert-file-contents (expand-file-name "pkg/BUILD" dir) :visit) (bazel-starlark-mode) (let ((tick-before ...) (temp-buffer-window-show-hook ...)) (bazel-buildifier) (let* (... ...) (let ... ... value-747)) (let* (... ...) (let ... ... value-752)))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (let* ((fn-755 #'eql) (args-756 (condition-case err (list (length temp-buffers) 1) (error (progn (setq fn-755 ...) (list ... ...)))))) (let ((value-757 'ert-form-evaluation-aborted-758)) (let (form-description-759) (if (unwind-protect (setq value-757 (apply fn-755 args-756)) (setq form-description-759 (nconc ... ... ... ...)) (ert--signal-should-execution form-description-759)) nil (ert-fail form-description-759))) value-757)) (save-current-buffer (set-buffer (car temp-buffers)) (let ((ert--infos (cons (cons "Info: " "Error buffer") ert--infos))) (let* ((fn-760 #'file-equal-p) (args-761 (condition-case err (list default-directory dir) (error ...)))) (let ((value-762 'ert-form-evaluation-aborted-763)) (let (form-description-764) (if (unwind-protect ... ... ...) nil (ert-fail form-description-764))) value-762)) (let* ((fn-765 #'equal) (args-766 (condition-case err (list ... "pkg/BUILD:3:1: syntax error\npkg/BUILD # reformat\n\nProcess buildifier exited abnormally with code 1\n") (error ...)))) (let ((value-767 'ert-form-evaluation-aborted-768)) (let (form-description-769) (if (unwind-protect ... ... ...) nil (ert-fail form-description-769))) value-767))))) + (let ((dir (file-name-as-directory directory))) (let* ((bash (executable-find "bash")) (bazel-buildifier-command (expand-file-name "buildifier" dir)) (error-file (expand-file-name "buildifier.err" dir)) (temp-buffers nil)) (let ((value-743 (gensym "ert-form-evaluation-aborted-"))) (let (form-description-744) (if (condition-case nil (progn (unwind-protect ... ... ...)) (error nil)) nil (ert-skip form-description-744))) value-743) (let ((temp-file bazel-buildifier-command) (temp-buffer (generate-new-buffer " *temp file*" t))) (unwind-protect (prog1 (save-current-buffer (set-buffer temp-buffer) (insert "#!" (file-name-unquote bash) 10 "set -efu\n" "cat > /dev/null\n" "echo output > \"${@: -1}\"\n" "cat -- " (shell-quote-argument ...) " >&2\n" "exit 1\n")) (save-current-buffer (set-buffer temp-buffer) (write-region nil nil temp-file nil 0))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))) (set-file-modes bazel-buildifier-command 320) (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert-file-contents (expand-file-name "pkg/BUILD" dir) :visit) (bazel-starlark-mode) (let (... ...) (bazel-buildifier) (let* ... ...) (let* ... ...))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (let* ((fn-755 #'eql) (args-756 (condition-case err (list (length temp-buffers) 1) (error (progn ... ...))))) (let ((value-757 'ert-form-evaluation-aborted-758)) (let (form-description-759) (if (unwind-protect (setq value-757 ...) (setq form-description-759 ...) (ert--signal-should-execution form-description-759)) nil (ert-fail form-description-759))) value-757)) (save-current-buffer (set-buffer (car temp-buffers)) (let ((ert--infos (cons (cons "Info: " "Error buffer") ert--infos))) (let* ((fn-760 #'file-equal-p) (args-761 (condition-case err ... ...))) (let ((value-762 ...)) (let (form-description-764) (if ... nil ...)) value-762)) (let* ((fn-765 #'equal) (args-766 (condition-case err ... ...))) (let ((value-767 ...)) (let (form-description-769) (if ... nil ...)) value-767)))))) + (prog1 (let ((dir (file-name-as-directory directory))) (let* ((bash (executable-find "bash")) (bazel-buildifier-command (expand-file-name "buildifier" dir)) (error-file (expand-file-name "buildifier.err" dir)) (temp-buffers nil)) (let ((value-743 (gensym "ert-form-evaluation-aborted-"))) (let (form-description-744) (if (condition-case nil (progn ...) (error nil)) nil (ert-skip form-description-744))) value-743) (let ((temp-file bazel-buildifier-command) (temp-buffer (generate-new-buffer " *temp file*" t))) (unwind-protect (prog1 (save-current-buffer (set-buffer temp-buffer) (insert "#!" ... 10 "set -efu\n" "cat > /dev/null\n" "echo output > \"${@: -1}\"\n" "cat -- " ... " >&2\n" "exit 1\n")) (save-current-buffer (set-buffer temp-buffer) (write-region nil nil temp-file nil 0))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))) (set-file-modes bazel-buildifier-command 320) (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert-file-contents ... :visit) (bazel-starlark-mode) (let ... ... ... ...)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (let* ((fn-755 #'eql) (args-756 (condition-case err (list ... 1) (error ...)))) (let ((value-757 'ert-form-evaluation-aborted-758)) (let (form-description-759) (if (unwind-protect ... ... ...) nil (ert-fail form-description-759))) value-757)) (save-current-buffer (set-buffer (car temp-buffers)) (let ((ert--infos (cons ... ert--infos))) (let* ((fn-760 ...) (args-761 ...)) (let (...) (let ... ...) value-762)) (let* ((fn-765 ...) (args-766 ...)) (let (...) (let ... ...) value-767)))))) (delete-directory directory :recursive)) + (progn (let* ((file (and t "buildifier.org"))) (if file (bazel-test--tangle directory file) nil)) (prog1 (let ((dir (file-name-as-directory directory))) (let* ((bash (executable-find "bash")) (bazel-buildifier-command (expand-file-name "buildifier" dir)) (error-file (expand-file-name "buildifier.err" dir)) (temp-buffers nil)) (let ((value-743 (gensym "ert-form-evaluation-aborted-"))) (let (form-description-744) (if (condition-case nil ... ...) nil (ert-skip form-description-744))) value-743) (let ((temp-file bazel-buildifier-command) (temp-buffer (generate-new-buffer " *temp file*" t))) (unwind-protect (prog1 (save-current-buffer ... ...) (save-current-buffer ... ...)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))) (set-file-modes bazel-buildifier-command 320) (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn ... ... ...) (and ... ...)))) (let* ((fn-755 #'eql) (args-756 (condition-case err ... ...))) (let ((value-757 ...)) (let (form-description-759) (if ... nil ...)) value-757)) (save-current-buffer (set-buffer (car temp-buffers)) (let ((ert--infos ...)) (let* (... ...) (let ... ... value-762)) (let* (... ...) (let ... ... value-767)))))) (delete-directory directory :recursive))) + (let ((ert--infos (cons (cons "Temporary directory: " directory) ert--infos))) (progn (let* ((file (and t "buildifier.org"))) (if file (bazel-test--tangle directory file) nil)) (prog1 (let ((dir (file-name-as-directory directory))) (let* ((bash (executable-find "bash")) (bazel-buildifier-command (expand-file-name "buildifier" dir)) (error-file (expand-file-name "buildifier.err" dir)) (temp-buffers nil)) (let ((value-743 ...)) (let (form-description-744) (if ... nil ...)) value-743) (let ((temp-file bazel-buildifier-command) (temp-buffer ...)) (unwind-protect (prog1 ... ...) (and ... ...))) (set-file-modes bazel-buildifier-command 320) (let ((temp-buffer ...)) (save-current-buffer (set-buffer temp-buffer) (unwind-protect ... ...))) (let* ((fn-755 ...) (args-756 ...)) (let (...) (let ... ...) value-757)) (save-current-buffer (set-buffer (car temp-buffers)) (let (...) (let* ... ...) (let* ... ...))))) (delete-directory directory :recursive)))) + (let ((directory (make-temp-file "bazel-mode-test-" :dir-flag))) (let ((ert--infos (cons (cons "Temporary directory: " directory) ert--infos))) (progn (let* ((file (and t "buildifier.org"))) (if file (bazel-test--tangle directory file) nil)) (prog1 (let ((dir (file-name-as-directory directory))) (let* ((bash ...) (bazel-buildifier-command ...) (error-file ...) (temp-buffers nil)) (let (...) (let ... ...) value-743) (let (... ...) (unwind-protect ... ...)) (set-file-modes bazel-buildifier-command 320) (let (...) (save-current-buffer ... ...)) (let* (... ...) (let ... ... value-757)) (save-current-buffer (set-buffer ...) (let ... ... ...)))) (delete-directory directory :recursive))))) + #f(lambda () [t] (let ((directory (make-temp-file "bazel-mode-test-" :dir-flag))) (let ((ert--infos ...)) (progn (let* ... ...) (prog1 ... ...)))) 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 bazel-buildifier/failure :documentation nil :body #f(lambda () [t] (let ... ...) nil) :most-recent-result #s(ert-test-failed :messages "Tangled 3 code blocks from buildifier.org\n" :should-forms (...) :duration 0.016374715 :condition (file-missing "Opening input file" "No such file or directory" "/tmp/bazel-mode-test-qX1tlk/pkg/BUILD") :backtrace (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :infos (...)) :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/test.el") :result #s(ert-test-failed :messages "Tangled 3 code blocks from buildifier.org\n" :should-forms ((... :form bash :value "/usr/bin/bash")) :duration 0.016374715 :condition (file-missing "Opening input file" "No such file or directory" "/tmp/bazel-mode-test-qX1tlk/pkg/BUILD") :backtrace (#s(backtrace-frame :evald t :fun insert-file-contents :args ... :flags nil :locals nil :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 unwind-protect :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 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 prog1 :args ... :flags nil :locals nil :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 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 eval :args ... :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 (("Temporary directory: " . "/tmp/bazel-mode-test-qX1tlk"))) :exit-continuation #f(compiled-function () #) :ert-debug-on-error nil)) + ert-run-test(#s(ert-test :name bazel-buildifier/failure :documentation nil :body #f(lambda () [t] (let ((directory ...)) (let (...) (progn ... ...))) nil) :most-recent-result #s(ert-test-failed :messages "Tangled 3 code blocks from buildifier.org\n" :should-forms (((skip-unless bash) :form bash :value "/usr/bin/bash")) :duration 0.016374715 :condition (file-missing "Opening input file" "No such file or directory" "/tmp/bazel-mode-test-qX1tlk/pkg/BUILD") :backtrace (#s(backtrace-frame :evald t :fun insert-file-contents :args ("/tmp/bazel-mode-test-qX1tlk/pkg/BUILD" :visit) :flags nil :locals nil :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 unwind-protect :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 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 prog1 :args (... ...) :flags nil :locals nil :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 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 eval :args (... t) :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 (("Temporary directory: " . "/tmp/bazel-mode-test-qX1tlk"))) :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/test.el")) + ert-run-or-rerun-test(#s(ert--stats :selector t :tests ... :test-map # :test-results ... :test-start-times ... :test-end-times ... :passed-expected 4 :passed-unexpected 0 :failed-expected 0 :failed-unexpected 7 :skipped 0 :start-time ... :end-time nil :aborted-p nil ...) #s(ert-test :name bazel-buildifier/failure :documentation nil :body #f(lambda () ... ... nil) :most-recent-result ... :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/test.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() + eval((ert-run-tests-batch-and-exit) t) + 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" "." "--eval" "(progn (setenv \"TEST_SRCDIR\" \".\") (setenv \"TEST_WORKSPACE\" \".\"))" "-l" "test.el" "--eval" "(ert-run-tests-batch-and-exit)" "'(not (or \"bazel--target-completion-table/root-package\" \"bazel--target-completion-table/subpackage\" \"bazel--target-completion-table/workspace\" \"bazel-build-mode/beginning-of-defun\" \"bazel-build-mode/end-of-defun\" \"bazel-build-mode/imenu\" \"bazel-buildifier/failure\" \"bazel-completion-at-point\" \"bazel-fix-visibility\" \"bazel-insert-http-archive\" \"bazel-insert-http-archive/no-directory\" \"bazel-insert-http-archive/no-unique-prefix\" \"bazel-mode-flymake\" \"bazel-mode/compile\" \"bazel-mode/ffap\" \"bazel-mode/indent-region\" \"bazel-mode/speedbar\" \"bazel-mode/which-function\" \"bazel-mode/xref\" \"bazel-test-at-point\" \"bazel-test-at-point/c++-mode\" \"bazel-test-at-point/go-mode\" \"bazel-test-at-point/python-mode\" \"bazel-test/completion\" \"bazel-test/coverage\" \"bazel/project\" \"bazel/project-files\" \"bazelrc-ffap\"))")) + command-line() + normal-top-level() + +Test bazel-buildifier/failure condition: + Temporary directory: /tmp/bazel-mode-test-qX1tlk + (file-missing "Opening input file" "No such file or directory" + "/tmp/bazel-mode-test-qX1tlk/pkg/BUILD") + FAILED 11/46 bazel-buildifier/failure (0.016375 sec) at test.el:1060 + passed 12/46 bazel-buildifier/success (0.180875 sec) + passed 13/46 bazel-compile-current-file (0.004621 sec) Tangled 2 code blocks from completion-at-point.org - passed 14/46 bazel-completion-at-point (0.076651 sec) - passed 15/46 bazel-find-build-file (0.214530 sec) - passed 16/46 bazel-find-workspace-file (0.181946 sec) +Test bazel-completion-at-point backtrace: + access-file("/tmp/bazel-mode-test-Plo8IN/BUILD" "Visiting test file") + (let ((previous-buffers (buffer-list))) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let ((buffer (current-buffer))) (unwind-protect (let* ((case-fold-search nil) (search-spaces-regexp nil) (got-args nil) (completion-in-region-function #'...)) (let ((ert--infos ...)) (goto-char (point-min)) (completion-at-point) (let (...) (let ... ...) value-616)) (let ((ert--infos ...)) (re-search-forward "^[[:blank:]]+deps = \\[\"\\(//:l\\)\\(i\\)\"]") (let (... ... ... ... ...) (goto-char point) (completion-at-point) (let* ... ...)))) (if (memq buffer previous-buffers) nil (kill-buffer buffer)))))) + (let ((ert--infos (cons (cons "Visited test file: " filename) ert--infos))) (let ((previous-buffers (buffer-list))) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let ((buffer (current-buffer))) (unwind-protect (let* ((case-fold-search nil) (search-spaces-regexp nil) (got-args nil) (completion-in-region-function ...)) (let (...) (goto-char ...) (completion-at-point) (let ... ... value-616)) (let (...) (re-search-forward "^[[:blank:]]+deps = \\[\"\\(//:l\\)\\(i\\)\"]") (let ... ... ... ...))) (if (memq buffer previous-buffers) nil (kill-buffer buffer))))))) + (let* ((filename (expand-file-name "BUILD" dir))) (let ((ert--infos (cons (cons "Visited test file: " filename) ert--infos))) (let ((previous-buffers (buffer-list))) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let ((buffer (current-buffer))) (unwind-protect (let* (... ... ... ...) (let ... ... ... ...) (let ... ... ...)) (if (memq buffer previous-buffers) nil (kill-buffer buffer)))))))) + (let ((dir (file-name-as-directory directory))) (let* ((filename (expand-file-name "BUILD" dir))) (let ((ert--infos (cons (cons "Visited test file: " filename) ert--infos))) (let ((previous-buffers (buffer-list))) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let ((buffer ...)) (unwind-protect (let* ... ... ...) (if ... nil ...)))))))) + (prog1 (let ((dir (file-name-as-directory directory))) (let* ((filename (expand-file-name "BUILD" dir))) (let ((ert--infos (cons (cons "Visited test file: " filename) ert--infos))) (let ((previous-buffers (buffer-list))) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let (...) (unwind-protect ... ...))))))) (delete-directory directory :recursive)) + (progn (let* ((file (and t "completion-at-point.org"))) (if file (bazel-test--tangle directory file) nil)) (prog1 (let ((dir (file-name-as-directory directory))) (let* ((filename (expand-file-name "BUILD" dir))) (let ((ert--infos (cons ... ert--infos))) (let ((previous-buffers ...)) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let ... ...)))))) (delete-directory directory :recursive))) + (let ((ert--infos (cons (cons "Temporary directory: " directory) ert--infos))) (progn (let* ((file (and t "completion-at-point.org"))) (if file (bazel-test--tangle directory file) nil)) (prog1 (let ((dir (file-name-as-directory directory))) (let* ((filename (expand-file-name "BUILD" dir))) (let ((ert--infos ...)) (let (...) (access-file filename "Visiting test file") (save-current-buffer ... ...))))) (delete-directory directory :recursive)))) + (let ((directory (make-temp-file "bazel-mode-test-" :dir-flag))) (let ((ert--infos (cons (cons "Temporary directory: " directory) ert--infos))) (progn (let* ((file (and t "completion-at-point.org"))) (if file (bazel-test--tangle directory file) nil)) (prog1 (let ((dir (file-name-as-directory directory))) (let* ((filename ...)) (let (...) (let ... ... ...)))) (delete-directory directory :recursive))))) + #f(lambda () [t] (let ((directory (make-temp-file "bazel-mode-test-" :dir-flag))) (let ((ert--infos ...)) (progn (let* ... ...) (prog1 ... ...)))) 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 bazel-completion-at-point :documentation "Test for ‘completion-at-point’ in ‘bazel-mode’." :body #f(lambda () [t] (let ... ...) nil) :most-recent-result #s(ert-test-failed :messages "Tangled 2 code blocks from completion-at-point.org\n" :should-forms nil :duration 0.134368873 :condition (file-missing "Visiting test file" "No such file or directory" "/tmp/bazel-mode-test-Plo8IN/BUILD") :backtrace (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :infos (... ...)) :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/test.el") :result #s(ert-test-failed :messages "Tangled 2 code blocks from completion-at-point.org\n" :should-forms nil :duration 0.134368873 :condition (file-missing "Visiting test file" "No such file or directory" "/tmp/bazel-mode-test-Plo8IN/BUILD") :backtrace (#s(backtrace-frame :evald t :fun access-file :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 let :args ... :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun prog1 :args ... :flags nil :locals nil :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 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 eval :args ... :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 (("Temporary directory: " . "/tmp/bazel-mode-test-Plo8IN") ("Visited test file: " . "/tmp/bazel-mode-test-Plo8IN/BUILD"))) :exit-continuation #f(compiled-function () #) :ert-debug-on-error nil)) + ert-run-test(#s(ert-test :name bazel-completion-at-point :documentation "Test for ‘completion-at-point’ in ‘bazel-mode’." :body #f(lambda () [t] (let ((directory ...)) (let (...) (progn ... ...))) nil) :most-recent-result #s(ert-test-failed :messages "Tangled 2 code blocks from completion-at-point.org\n" :should-forms nil :duration 0.134368873 :condition (file-missing "Visiting test file" "No such file or directory" "/tmp/bazel-mode-test-Plo8IN/BUILD") :backtrace (#s(backtrace-frame :evald t :fun access-file :args ("/tmp/bazel-mode-test-Plo8IN/BUILD" "Visiting test file") :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 let :args (... ...) :flags nil :locals (... ...) :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun prog1 :args (... ...) :flags nil :locals nil :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 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 eval :args (... t) :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 (("Temporary directory: " . "/tmp/bazel-mode-test-Plo8IN") ("Visited test file: " . "/tmp/bazel-mode-test-Plo8IN/BUILD"))) :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/test.el")) + ert-run-or-rerun-test(#s(ert--stats :selector t :tests ... :test-map # :test-results ... :test-start-times ... :test-end-times ... :passed-expected 6 :passed-unexpected 0 :failed-expected 0 :failed-unexpected 8 :skipped 0 :start-time ... :end-time nil :aborted-p nil ...) #s(ert-test :name bazel-completion-at-point :documentation "Test for ‘completion-at-point’ in ‘bazel-mode’." :body #f(lambda () ... ... nil) :most-recent-result ... :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/test.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() + eval((ert-run-tests-batch-and-exit) t) + 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" "." "--eval" "(progn (setenv \"TEST_SRCDIR\" \".\") (setenv \"TEST_WORKSPACE\" \".\"))" "-l" "test.el" "--eval" "(ert-run-tests-batch-and-exit)" "'(not (or \"bazel--target-completion-table/root-package\" \"bazel--target-completion-table/subpackage\" \"bazel--target-completion-table/workspace\" \"bazel-build-mode/beginning-of-defun\" \"bazel-build-mode/end-of-defun\" \"bazel-build-mode/imenu\" \"bazel-buildifier/failure\" \"bazel-completion-at-point\" \"bazel-fix-visibility\" \"bazel-insert-http-archive\" \"bazel-insert-http-archive/no-directory\" \"bazel-insert-http-archive/no-unique-prefix\" \"bazel-mode-flymake\" \"bazel-mode/compile\" \"bazel-mode/ffap\" \"bazel-mode/indent-region\" \"bazel-mode/speedbar\" \"bazel-mode/which-function\" \"bazel-mode/xref\" \"bazel-test-at-point\" \"bazel-test-at-point/c++-mode\" \"bazel-test-at-point/go-mode\" \"bazel-test-at-point/python-mode\" \"bazel-test/completion\" \"bazel-test/coverage\" \"bazel/project\" \"bazel/project-files\" \"bazelrc-ffap\"))")) + command-line() + normal-top-level() + +Test bazel-completion-at-point condition: + Temporary directory: /tmp/bazel-mode-test-Plo8IN + Visited test file: /tmp/bazel-mode-test-Plo8IN/BUILD + (file-missing "Visiting test file" "No such file or directory" + "/tmp/bazel-mode-test-Plo8IN/BUILD") + FAILED 14/46 bazel-completion-at-point (0.134369 sec) at test.el:887 + passed 15/46 bazel-find-build-file (0.028746 sec) + passed 16/46 bazel-find-workspace-file (0.027753 sec) Tangled 6 code blocks from fix-visibility.org -Fundamental exited abnormally with code 1 +Test bazel-fix-visibility backtrace: + insert-file-contents("/tmp/bazel-mode-test-yKqkQD/bazel.out") + (progn (insert-file-contents (expand-file-name "bazel.out" workspace)) (let ((bazel-fix-visibility t) (default-directory (expand-file-name "lib/" workspace))) (compilation-handle-exit 'exit 1 "exited abnormally with code 1\n"))) + (unwind-protect (progn (insert-file-contents (expand-file-name "bazel.out" workspace)) (let ((bazel-fix-visibility t) (default-directory (expand-file-name "lib/" workspace))) (compilation-handle-exit 'exit 1 "exited abnormally with code 1\n"))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))) + (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert-file-contents (expand-file-name "bazel.out" workspace)) (let ((bazel-fix-visibility t) (default-directory (expand-file-name "lib/" workspace))) (compilation-handle-exit 'exit 1 "exited abnormally with code 1\n"))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))) + (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert-file-contents (expand-file-name "bazel.out" workspace)) (let ((bazel-fix-visibility t) (default-directory (expand-file-name "lib/" workspace))) (compilation-handle-exit 'exit 1 "exited abnormally with code 1\n"))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) + (progn (fset #'process-file vnew) (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert-file-contents (expand-file-name "bazel.out" workspace)) (let ((bazel-fix-visibility t) (default-directory ...)) (compilation-handle-exit 'exit 1 "exited abnormally with code 1\n"))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (let* ((fn-954 #'equal) (args-955 (condition-case err (list commands '(...)) (error (progn (setq fn-954 ...) (list ... ...)))))) (let ((value-956 'ert-form-evaluation-aborted-957)) (let (form-description-958) (if (unwind-protect (setq value-956 (apply fn-954 args-955)) (setq form-description-958 (nconc ... ... ... ...)) (ert--signal-should-execution form-description-958)) nil (ert-fail form-description-958))) value-956))) + (unwind-protect (progn (fset #'process-file vnew) (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert-file-contents (expand-file-name "bazel.out" workspace)) (let (... ...) (compilation-handle-exit ... 1 "exited abnormally with code 1\n"))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (let* ((fn-954 #'equal) (args-955 (condition-case err (list commands '...) (error (progn ... ...))))) (let ((value-956 'ert-form-evaluation-aborted-957)) (let (form-description-958) (if (unwind-protect (setq value-956 ...) (setq form-description-958 ...) (ert--signal-should-execution form-description-958)) nil (ert-fail form-description-958))) value-956))) (fset #'process-file old)) + (let* ((vnew #'(lambda (program &optional _infile _buffer _display &rest args) (setq commands (cons (cons program args) commands)) 0)) (old (symbol-function #'process-file))) (unwind-protect (progn (fset #'process-file vnew) (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert-file-contents ...) (let ... ...)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (let* ((fn-954 #'equal) (args-955 (condition-case err (list commands ...) (error ...)))) (let ((value-956 'ert-form-evaluation-aborted-957)) (let (form-description-958) (if (unwind-protect ... ... ...) nil (ert-fail form-description-958))) value-956))) (fset #'process-file old))) + (let ((commands nil)) (let* ((vnew #'(lambda (program &optional _infile _buffer _display &rest args) (setq commands (cons ... commands)) 0)) (old (symbol-function #'process-file))) (unwind-protect (progn (fset #'process-file vnew) (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn ... ...) (and ... ...)))) (let* ((fn-954 #'equal) (args-955 (condition-case err ... ...))) (let ((value-956 ...)) (let (form-description-958) (if ... nil ...)) value-956))) (fset #'process-file old)))) + (let ((workspace (file-name-as-directory directory))) (let ((commands nil)) (let* ((vnew #'(lambda (program &optional _infile _buffer _display &rest args) (setq commands ...) 0)) (old (symbol-function #'process-file))) (unwind-protect (progn (fset #'process-file vnew) (let ((temp-buffer ...)) (save-current-buffer (set-buffer temp-buffer) (unwind-protect ... ...))) (let* ((fn-954 ...) (args-955 ...)) (let (...) (let ... ...) value-956))) (fset #'process-file old))))) + (prog1 (let ((workspace (file-name-as-directory directory))) (let ((commands nil)) (let* ((vnew #'(lambda ... ... 0)) (old (symbol-function #'process-file))) (unwind-protect (progn (fset #'process-file vnew) (let (...) (save-current-buffer ... ...)) (let* (... ...) (let ... ... value-956))) (fset #'process-file old))))) (delete-directory directory :recursive)) + (progn (let* ((file (and t "fix-visibility.org"))) (if file (bazel-test--tangle directory file) nil)) (prog1 (let ((workspace (file-name-as-directory directory))) (let ((commands nil)) (let* ((vnew #'...) (old (symbol-function ...))) (unwind-protect (progn (fset ... vnew) (let ... ...) (let* ... ...)) (fset #'process-file old))))) (delete-directory directory :recursive))) + (let ((ert--infos (cons (cons "Temporary directory: " directory) ert--infos))) (progn (let* ((file (and t "fix-visibility.org"))) (if file (bazel-test--tangle directory file) nil)) (prog1 (let ((workspace (file-name-as-directory directory))) (let ((commands nil)) (let* ((vnew ...) (old ...)) (unwind-protect (progn ... ... ...) (fset ... old))))) (delete-directory directory :recursive)))) + (let ((directory (make-temp-file "bazel-mode-test-" :dir-flag))) (let ((ert--infos (cons (cons "Temporary directory: " directory) ert--infos))) (progn (let* ((file (and t "fix-visibility.org"))) (if file (bazel-test--tangle directory file) nil)) (prog1 (let ((workspace (file-name-as-directory directory))) (let ((commands nil)) (let* (... ...) (unwind-protect ... ...)))) (delete-directory directory :recursive))))) + #f(lambda () [t] (let ((directory (make-temp-file "bazel-mode-test-" :dir-flag))) (let ((ert--infos ...)) (progn (let* ... ...) (prog1 ... ...)))) 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 bazel-fix-visibility :documentation nil :body #f(lambda () [t] (let ... ...) nil) :most-recent-result #s(ert-test-failed :messages "Tangled 6 code blocks from fix-visibility.org\n" :should-forms nil :duration 0.019789579 :condition (file-missing "Opening input file" "No such file or directory" "/tmp/bazel-mode-test-yKqkQD/bazel.out") :backtrace (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :infos (...)) :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/test.el") :result #s(ert-test-failed :messages "Tangled 6 code blocks from fix-visibility.org\n" :should-forms nil :duration 0.019789579 :condition (file-missing "Opening input file" "No such file or directory" "/tmp/bazel-mode-test-yKqkQD/bazel.out") :backtrace (#s(backtrace-frame :evald t :fun insert-file-contents :args ... :flags nil :locals nil :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 unwind-protect :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 progn :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 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 prog1 :args ... :flags nil :locals nil :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 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 eval :args ... :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 (("Temporary directory: " . "/tmp/bazel-mode-test-yKqkQD"))) :exit-continuation #f(compiled-function () #) :ert-debug-on-error nil)) + ert-run-test(#s(ert-test :name bazel-fix-visibility :documentation nil :body #f(lambda () [t] (let ((directory ...)) (let (...) (progn ... ...))) nil) :most-recent-result #s(ert-test-failed :messages "Tangled 6 code blocks from fix-visibility.org\n" :should-forms nil :duration 0.019789579 :condition (file-missing "Opening input file" "No such file or directory" "/tmp/bazel-mode-test-yKqkQD/bazel.out") :backtrace (#s(backtrace-frame :evald t :fun insert-file-contents :args ("/tmp/bazel-mode-test-yKqkQD/bazel.out") :flags nil :locals nil :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 unwind-protect :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 progn :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 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 prog1 :args (... ...) :flags nil :locals nil :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 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 eval :args (... t) :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 (("Temporary directory: " . "/tmp/bazel-mode-test-yKqkQD"))) :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/test.el")) + ert-run-or-rerun-test(#s(ert--stats :selector t :tests ... :test-map # :test-results ... :test-start-times ... :test-end-times ... :passed-expected 8 :passed-unexpected 0 :failed-expected 0 :failed-unexpected 9 :skipped 0 :start-time ... :end-time nil :aborted-p nil ...) #s(ert-test :name bazel-fix-visibility :documentation nil :body #f(lambda () ... ... nil) :most-recent-result ... :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/test.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() + eval((ert-run-tests-batch-and-exit) t) + 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" "." "--eval" "(progn (setenv \"TEST_SRCDIR\" \".\") (setenv \"TEST_WORKSPACE\" \".\"))" "-l" "test.el" "--eval" "(ert-run-tests-batch-and-exit)" "'(not (or \"bazel--target-completion-table/root-package\" \"bazel--target-completion-table/subpackage\" \"bazel--target-completion-table/workspace\" \"bazel-build-mode/beginning-of-defun\" \"bazel-build-mode/end-of-defun\" \"bazel-build-mode/imenu\" \"bazel-buildifier/failure\" \"bazel-completion-at-point\" \"bazel-fix-visibility\" \"bazel-insert-http-archive\" \"bazel-insert-http-archive/no-directory\" \"bazel-insert-http-archive/no-unique-prefix\" \"bazel-mode-flymake\" \"bazel-mode/compile\" \"bazel-mode/ffap\" \"bazel-mode/indent-region\" \"bazel-mode/speedbar\" \"bazel-mode/which-function\" \"bazel-mode/xref\" \"bazel-test-at-point\" \"bazel-test-at-point/c++-mode\" \"bazel-test-at-point/go-mode\" \"bazel-test-at-point/python-mode\" \"bazel-test/completion\" \"bazel-test/coverage\" \"bazel/project\" \"bazel/project-files\" \"bazelrc-ffap\"))")) + command-line() + normal-top-level() -Made //:__pkg__ visible to //lib:lib - passed 17/46 bazel-fix-visibility (0.139416 sec) +Test bazel-fix-visibility condition: + Temporary directory: /tmp/bazel-mode-test-yKqkQD + (file-missing "Opening input file" "No such file or directory" + "/tmp/bazel-mode-test-yKqkQD/bazel.out") + FAILED 17/46 bazel-fix-visibility (0.019790 sec) at test.el:1400 Tangled 3 code blocks from http-archive.org -Downloading file:///tmp/bazel-mode-test-lSIpNH/archive.tar.gz into /tmp/bazel-http-archive-MpYhJx... \ -Unknown encoding gzip; defaulting to 8bit -Downloading file:///tmp/bazel-mode-test-lSIpNH/archive.tar.gz into /tmp/bazel-http-archive-MpYhJx... | -Downloading file:///tmp/bazel-mode-test-lSIpNH/archive.tar.gz into /tmp/bazel-http-archive-MpYhJx... / -Downloading file:///tmp/bazel-mode-test-lSIpNH/archive.tar.gz into /tmp/bazel-http-archive-MpYhJx...done - passed 18/46 bazel-insert-http-archive (0.520968 sec) -Downloading file:///tmp/bazel-mode-test-GBLR9b/archive.tar.gz into /tmp/bazel-http-archive-SPoSrT... \ +Test bazel-insert-http-archive backtrace: + set-file-times("/tmp/bazel-mode-test-36b6bP/prefix" (23754 13056) nil) + apply(set-file-times ("/tmp/bazel-mode-test-36b6bP/prefix" (23754 13056))) + (setq value-799 (apply fn-797 args-798)) + (unwind-protect (setq value-799 (apply fn-797 args-798)) (setq form-description-801 (nconc (list '(should (set-file-times (expand-file-name "prefix" dir) (encode-time ...)))) (list :form (cons fn-797 args-798)) (if (eql value-799 'ert-form-evaluation-aborted-800) nil (list :value value-799)) (if (eql value-799 'ert-form-evaluation-aborted-800) nil (let* ((-explainer- (and t ...))) (if -explainer- (list :explanation (apply -explainer- args-798)) nil))))) (ert--signal-should-execution form-description-801)) + (if (unwind-protect (setq value-799 (apply fn-797 args-798)) (setq form-description-801 (nconc (list '(should (set-file-times ... ...))) (list :form (cons fn-797 args-798)) (if (eql value-799 'ert-form-evaluation-aborted-800) nil (list :value value-799)) (if (eql value-799 'ert-form-evaluation-aborted-800) nil (let* ((-explainer- ...)) (if -explainer- (list :explanation ...) nil))))) (ert--signal-should-execution form-description-801)) nil (ert-fail form-description-801)) + (let (form-description-801) (if (unwind-protect (setq value-799 (apply fn-797 args-798)) (setq form-description-801 (nconc (list '(should ...)) (list :form (cons fn-797 args-798)) (if (eql value-799 'ert-form-evaluation-aborted-800) nil (list :value value-799)) (if (eql value-799 'ert-form-evaluation-aborted-800) nil (let* (...) (if -explainer- ... nil))))) (ert--signal-should-execution form-description-801)) nil (ert-fail form-description-801))) + (let ((value-799 'ert-form-evaluation-aborted-800)) (let (form-description-801) (if (unwind-protect (setq value-799 (apply fn-797 args-798)) (setq form-description-801 (nconc (list '...) (list :form (cons fn-797 args-798)) (if (eql value-799 ...) nil (list :value value-799)) (if (eql value-799 ...) nil (let* ... ...)))) (ert--signal-should-execution form-description-801)) nil (ert-fail form-description-801))) value-799) + (let* ((fn-797 #'set-file-times) (args-798 (condition-case err (list (expand-file-name "prefix" dir) (encode-time '(0 0 0 2 5 2019 nil nil t))) (error (progn (setq fn-797 #'signal) (list (car err) (cdr err))))))) (let ((value-799 'ert-form-evaluation-aborted-800)) (let (form-description-801) (if (unwind-protect (setq value-799 (apply fn-797 args-798)) (setq form-description-801 (nconc (list ...) (list :form ...) (if ... nil ...) (if ... nil ...))) (ert--signal-should-execution form-description-801)) nil (ert-fail form-description-801))) value-799)) + (let ((dir (file-name-as-directory directory))) (let* ((fn-797 #'set-file-times) (args-798 (condition-case err (list (expand-file-name "prefix" dir) (encode-time '...)) (error (progn (setq fn-797 ...) (list ... ...)))))) (let ((value-799 'ert-form-evaluation-aborted-800)) (let (form-description-801) (if (unwind-protect (setq value-799 (apply fn-797 args-798)) (setq form-description-801 (nconc ... ... ... ...)) (ert--signal-should-execution form-description-801)) nil (ert-fail form-description-801))) value-799)) (let* ((archive (file-name-unquote (expand-file-name "archive.tar.gz" dir))) (url-unreserved-chars (cons 47 url-unreserved-chars)) (url (concat "file://" (url-hexify-string archive))) (tar (executable-find "tar")) (sha256sum (executable-find "sha256sum")) (default-directory dir)) (let ((value-802 (gensym "ert-form-evaluation-aborted-"))) (let (form-description-803) (if (condition-case nil (progn (unwind-protect ... ... ...)) (error nil)) nil (ert-skip form-description-803))) value-802) (let ((value-804 (gensym "ert-form-evaluation-aborted-"))) (let (form-description-805) (if (condition-case nil (progn (unwind-protect ... ... ...)) (error nil)) nil (ert-skip form-description-805))) value-804) (process-lines tar "-c" "-z" "-f" archive "--" "prefix") (let ((actual (let ((temp-buffer ...)) (save-current-buffer (set-buffer temp-buffer) (unwind-protect ... ...)))) (expected (let ((temp-buffer ...)) (save-current-buffer (set-buffer temp-buffer) (unwind-protect ... ...))))) (let* ((fn-809 #'equal) (args-810 (condition-case err (list actual expected) (error ...)))) (let ((value-811 'ert-form-evaluation-aborted-812)) (let (form-description-813) (if (unwind-protect ... ... ...) nil (ert-fail form-description-813))) value-811))))) + (prog1 (let ((dir (file-name-as-directory directory))) (let* ((fn-797 #'set-file-times) (args-798 (condition-case err (list (expand-file-name "prefix" dir) (encode-time ...)) (error (progn ... ...))))) (let ((value-799 'ert-form-evaluation-aborted-800)) (let (form-description-801) (if (unwind-protect (setq value-799 ...) (setq form-description-801 ...) (ert--signal-should-execution form-description-801)) nil (ert-fail form-description-801))) value-799)) (let* ((archive (file-name-unquote (expand-file-name "archive.tar.gz" dir))) (url-unreserved-chars (cons 47 url-unreserved-chars)) (url (concat "file://" (url-hexify-string archive))) (tar (executable-find "tar")) (sha256sum (executable-find "sha256sum")) (default-directory dir)) (let ((value-802 (gensym "ert-form-evaluation-aborted-"))) (let (form-description-803) (if (condition-case nil (progn ...) (error nil)) nil (ert-skip form-description-803))) value-802) (let ((value-804 (gensym "ert-form-evaluation-aborted-"))) (let (form-description-805) (if (condition-case nil (progn ...) (error nil)) nil (ert-skip form-description-805))) value-804) (process-lines tar "-c" "-z" "-f" archive "--" "prefix") (let ((actual (let (...) (save-current-buffer ... ...))) (expected (let (...) (save-current-buffer ... ...)))) (let* ((fn-809 #'equal) (args-810 (condition-case err ... ...))) (let ((value-811 ...)) (let (form-description-813) (if ... nil ...)) value-811))))) (delete-directory directory :recursive)) + (progn (let* ((file (and t "http-archive.org"))) (if file (bazel-test--tangle directory file) nil)) (prog1 (let ((dir (file-name-as-directory directory))) (let* ((fn-797 #'set-file-times) (args-798 (condition-case err (list ... ...) (error ...)))) (let ((value-799 'ert-form-evaluation-aborted-800)) (let (form-description-801) (if (unwind-protect ... ... ...) nil (ert-fail form-description-801))) value-799)) (let* ((archive (file-name-unquote (expand-file-name "archive.tar.gz" dir))) (url-unreserved-chars (cons 47 url-unreserved-chars)) (url (concat "file://" (url-hexify-string archive))) (tar (executable-find "tar")) (sha256sum (executable-find "sha256sum")) (default-directory dir)) (let ((value-802 (gensym "ert-form-evaluation-aborted-"))) (let (form-description-803) (if (condition-case nil ... ...) nil (ert-skip form-description-803))) value-802) (let ((value-804 (gensym "ert-form-evaluation-aborted-"))) (let (form-description-805) (if (condition-case nil ... ...) nil (ert-skip form-description-805))) value-804) (process-lines tar "-c" "-z" "-f" archive "--" "prefix") (let ((actual (let ... ...)) (expected (let ... ...))) (let* ((fn-809 ...) (args-810 ...)) (let (...) (let ... ...) value-811))))) (delete-directory directory :recursive))) + (let ((ert--infos (cons (cons "Temporary directory: " directory) ert--infos))) (progn (let* ((file (and t "http-archive.org"))) (if file (bazel-test--tangle directory file) nil)) (prog1 (let ((dir (file-name-as-directory directory))) (let* ((fn-797 #'set-file-times) (args-798 (condition-case err ... ...))) (let ((value-799 ...)) (let (form-description-801) (if ... nil ...)) value-799)) (let* ((archive (file-name-unquote ...)) (url-unreserved-chars (cons 47 url-unreserved-chars)) (url (concat "file://" ...)) (tar (executable-find "tar")) (sha256sum (executable-find "sha256sum")) (default-directory dir)) (let ((value-802 ...)) (let (form-description-803) (if ... nil ...)) value-802) (let ((value-804 ...)) (let (form-description-805) (if ... nil ...)) value-804) (process-lines tar "-c" "-z" "-f" archive "--" "prefix") (let ((actual ...) (expected ...)) (let* (... ...) (let ... ... value-811))))) (delete-directory directory :recursive)))) + (let ((directory (make-temp-file "bazel-mode-test-" :dir-flag))) (let ((ert--infos (cons (cons "Temporary directory: " directory) ert--infos))) (progn (let* ((file (and t "http-archive.org"))) (if file (bazel-test--tangle directory file) nil)) (prog1 (let ((dir (file-name-as-directory directory))) (let* ((fn-797 ...) (args-798 ...)) (let (...) (let ... ...) value-799)) (let* ((archive ...) (url-unreserved-chars ...) (url ...) (tar ...) (sha256sum ...) (default-directory dir)) (let (...) (let ... ...) value-802) (let (...) (let ... ...) value-804) (process-lines tar "-c" "-z" "-f" archive "--" "prefix") (let (... ...) (let* ... ...)))) (delete-directory directory :recursive))))) + #f(lambda () [t] (let ((directory (make-temp-file "bazel-mode-test-" :dir-flag))) (let ((ert--infos ...)) (progn (let* ... ...) (prog1 ... ...)))) 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 bazel-insert-http-archive :documentation nil :body #f(lambda () [t] (let ... ...) nil) :most-recent-result #s(ert-test-failed :messages "Tangled 3 code blocks from http-archive.org\n" :should-forms (...) :duration 0.01172069 :condition (file-missing "Setting file times" "No such file or directory" "/tmp/bazel-mode-test-36b6bP/prefix") :backtrace (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :infos (...)) :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/test.el") :result #s(ert-test-failed :messages "Tangled 3 code blocks from http-archive.org\n" :should-forms ((... :form ...)) :duration 0.01172069 :condition (file-missing "Setting file times" "No such file or directory" "/tmp/bazel-mode-test-36b6bP/prefix") :backtrace (#s(backtrace-frame :evald t :fun set-file-times :args ... :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun apply :args ... :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun setq :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 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 let :args ... :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun prog1 :args ... :flags nil :locals nil :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 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 eval :args ... :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 (("Temporary directory: " . "/tmp/bazel-mode-test-36b6bP"))) :exit-continuation #f(compiled-function () #) :ert-debug-on-error nil)) + ert-run-test(#s(ert-test :name bazel-insert-http-archive :documentation nil :body #f(lambda () [t] (let ((directory ...)) (let (...) (progn ... ...))) nil) :most-recent-result #s(ert-test-failed :messages "Tangled 3 code blocks from http-archive.org\n" :should-forms (((should ...) :form (set-file-times "/tmp/bazel-mode-test-36b6bP/prefix" ...))) :duration 0.01172069 :condition (file-missing "Setting file times" "No such file or directory" "/tmp/bazel-mode-test-36b6bP/prefix") :backtrace (#s(backtrace-frame :evald t :fun set-file-times :args ("/tmp/bazel-mode-test-36b6bP/prefix" ... nil) :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun apply :args (set-file-times ...) :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun setq :args (value-799 ...) :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 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-799) :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 prog1 :args (... ...) :flags nil :locals nil :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 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 eval :args (... t) :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 (("Temporary directory: " . "/tmp/bazel-mode-test-36b6bP"))) :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/test.el")) + ert-run-or-rerun-test(#s(ert--stats :selector t :tests ... :test-map # :test-results ... :test-start-times ... :test-end-times ... :passed-expected 8 :passed-unexpected 0 :failed-expected 0 :failed-unexpected 10 :skipped 0 :start-time ... :end-time nil :aborted-p nil ...) #s(ert-test :name bazel-insert-http-archive :documentation nil :body #f(lambda () ... ... nil) :most-recent-result ... :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/test.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() + eval((ert-run-tests-batch-and-exit) t) + 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" "." "--eval" "(progn (setenv \"TEST_SRCDIR\" \".\") (setenv \"TEST_WORKSPACE\" \".\"))" "-l" "test.el" "--eval" "(ert-run-tests-batch-and-exit)" "'(not (or \"bazel--target-completion-table/root-package\" \"bazel--target-completion-table/subpackage\" \"bazel--target-completion-table/workspace\" \"bazel-build-mode/beginning-of-defun\" \"bazel-build-mode/end-of-defun\" \"bazel-build-mode/imenu\" \"bazel-buildifier/failure\" \"bazel-completion-at-point\" \"bazel-fix-visibility\" \"bazel-insert-http-archive\" \"bazel-insert-http-archive/no-directory\" \"bazel-insert-http-archive/no-unique-prefix\" \"bazel-mode-flymake\" \"bazel-mode/compile\" \"bazel-mode/ffap\" \"bazel-mode/indent-region\" \"bazel-mode/speedbar\" \"bazel-mode/which-function\" \"bazel-mode/xref\" \"bazel-test-at-point\" \"bazel-test-at-point/c++-mode\" \"bazel-test-at-point/go-mode\" \"bazel-test-at-point/python-mode\" \"bazel-test/completion\" \"bazel-test/coverage\" \"bazel/project\" \"bazel/project-files\" \"bazelrc-ffap\"))")) + command-line() + normal-top-level() + +Test bazel-insert-http-archive condition: + Temporary directory: /tmp/bazel-mode-test-36b6bP + (file-missing "Setting file times" "No such file or directory" + "/tmp/bazel-mode-test-36b6bP/prefix") + FAILED 18/46 bazel-insert-http-archive (0.011721 sec) at test.el:1126 +Downloading file:///tmp/bazel-mode-test-FMqIlS/archive.tar.gz into /tmp/bazel-http-archive-4KI7Ng... \ Unknown encoding gzip; defaulting to 8bit - passed 19/46 bazel-insert-http-archive/empty (0.128809 sec) + passed 19/46 bazel-insert-http-archive/empty (0.060916 sec) Tangled 1 code block from http-archive-invalid.org -Downloading file:///tmp/bazel-mode-test-tXfiYH/archive.tar.gz into /tmp/bazel-http-archive-Ygdw2X... \ -Unknown encoding gzip; defaulting to 8bit - passed 20/46 bazel-insert-http-archive/invalid-archive (0.078820 sec) +Downloading file:///tmp/bazel-mode-test-RyAMCQ/archive.tar.gz into /tmp/bazel-http-archive-XGPAY0... \ + passed 20/46 bazel-insert-http-archive/invalid-archive (0.010491 sec) Tangled 1 code block from http-archive-no-directory.org -Downloading file:///tmp/bazel-mode-test-Yb9mLy/archive.tar.gz into /tmp/bazel-http-archive-6J960R... \ -Unknown encoding gzip; defaulting to 8bit -Downloading file:///tmp/bazel-mode-test-Yb9mLy/archive.tar.gz into /tmp/bazel-http-archive-6J960R...done - passed 21/46 bazel-insert-http-archive/no-directory (0.182435 sec) +Test bazel-insert-http-archive/no-directory backtrace: + error("%s exited with status %s" "/usr/bin/tar" 2) + process-lines-handling-status("/usr/bin/tar" nil "-c" "-z" "-f" "/tmp/bazel-mode-test-tlj5VA/archive.tar.gz" "--" "WORKSPACE") + process-lines("/usr/bin/tar" "-c" "-z" "-f" "/tmp/bazel-mode-test-tlj5VA/archive.tar.gz" "--" "WORKSPACE") + (let* ((archive (file-name-unquote (expand-file-name "archive.tar.gz" dir))) (url-unreserved-chars (cons 47 url-unreserved-chars)) (url (concat "file://" (url-hexify-string archive))) (tar (executable-find "tar")) (default-directory dir)) (let ((value-853 (gensym "ert-form-evaluation-aborted-"))) (let (form-description-854) (if (condition-case nil (progn (unwind-protect (setq value-853 tar) (setq form-description-854 ...) (ert--signal-should-execution form-description-854))) (error nil)) nil (ert-skip form-description-854))) value-853) (process-lines tar "-c" "-z" "-f" archive "--" "WORKSPACE") (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (bazel-workspace-mode) (bazel-insert-http-archive url) (let* ((fn-855 ...) (args-856 ...)) (let (...) (let ... ...) value-857)) (goto-char (point-min)) (let* ((fn-860 ...) (args-861 ...)) (let (...) (let ... ...) value-862)) (let* ((fn-865 ...) (args-866 ...)) (let (...) (let ... ...) value-867))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))))) + (let ((dir (file-name-as-directory directory))) (let* ((archive (file-name-unquote (expand-file-name "archive.tar.gz" dir))) (url-unreserved-chars (cons 47 url-unreserved-chars)) (url (concat "file://" (url-hexify-string archive))) (tar (executable-find "tar")) (default-directory dir)) (let ((value-853 (gensym "ert-form-evaluation-aborted-"))) (let (form-description-854) (if (condition-case nil (progn (unwind-protect ... ... ...)) (error nil)) nil (ert-skip form-description-854))) value-853) (process-lines tar "-c" "-z" "-f" archive "--" "WORKSPACE") (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (bazel-workspace-mode) (bazel-insert-http-archive url) (let* (... ...) (let ... ... value-857)) (goto-char (point-min)) (let* (... ...) (let ... ... value-862)) (let* (... ...) (let ... ... value-867))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))))) + (prog1 (let ((dir (file-name-as-directory directory))) (let* ((archive (file-name-unquote (expand-file-name "archive.tar.gz" dir))) (url-unreserved-chars (cons 47 url-unreserved-chars)) (url (concat "file://" (url-hexify-string archive))) (tar (executable-find "tar")) (default-directory dir)) (let ((value-853 (gensym "ert-form-evaluation-aborted-"))) (let (form-description-854) (if (condition-case nil (progn ...) (error nil)) nil (ert-skip form-description-854))) value-853) (process-lines tar "-c" "-z" "-f" archive "--" "WORKSPACE") (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (bazel-workspace-mode) (bazel-insert-http-archive url) (let* ... ...) (goto-char ...) (let* ... ...) (let* ... ...)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))))) (delete-directory directory :recursive)) + (progn (let* ((file (and t "http-archive-no-directory.org"))) (if file (bazel-test--tangle directory file) nil)) (prog1 (let ((dir (file-name-as-directory directory))) (let* ((archive (file-name-unquote (expand-file-name "archive.tar.gz" dir))) (url-unreserved-chars (cons 47 url-unreserved-chars)) (url (concat "file://" (url-hexify-string archive))) (tar (executable-find "tar")) (default-directory dir)) (let ((value-853 (gensym "ert-form-evaluation-aborted-"))) (let (form-description-854) (if (condition-case nil ... ...) nil (ert-skip form-description-854))) value-853) (process-lines tar "-c" "-z" "-f" archive "--" "WORKSPACE") (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn ... ... ... ... ... ...) (and ... ...)))))) (delete-directory directory :recursive))) + (let ((ert--infos (cons (cons "Temporary directory: " directory) ert--infos))) (progn (let* ((file (and t "http-archive-no-directory.org"))) (if file (bazel-test--tangle directory file) nil)) (prog1 (let ((dir (file-name-as-directory directory))) (let* ((archive (file-name-unquote ...)) (url-unreserved-chars (cons 47 url-unreserved-chars)) (url (concat "file://" ...)) (tar (executable-find "tar")) (default-directory dir)) (let ((value-853 ...)) (let (form-description-854) (if ... nil ...)) value-853) (process-lines tar "-c" "-z" "-f" archive "--" "WORKSPACE") (let ((temp-buffer ...)) (save-current-buffer (set-buffer temp-buffer) (unwind-protect ... ...))))) (delete-directory directory :recursive)))) + (let ((directory (make-temp-file "bazel-mode-test-" :dir-flag))) (let ((ert--infos (cons (cons "Temporary directory: " directory) ert--infos))) (progn (let* ((file (and t "http-archive-no-directory.org"))) (if file (bazel-test--tangle directory file) nil)) (prog1 (let ((dir (file-name-as-directory directory))) (let* ((archive ...) (url-unreserved-chars ...) (url ...) (tar ...) (default-directory dir)) (let (...) (let ... ...) value-853) (process-lines tar "-c" "-z" "-f" archive "--" "WORKSPACE") (let (...) (save-current-buffer ... ...)))) (delete-directory directory :recursive))))) + #f(lambda () [t] (let ((directory (make-temp-file "bazel-mode-test-" :dir-flag))) (let ((ert--infos ...)) (progn (let* ... ...) (prog1 ... ...)))) 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 bazel-insert-http-archive/no-directory :documentation nil :body #f(lambda () [t] (let ... ...) nil) :most-recent-result #s(ert-test-failed :messages "Tangled 1 code block from http-archive-no-directory.org\n" :should-forms (...) :duration 0.013601372 :condition (error "/usr/bin/tar exited with status 2") :backtrace (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :infos (...)) :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/test.el") :result #s(ert-test-failed :messages "Tangled 1 code block from http-archive-no-directory.org\n" :should-forms ((... :form tar :value "/usr/bin/tar")) :duration 0.013601372 :condition (error "/usr/bin/tar exited with status 2") :backtrace (#s(backtrace-frame :evald t :fun error :args ... :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun process-lines-handling-status :args ... :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun process-lines :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 prog1 :args ... :flags nil :locals nil :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 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 eval :args ... :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 (("Temporary directory: " . "/tmp/bazel-mode-test-tlj5VA"))) :exit-continuation #f(compiled-function () #) :ert-debug-on-error nil)) + ert-run-test(#s(ert-test :name bazel-insert-http-archive/no-directory :documentation nil :body #f(lambda () [t] (let ((directory ...)) (let (...) (progn ... ...))) nil) :most-recent-result #s(ert-test-failed :messages "Tangled 1 code block from http-archive-no-directory.org\n" :should-forms (((skip-unless tar) :form tar :value "/usr/bin/tar")) :duration 0.013601372 :condition (error "/usr/bin/tar exited with status 2") :backtrace (#s(backtrace-frame :evald t :fun error :args ("%s exited with status %s" "/usr/bin/tar" 2) :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun process-lines-handling-status :args ("/usr/bin/tar" nil "-c" "-z" "-f" "/tmp/bazel-mode-test-tlj5VA/archive.tar.gz" "--" "WORKSPACE") :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun process-lines :args ("/usr/bin/tar" "-c" "-z" "-f" "/tmp/bazel-mode-test-tlj5VA/archive.tar.gz" "--" "WORKSPACE") :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 prog1 :args (... ...) :flags nil :locals nil :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 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 eval :args (... t) :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 (("Temporary directory: " . "/tmp/bazel-mode-test-tlj5VA"))) :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/test.el")) + ert-run-or-rerun-test(#s(ert--stats :selector t :tests ... :test-map # :test-results ... :test-start-times ... :test-end-times ... :passed-expected 10 :passed-unexpected 0 :failed-expected 0 :failed-unexpected 11 :skipped 0 :start-time ... :end-time nil :aborted-p nil ...) #s(ert-test :name bazel-insert-http-archive/no-directory :documentation nil :body #f(lambda () ... ... nil) :most-recent-result ... :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/test.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() + eval((ert-run-tests-batch-and-exit) t) + 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" "." "--eval" "(progn (setenv \"TEST_SRCDIR\" \".\") (setenv \"TEST_WORKSPACE\" \".\"))" "-l" "test.el" "--eval" "(ert-run-tests-batch-and-exit)" "'(not (or \"bazel--target-completion-table/root-package\" \"bazel--target-completion-table/subpackage\" \"bazel--target-completion-table/workspace\" \"bazel-build-mode/beginning-of-defun\" \"bazel-build-mode/end-of-defun\" \"bazel-build-mode/imenu\" \"bazel-buildifier/failure\" \"bazel-completion-at-point\" \"bazel-fix-visibility\" \"bazel-insert-http-archive\" \"bazel-insert-http-archive/no-directory\" \"bazel-insert-http-archive/no-unique-prefix\" \"bazel-mode-flymake\" \"bazel-mode/compile\" \"bazel-mode/ffap\" \"bazel-mode/indent-region\" \"bazel-mode/speedbar\" \"bazel-mode/which-function\" \"bazel-mode/xref\" \"bazel-test-at-point\" \"bazel-test-at-point/c++-mode\" \"bazel-test-at-point/go-mode\" \"bazel-test-at-point/python-mode\" \"bazel-test/completion\" \"bazel-test/coverage\" \"bazel/project\" \"bazel/project-files\" \"bazelrc-ffap\"))")) + command-line() + normal-top-level() + +Test bazel-insert-http-archive/no-directory condition: + Temporary directory: /tmp/bazel-mode-test-tlj5VA + (error "/usr/bin/tar exited with status 2") + FAILED 21/46 bazel-insert-http-archive/no-directory (0.013601 sec) at test.el:1216 Tangled 2 code blocks from http-archive-no-unique-prefix.org -Downloading file:///tmp/bazel-mode-test-ZUkxcn/archive.tar.gz into /tmp/bazel-http-archive-EpE9ym... \ -Unknown encoding gzip; defaulting to 8bit -Downloading file:///tmp/bazel-mode-test-ZUkxcn/archive.tar.gz into /tmp/bazel-http-archive-EpE9ym...done - passed 22/46 bazel-insert-http-archive/no-unique-prefix (0.181746 sec) +Test bazel-insert-http-archive/no-unique-prefix backtrace: + error("%s exited with status %s" "/usr/bin/tar" 2) + process-lines-handling-status("/usr/bin/tar" nil "-c" "-z" "-f" "/tmp/bazel-mode-test-SHzsNf/archive.tar.gz" "--" "prefix-1" "prefix-2") + process-lines("/usr/bin/tar" "-c" "-z" "-f" "/tmp/bazel-mode-test-SHzsNf/archive.tar.gz" "--" "prefix-1" "prefix-2") + (let* ((archive (file-name-unquote (expand-file-name "archive.tar.gz" dir))) (url-unreserved-chars (cons 47 url-unreserved-chars)) (url (concat "file://" (url-hexify-string archive))) (tar (executable-find "tar")) (completing-read-collections nil) (completing-read-function #'(lambda (_prompt collection &rest _args) (setq completing-read-collections (cons collection completing-read-collections)) (car collection))) (default-directory dir)) (let ((value-833 (gensym "ert-form-evaluation-aborted-"))) (let (form-description-834) (if (condition-case nil (progn (unwind-protect (setq value-833 tar) (setq form-description-834 ...) (ert--signal-should-execution form-description-834))) (error nil)) nil (ert-skip form-description-834))) value-833) (process-lines tar "-c" "-z" "-f" archive "--" "prefix-1" "prefix-2") (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (bazel-workspace-mode) (bazel-insert-http-archive url) (let* ((fn-835 ...) (args-836 ...)) (let (...) (let ... ...) value-837)) (goto-char (point-min)) (if (consp completing-read-collections) (let* (... ...) (if ... ... ...)) (let (...) (error "No clause matching `%S'" x840))) (let* ((fn-848 ...) (args-849 ...)) (let (...) (let ... ...) value-850)) (search-forward " strip_prefix = \"prefix-1/\",")) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))))) + (let ((dir (file-name-as-directory directory))) (let* ((archive (file-name-unquote (expand-file-name "archive.tar.gz" dir))) (url-unreserved-chars (cons 47 url-unreserved-chars)) (url (concat "file://" (url-hexify-string archive))) (tar (executable-find "tar")) (completing-read-collections nil) (completing-read-function #'(lambda (_prompt collection &rest _args) (setq completing-read-collections (cons collection completing-read-collections)) (car collection))) (default-directory dir)) (let ((value-833 (gensym "ert-form-evaluation-aborted-"))) (let (form-description-834) (if (condition-case nil (progn (unwind-protect ... ... ...)) (error nil)) nil (ert-skip form-description-834))) value-833) (process-lines tar "-c" "-z" "-f" archive "--" "prefix-1" "prefix-2") (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (bazel-workspace-mode) (bazel-insert-http-archive url) (let* (... ...) (let ... ... value-837)) (goto-char (point-min)) (if (consp completing-read-collections) (let* ... ...) (let ... ...)) (let* (... ...) (let ... ... value-850)) (search-forward " strip_prefix = \"prefix-1/\",")) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))))) + (prog1 (let ((dir (file-name-as-directory directory))) (let* ((archive (file-name-unquote (expand-file-name "archive.tar.gz" dir))) (url-unreserved-chars (cons 47 url-unreserved-chars)) (url (concat "file://" (url-hexify-string archive))) (tar (executable-find "tar")) (completing-read-collections nil) (completing-read-function #'(lambda (_prompt collection &rest _args) (setq completing-read-collections ...) (car collection))) (default-directory dir)) (let ((value-833 (gensym "ert-form-evaluation-aborted-"))) (let (form-description-834) (if (condition-case nil (progn ...) (error nil)) nil (ert-skip form-description-834))) value-833) (process-lines tar "-c" "-z" "-f" archive "--" "prefix-1" "prefix-2") (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (bazel-workspace-mode) (bazel-insert-http-archive url) (let* ... ...) (goto-char ...) (if ... ... ...) (let* ... ...) (search-forward " strip_prefix = \"prefix-1/\",")) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))))) (delete-directory directory :recursive)) + (progn (let* ((file (and t "http-archive-no-unique-prefix.org"))) (if file (bazel-test--tangle directory file) nil)) (prog1 (let ((dir (file-name-as-directory directory))) (let* ((archive (file-name-unquote (expand-file-name "archive.tar.gz" dir))) (url-unreserved-chars (cons 47 url-unreserved-chars)) (url (concat "file://" (url-hexify-string archive))) (tar (executable-find "tar")) (completing-read-collections nil) (completing-read-function #'(lambda ... ... ...)) (default-directory dir)) (let ((value-833 (gensym "ert-form-evaluation-aborted-"))) (let (form-description-834) (if (condition-case nil ... ...) nil (ert-skip form-description-834))) value-833) (process-lines tar "-c" "-z" "-f" archive "--" "prefix-1" "prefix-2") (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn ... ... ... ... ... ... ...) (and ... ...)))))) (delete-directory directory :recursive))) + (let ((ert--infos (cons (cons "Temporary directory: " directory) ert--infos))) (progn (let* ((file (and t "http-archive-no-unique-prefix.org"))) (if file (bazel-test--tangle directory file) nil)) (prog1 (let ((dir (file-name-as-directory directory))) (let* ((archive (file-name-unquote ...)) (url-unreserved-chars (cons 47 url-unreserved-chars)) (url (concat "file://" ...)) (tar (executable-find "tar")) (completing-read-collections nil) (completing-read-function #'...) (default-directory dir)) (let ((value-833 ...)) (let (form-description-834) (if ... nil ...)) value-833) (process-lines tar "-c" "-z" "-f" archive "--" "prefix-1" "prefix-2") (let ((temp-buffer ...)) (save-current-buffer (set-buffer temp-buffer) (unwind-protect ... ...))))) (delete-directory directory :recursive)))) + (let ((directory (make-temp-file "bazel-mode-test-" :dir-flag))) (let ((ert--infos (cons (cons "Temporary directory: " directory) ert--infos))) (progn (let* ((file (and t "http-archive-no-unique-prefix.org"))) (if file (bazel-test--tangle directory file) nil)) (prog1 (let ((dir (file-name-as-directory directory))) (let* ((archive ...) (url-unreserved-chars ...) (url ...) (tar ...) (completing-read-collections nil) (completing-read-function ...) (default-directory dir)) (let (...) (let ... ...) value-833) (process-lines tar "-c" "-z" "-f" archive "--" "prefix-1" "prefix-2") (let (...) (save-current-buffer ... ...)))) (delete-directory directory :recursive))))) + #f(lambda () [t] (let ((directory (make-temp-file "bazel-mode-test-" :dir-flag))) (let ((ert--infos ...)) (progn (let* ... ...) (prog1 ... ...)))) 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 bazel-insert-http-archive/no-unique-prefix :documentation nil :body #f(lambda () [t] (let ... ...) nil) :most-recent-result #s(ert-test-failed :messages "Tangled 2 code blocks from http-archive-no-unique-prefix.org\n" :should-forms (...) :duration 0.016976846 :condition (error "/usr/bin/tar exited with status 2") :backtrace (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :infos (...)) :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/test.el") :result #s(ert-test-failed :messages "Tangled 2 code blocks from http-archive-no-unique-prefix.org\n" :should-forms ((... :form tar :value "/usr/bin/tar")) :duration 0.016976846 :condition (error "/usr/bin/tar exited with status 2") :backtrace (#s(backtrace-frame :evald t :fun error :args ... :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun process-lines-handling-status :args ... :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun process-lines :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 prog1 :args ... :flags nil :locals nil :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 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 eval :args ... :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 (("Temporary directory: " . "/tmp/bazel-mode-test-SHzsNf"))) :exit-continuation #f(compiled-function () #) :ert-debug-on-error nil)) + ert-run-test(#s(ert-test :name bazel-insert-http-archive/no-unique-prefix :documentation nil :body #f(lambda () [t] (let ((directory ...)) (let (...) (progn ... ...))) nil) :most-recent-result #s(ert-test-failed :messages "Tangled 2 code blocks from http-archive-no-unique-prefix.org\n" :should-forms (((skip-unless tar) :form tar :value "/usr/bin/tar")) :duration 0.016976846 :condition (error "/usr/bin/tar exited with status 2") :backtrace (#s(backtrace-frame :evald t :fun error :args ("%s exited with status %s" "/usr/bin/tar" 2) :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun process-lines-handling-status :args ("/usr/bin/tar" nil "-c" "-z" "-f" "/tmp/bazel-mode-test-SHzsNf/archive.tar.gz" "--" "prefix-1" "prefix-2") :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun process-lines :args ("/usr/bin/tar" "-c" "-z" "-f" "/tmp/bazel-mode-test-SHzsNf/archive.tar.gz" "--" "prefix-1" "prefix-2") :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 prog1 :args (... ...) :flags nil :locals nil :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 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 eval :args (... t) :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 (("Temporary directory: " . "/tmp/bazel-mode-test-SHzsNf"))) :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/test.el")) + ert-run-or-rerun-test(#s(ert--stats :selector t :tests ... :test-map # :test-results ... :test-start-times ... :test-end-times ... :passed-expected 10 :passed-unexpected 0 :failed-expected 0 :failed-unexpected 12 :skipped 0 :start-time ... :end-time nil :aborted-p nil ...) #s(ert-test :name bazel-insert-http-archive/no-unique-prefix :documentation nil :body #f(lambda () ... ... nil) :most-recent-result ... :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/test.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() + eval((ert-run-tests-batch-and-exit) t) + 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" "." "--eval" "(progn (setenv \"TEST_SRCDIR\" \".\") (setenv \"TEST_WORKSPACE\" \".\"))" "-l" "test.el" "--eval" "(ert-run-tests-batch-and-exit)" "'(not (or \"bazel--target-completion-table/root-package\" \"bazel--target-completion-table/subpackage\" \"bazel--target-completion-table/workspace\" \"bazel-build-mode/beginning-of-defun\" \"bazel-build-mode/end-of-defun\" \"bazel-build-mode/imenu\" \"bazel-buildifier/failure\" \"bazel-completion-at-point\" \"bazel-fix-visibility\" \"bazel-insert-http-archive\" \"bazel-insert-http-archive/no-directory\" \"bazel-insert-http-archive/no-unique-prefix\" \"bazel-mode-flymake\" \"bazel-mode/compile\" \"bazel-mode/ffap\" \"bazel-mode/indent-region\" \"bazel-mode/speedbar\" \"bazel-mode/which-function\" \"bazel-mode/xref\" \"bazel-test-at-point\" \"bazel-test-at-point/c++-mode\" \"bazel-test-at-point/go-mode\" \"bazel-test-at-point/python-mode\" \"bazel-test/completion\" \"bazel-test/coverage\" \"bazel/project\" \"bazel/project-files\" \"bazelrc-ffap\"))")) + command-line() + normal-top-level() + +Test bazel-insert-http-archive/no-unique-prefix condition: + Temporary directory: /tmp/bazel-mode-test-SHzsNf + (error "/usr/bin/tar exited with status 2") + FAILED 22/46 bazel-insert-http-archive/no-unique-prefix (0.016977 sec) at test.el:1189 Setting up indent for shell type bash Indentation variables are now local. Indentation setup for shell type bash Tangled 4 code blocks from flymake.org -Debug [flymake buildifier.bzl]: Running backend bazel-mode-flymake -Debug [flymake buildifier.bzl]: backend bazel-mode-flymake reported 3 diagnostics in 0.06 second(s) - passed 23/46 bazel-mode-flymake (0.938030 sec) +Test bazel-mode-flymake backtrace: + access-file("/tmp/bazel-mode-test-XxuhMa/buildifier.bzl" "Visiting test file") + (let ((previous-buffers (buffer-list))) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let ((buffer (current-buffer))) (unwind-protect (let ((bazel-buildifier-command (expand-file-name "buildifier" dir)) (flymake-diagnostic-functions '...) (warning-minimum-log-level :debug) (diagnostics nil)) (let* ((fn-81 ...) (args-82 ...)) (let (...) (let ... ...) value-83)) (write-region "" nil (expand-file-name "signal" dir) nil nil nil 'excl) (flymake-mode) (let* ((fn-86 ...) (args-87 ...)) (let (...) (let ... ...) value-88)) (let* ((fn-91 ...) (args-92 ...)) (let (...) (let ... ...) value-93)) (let ((ert--infos ...)) (let (...) (let ... ...))) (let ((ert--infos ...)) (let (...) (let ... ...))) (let ((tail ...)) (while tail (let ... ... ...))) (let* ((fn-106 ...) (args-107 ...)) (let (...) (let ... ...) value-108))) (if (memq buffer previous-buffers) nil (kill-buffer buffer)))))) + (let ((ert--infos (cons (cons "Visited test file: " filename) ert--infos))) (let ((previous-buffers (buffer-list))) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let ((buffer (current-buffer))) (unwind-protect (let ((bazel-buildifier-command ...) (flymake-diagnostic-functions ...) (warning-minimum-log-level :debug) (diagnostics nil)) (let* (... ...) (let ... ... value-83)) (write-region "" nil (expand-file-name "signal" dir) nil nil nil 'excl) (flymake-mode) (let* (... ...) (let ... ... value-88)) (let* (... ...) (let ... ... value-93)) (let (...) (let ... ...)) (let (...) (let ... ...)) (let (...) (while tail ...)) (let* (... ...) (let ... ... value-108))) (if (memq buffer previous-buffers) nil (kill-buffer buffer))))))) + (let* ((filename (expand-file-name "buildifier.bzl" dir))) (let ((ert--infos (cons (cons "Visited test file: " filename) ert--infos))) (let ((previous-buffers (buffer-list))) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let ((buffer (current-buffer))) (unwind-protect (let (... ... ... ...) (let* ... ...) (write-region "" nil ... nil nil nil ...) (flymake-mode) (let* ... ...) (let* ... ...) (let ... ...) (let ... ...) (let ... ...) (let* ... ...)) (if (memq buffer previous-buffers) nil (kill-buffer buffer)))))))) + (let ((dir (file-name-as-directory directory))) (let* ((filename (expand-file-name "buildifier.bzl" dir))) (let ((ert--infos (cons (cons "Visited test file: " filename) ert--infos))) (let ((previous-buffers (buffer-list))) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let ((buffer ...)) (unwind-protect (let ... ... ... ... ... ... ... ... ... ...) (if ... nil ...)))))))) + (prog1 (let ((dir (file-name-as-directory directory))) (let* ((filename (expand-file-name "buildifier.bzl" dir))) (let ((ert--infos (cons (cons "Visited test file: " filename) ert--infos))) (let ((previous-buffers (buffer-list))) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let (...) (unwind-protect ... ...))))))) (delete-directory directory :recursive)) + (progn (let* ((file (and t "flymake.org"))) (if file (bazel-test--tangle directory file) nil)) (prog1 (let ((dir (file-name-as-directory directory))) (let* ((filename (expand-file-name "buildifier.bzl" dir))) (let ((ert--infos (cons ... ert--infos))) (let ((previous-buffers ...)) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let ... ...)))))) (delete-directory directory :recursive))) + (let ((ert--infos (cons (cons "Temporary directory: " directory) ert--infos))) (progn (let* ((file (and t "flymake.org"))) (if file (bazel-test--tangle directory file) nil)) (prog1 (let ((dir (file-name-as-directory directory))) (let* ((filename (expand-file-name "buildifier.bzl" dir))) (let ((ert--infos ...)) (let (...) (access-file filename "Visiting test file") (save-current-buffer ... ...))))) (delete-directory directory :recursive)))) + (let ((directory (make-temp-file "bazel-mode-test-" :dir-flag))) (let ((ert--infos (cons (cons "Temporary directory: " directory) ert--infos))) (progn (let* ((file (and t "flymake.org"))) (if file (bazel-test--tangle directory file) nil)) (prog1 (let ((dir (file-name-as-directory directory))) (let* ((filename ...)) (let (...) (let ... ... ...)))) (delete-directory directory :recursive))))) + #f(lambda () [t] (let ((directory (make-temp-file "bazel-mode-test-" :dir-flag))) (let ((ert--infos ...)) (progn (let* ... ...) (prog1 ... ...)))) 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 bazel-mode-flymake :documentation "Unit test for the ‘bazel-mode-flymake’ Flymake backend." :body #f(lambda () [t] (let ... ...) nil) :most-recent-result #s(ert-test-failed :messages "Setting up indent for shell type bash\nIndentation variables are now local.\nIndentation setup for shell type bash\nTangled 4 code blocks from flymake.org\n" :should-forms nil :duration 0.066745564 :condition (file-missing "Visiting test file" "No such file or directory" "/tmp/bazel-mode-test-XxuhMa/buildifier.bzl") :backtrace (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :infos (... ...)) :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/test.el") :result #s(ert-test-failed :messages "Setting up indent for shell type bash\nIndentation variables are now local.\nIndentation setup for shell type bash\nTangled 4 code blocks from flymake.org\n" :should-forms nil :duration 0.066745564 :condition (file-missing "Visiting test file" "No such file or directory" "/tmp/bazel-mode-test-XxuhMa/buildifier.bzl") :backtrace (#s(backtrace-frame :evald t :fun access-file :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 let :args ... :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun prog1 :args ... :flags nil :locals nil :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 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 eval :args ... :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 (("Temporary directory: " . "/tmp/bazel-mode-test-XxuhMa") ("Visited test file: " . "/tmp/bazel-mode-test-XxuhMa/buildifier.bzl"))) :exit-continuation #f(compiled-function () #) :ert-debug-on-error nil)) + ert-run-test(#s(ert-test :name bazel-mode-flymake :documentation "Unit test for the ‘bazel-mode-flymake’ Flymake backend." :body #f(lambda () [t] (let ((directory ...)) (let (...) (progn ... ...))) nil) :most-recent-result #s(ert-test-failed :messages "Setting up indent for shell type bash\nIndentation variables are now local.\nIndentation setup for shell type bash\nTangled 4 code blocks from flymake.org\n" :should-forms nil :duration 0.066745564 :condition (file-missing "Visiting test file" "No such file or directory" "/tmp/bazel-mode-test-XxuhMa/buildifier.bzl") :backtrace (#s(backtrace-frame :evald t :fun access-file :args ("/tmp/bazel-mode-test-XxuhMa/buildifier.bzl" "Visiting test file") :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 let :args (... ...) :flags nil :locals (... ...) :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun prog1 :args (... ...) :flags nil :locals nil :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 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 eval :args (... t) :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 (("Temporary directory: " . "/tmp/bazel-mode-test-XxuhMa") ("Visited test file: " . "/tmp/bazel-mode-test-XxuhMa/buildifier.bzl"))) :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/test.el")) + ert-run-or-rerun-test(#s(ert--stats :selector t :tests ... :test-map # :test-results ... :test-start-times ... :test-end-times ... :passed-expected 10 :passed-unexpected 0 :failed-expected 0 :failed-unexpected 13 :skipped 0 :start-time ... :end-time nil :aborted-p nil ...) #s(ert-test :name bazel-mode-flymake :documentation "Unit test for the ‘bazel-mode-flymake’ Flymake backend." :body #f(lambda () ... ... nil) :most-recent-result ... :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/test.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() + eval((ert-run-tests-batch-and-exit) t) + 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" "." "--eval" "(progn (setenv \"TEST_SRCDIR\" \".\") (setenv \"TEST_WORKSPACE\" \".\"))" "-l" "test.el" "--eval" "(ert-run-tests-batch-and-exit)" "'(not (or \"bazel--target-completion-table/root-package\" \"bazel--target-completion-table/subpackage\" \"bazel--target-completion-table/workspace\" \"bazel-build-mode/beginning-of-defun\" \"bazel-build-mode/end-of-defun\" \"bazel-build-mode/imenu\" \"bazel-buildifier/failure\" \"bazel-completion-at-point\" \"bazel-fix-visibility\" \"bazel-insert-http-archive\" \"bazel-insert-http-archive/no-directory\" \"bazel-insert-http-archive/no-unique-prefix\" \"bazel-mode-flymake\" \"bazel-mode/compile\" \"bazel-mode/ffap\" \"bazel-mode/indent-region\" \"bazel-mode/speedbar\" \"bazel-mode/which-function\" \"bazel-mode/xref\" \"bazel-test-at-point\" \"bazel-test-at-point/c++-mode\" \"bazel-test-at-point/go-mode\" \"bazel-test-at-point/python-mode\" \"bazel-test/completion\" \"bazel-test/coverage\" \"bazel/project\" \"bazel/project-files\" \"bazelrc-ffap\"))")) + command-line() + normal-top-level() + +Test bazel-mode-flymake condition: + Temporary directory: /tmp/bazel-mode-test-XxuhMa + Visited test file: /tmp/bazel-mode-test-XxuhMa/buildifier.bzl + (file-missing "Visiting test file" "No such file or directory" + "/tmp/bazel-mode-test-XxuhMa/buildifier.bzl") + FAILED 23/46 bazel-mode-flymake (0.066746 sec) at test.el:141 Setting up indent for shell type bash Indentation variables are now local. Indentation setup for shell type bash Tangled 4 code blocks from flymake.org -Debug [flymake buildifier.bzl]: Running backend bazel-mode-flymake - passed 24/46 bazel-mode-flymake/source-buffer-killed (4.632450 sec) + skipped 24/46 bazel-mode-flymake/source-buffer-killed (0.960727 sec) Tangled 4 code blocks from compile.org -Current locus from *temp*-709160 -Current locus from *temp*-709160 -Current locus from *temp*-709160 - passed 25/46 bazel-mode/compile (0.153490 sec) +Test bazel-mode/compile backtrace: + insert-file-contents("/tmp/bazel-mode-test-a82DHk/bazel.out") + (let* ((file nil) (line nil) (next-error-move-function #'(lambda (_from to) (goto-char to) (progn (setq file buffer-file-name) (setq line (buffer-substring-no-properties ... ...))))) (case-fold-search nil) (search-spaces-regexp nil) (compilation-skip-to-next-location nil)) (insert-file-contents (expand-file-name "bazel.out" dir)) (compilation-minor-mode) (let ((ert--infos (cons (cons "Info: " "Deprecation warning") ert--infos))) (compilation-next-error 1) (let* ((fn-234 #'looking-at-p) (args-235 (condition-case err (list "^WARNING: .+/package/BUILD:1:11: target '//package:test' is deprecated: Deprecated!$") (error (progn ... ...))))) (let ((value-236 'ert-form-evaluation-aborted-237)) (let (form-description-238) (if (unwind-protect (setq value-236 ...) (setq form-description-238 ...) (ert--signal-should-execution form-description-238)) nil (ert-fail form-description-238))) value-236)) (save-current-buffer (compile-goto-error)) (let* ((fn-239 #'equal) (args-240 (condition-case err (list file (file-name-unquote ...)) (error (progn ... ...))))) (let ((value-241 'ert-form-evaluation-aborted-242)) (let (form-description-243) (if (unwind-protect (setq value-241 ...) (setq form-description-243 ...) (ert--signal-should-execution form-description-243)) nil (ert-fail form-description-243))) value-241)) (let* ((fn-244 #'equal) (args-245 (condition-case err (list line "cc_library(") (error (progn ... ...))))) (let ((value-246 'ert-form-evaluation-aborted-247)) (let (form-description-248) (if (unwind-protect (setq value-246 ...) (setq form-description-248 ...) (ert--signal-should-execution form-description-248)) nil (ert-fail form-description-248))) value-246))) (let ((ert--infos (cons (cons "Info: " "Target failure") ert--infos))) (compilation-next-error 1) (let* ((fn-249 #'looking-at-p) (args-250 (condition-case err (list "^ERROR: .+/package/BUILD:1:11: Compiling package/test\\.cc failed: ") (error (progn ... ...))))) (let ((value-251 'ert-form-evaluation-aborted-252)) (let (form-description-253) (if (unwind-protect (setq value-251 ...) (setq form-description-253 ...) (ert--signal-should-execution form-description-253)) nil (ert-fail form-description-253))) value-251)) (save-current-buffer (compile-goto-error)) (let* ((fn-254 #'equal) (args-255 (condition-case err (list file (file-name-unquote ...)) (error (progn ... ...))))) (let ((value-256 'ert-form-evaluation-aborted-257)) (let (form-description-258) (if (unwind-protect (setq value-256 ...) (setq form-description-258 ...) (ert--signal-should-execution form-description-258)) nil (ert-fail form-description-258))) value-256)) (let* ((fn-259 #'equal) (args-260 (condition-case err (list line "cc_library(") (error (progn ... ...))))) (let ((value-261 'ert-form-evaluation-aborted-262)) (let (form-description-263) (if (unwind-protect (setq value-261 ...) (setq form-description-263 ...) (ert--signal-should-execution form-description-263)) nil (ert-fail form-description-263))) value-261))) (let ((ert--infos (cons (cons "Info: " "Compiler error") ert--infos))) (compilation-next-error 1) (save-current-buffer (compile-goto-error)) (let* ((fn-264 #'equal) (args-265 (condition-case err (list file (file-name-unquote ...)) (error (progn ... ...))))) (let ((value-266 'ert-form-evaluation-aborted-267)) (let (form-description-268) (if (unwind-protect (setq value-266 ...) (setq form-description-268 ...) (ert--signal-should-execution form-description-268)) nil (ert-fail form-description-268))) value-266)) (let* ((fn-269 #'equal) (args-270 (condition-case err (list line "UnknownType foo;") (error (progn ... ...))))) (let ((value-271 'ert-form-evaluation-aborted-272)) (let (form-description-273) (if (unwind-protect (setq value-271 ...) (setq form-description-273 ...) (ert--signal-should-execution form-description-273)) nil (ert-fail form-description-273))) value-271))) (let ((ert--infos (cons (cons "Info: " "No more errors") ert--infos))) (let* ((fn-274 #'compilation-next-error) (args-275 (condition-case err (list 1) (error (progn ... ...))))) (let ((value-276 'ert-form-evaluation-aborted-277)) (let (form-description-278) (let ((errorp279 nil) (form-description-fn-280 ...)) (condition-case -condition- (unwind-protect ... ... ...) (error ... ... ...)) (if errorp279 nil (ert-fail ...)))) value-276)))) + (progn (let* ((file nil) (line nil) (next-error-move-function #'(lambda (_from to) (goto-char to) (progn (setq file buffer-file-name) (setq line ...)))) (case-fold-search nil) (search-spaces-regexp nil) (compilation-skip-to-next-location nil)) (insert-file-contents (expand-file-name "bazel.out" dir)) (compilation-minor-mode) (let ((ert--infos (cons (cons "Info: " "Deprecation warning") ert--infos))) (compilation-next-error 1) (let* ((fn-234 #'looking-at-p) (args-235 (condition-case err (list "^WARNING: .+/package/BUILD:1:11: target '//package:test' is deprecated: Deprecated!$") (error ...)))) (let ((value-236 'ert-form-evaluation-aborted-237)) (let (form-description-238) (if (unwind-protect ... ... ...) nil (ert-fail form-description-238))) value-236)) (save-current-buffer (compile-goto-error)) (let* ((fn-239 #'equal) (args-240 (condition-case err (list file ...) (error ...)))) (let ((value-241 'ert-form-evaluation-aborted-242)) (let (form-description-243) (if (unwind-protect ... ... ...) nil (ert-fail form-description-243))) value-241)) (let* ((fn-244 #'equal) (args-245 (condition-case err (list line "cc_library(") (error ...)))) (let ((value-246 'ert-form-evaluation-aborted-247)) (let (form-description-248) (if (unwind-protect ... ... ...) nil (ert-fail form-description-248))) value-246))) (let ((ert--infos (cons (cons "Info: " "Target failure") ert--infos))) (compilation-next-error 1) (let* ((fn-249 #'looking-at-p) (args-250 (condition-case err (list "^ERROR: .+/package/BUILD:1:11: Compiling package/test\\.cc failed: ") (error ...)))) (let ((value-251 'ert-form-evaluation-aborted-252)) (let (form-description-253) (if (unwind-protect ... ... ...) nil (ert-fail form-description-253))) value-251)) (save-current-buffer (compile-goto-error)) (let* ((fn-254 #'equal) (args-255 (condition-case err (list file ...) (error ...)))) (let ((value-256 'ert-form-evaluation-aborted-257)) (let (form-description-258) (if (unwind-protect ... ... ...) nil (ert-fail form-description-258))) value-256)) (let* ((fn-259 #'equal) (args-260 (condition-case err (list line "cc_library(") (error ...)))) (let ((value-261 'ert-form-evaluation-aborted-262)) (let (form-description-263) (if (unwind-protect ... ... ...) nil (ert-fail form-description-263))) value-261))) (let ((ert--infos (cons (cons "Info: " "Compiler error") ert--infos))) (compilation-next-error 1) (save-current-buffer (compile-goto-error)) (let* ((fn-264 #'equal) (args-265 (condition-case err (list file ...) (error ...)))) (let ((value-266 'ert-form-evaluation-aborted-267)) (let (form-description-268) (if (unwind-protect ... ... ...) nil (ert-fail form-description-268))) value-266)) (let* ((fn-269 #'equal) (args-270 (condition-case err (list line "UnknownType foo;") (error ...)))) (let ((value-271 'ert-form-evaluation-aborted-272)) (let (form-description-273) (if (unwind-protect ... ... ...) nil (ert-fail form-description-273))) value-271))) (let ((ert--infos (cons (cons "Info: " "No more errors") ert--infos))) (let* ((fn-274 #'compilation-next-error) (args-275 (condition-case err (list 1) (error ...)))) (let ((value-276 'ert-form-evaluation-aborted-277)) (let (form-description-278) (let (... ...) (condition-case -condition- ... ...) (if errorp279 nil ...))) value-276))))) + (unwind-protect (progn (let* ((file nil) (line nil) (next-error-move-function #'(lambda (_from to) (goto-char to) (progn ... ...))) (case-fold-search nil) (search-spaces-regexp nil) (compilation-skip-to-next-location nil)) (insert-file-contents (expand-file-name "bazel.out" dir)) (compilation-minor-mode) (let ((ert--infos (cons (cons "Info: " "Deprecation warning") ert--infos))) (compilation-next-error 1) (let* ((fn-234 #'looking-at-p) (args-235 (condition-case err ... ...))) (let ((value-236 ...)) (let (form-description-238) (if ... nil ...)) value-236)) (save-current-buffer (compile-goto-error)) (let* ((fn-239 #'equal) (args-240 (condition-case err ... ...))) (let ((value-241 ...)) (let (form-description-243) (if ... nil ...)) value-241)) (let* ((fn-244 #'equal) (args-245 (condition-case err ... ...))) (let ((value-246 ...)) (let (form-description-248) (if ... nil ...)) value-246))) (let ((ert--infos (cons (cons "Info: " "Target failure") ert--infos))) (compilation-next-error 1) (let* ((fn-249 #'looking-at-p) (args-250 (condition-case err ... ...))) (let ((value-251 ...)) (let (form-description-253) (if ... nil ...)) value-251)) (save-current-buffer (compile-goto-error)) (let* ((fn-254 #'equal) (args-255 (condition-case err ... ...))) (let ((value-256 ...)) (let (form-description-258) (if ... nil ...)) value-256)) (let* ((fn-259 #'equal) (args-260 (condition-case err ... ...))) (let ((value-261 ...)) (let (form-description-263) (if ... nil ...)) value-261))) (let ((ert--infos (cons (cons "Info: " "Compiler error") ert--infos))) (compilation-next-error 1) (save-current-buffer (compile-goto-error)) (let* ((fn-264 #'equal) (args-265 (condition-case err ... ...))) (let ((value-266 ...)) (let (form-description-268) (if ... nil ...)) value-266)) (let* ((fn-269 #'equal) (args-270 (condition-case err ... ...))) (let ((value-271 ...)) (let (form-description-273) (if ... nil ...)) value-271))) (let ((ert--infos (cons (cons "Info: " "No more errors") ert--infos))) (let* ((fn-274 #'compilation-next-error) (args-275 (condition-case err ... ...))) (let ((value-276 ...)) (let (form-description-278) (let ... ... ...)) value-276))))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))) + (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (let* ((file nil) (line nil) (next-error-move-function #'(lambda ... ... ...)) (case-fold-search nil) (search-spaces-regexp nil) (compilation-skip-to-next-location nil)) (insert-file-contents (expand-file-name "bazel.out" dir)) (compilation-minor-mode) (let ((ert--infos (cons ... ert--infos))) (compilation-next-error 1) (let* ((fn-234 ...) (args-235 ...)) (let (...) (let ... ...) value-236)) (save-current-buffer (compile-goto-error)) (let* ((fn-239 ...) (args-240 ...)) (let (...) (let ... ...) value-241)) (let* ((fn-244 ...) (args-245 ...)) (let (...) (let ... ...) value-246))) (let ((ert--infos (cons ... ert--infos))) (compilation-next-error 1) (let* ((fn-249 ...) (args-250 ...)) (let (...) (let ... ...) value-251)) (save-current-buffer (compile-goto-error)) (let* ((fn-254 ...) (args-255 ...)) (let (...) (let ... ...) value-256)) (let* ((fn-259 ...) (args-260 ...)) (let (...) (let ... ...) value-261))) (let ((ert--infos (cons ... ert--infos))) (compilation-next-error 1) (save-current-buffer (compile-goto-error)) (let* ((fn-264 ...) (args-265 ...)) (let (...) (let ... ...) value-266)) (let* ((fn-269 ...) (args-270 ...)) (let (...) (let ... ...) value-271))) (let ((ert--infos (cons ... ert--infos))) (let* ((fn-274 ...) (args-275 ...)) (let (...) (let ... ...) value-276))))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))) + (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (let* ((file nil) (line nil) (next-error-move-function #'...) (case-fold-search nil) (search-spaces-regexp nil) (compilation-skip-to-next-location nil)) (insert-file-contents (expand-file-name "bazel.out" dir)) (compilation-minor-mode) (let ((ert--infos ...)) (compilation-next-error 1) (let* (... ...) (let ... ... value-236)) (save-current-buffer (compile-goto-error)) (let* (... ...) (let ... ... value-241)) (let* (... ...) (let ... ... value-246))) (let ((ert--infos ...)) (compilation-next-error 1) (let* (... ...) (let ... ... value-251)) (save-current-buffer (compile-goto-error)) (let* (... ...) (let ... ... value-256)) (let* (... ...) (let ... ... value-261))) (let ((ert--infos ...)) (compilation-next-error 1) (save-current-buffer (compile-goto-error)) (let* (... ...) (let ... ... value-266)) (let* (... ...) (let ... ... value-271))) (let ((ert--infos ...)) (let* (... ...) (let ... ... value-276))))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) + (let ((dir (file-name-as-directory directory))) (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (let* ((file nil) (line nil) (next-error-move-function ...) (case-fold-search nil) (search-spaces-regexp nil) (compilation-skip-to-next-location nil)) (insert-file-contents (expand-file-name "bazel.out" dir)) (compilation-minor-mode) (let (...) (compilation-next-error 1) (let* ... ...) (save-current-buffer ...) (let* ... ...) (let* ... ...)) (let (...) (compilation-next-error 1) (let* ... ...) (save-current-buffer ...) (let* ... ...) (let* ... ...)) (let (...) (compilation-next-error 1) (save-current-buffer ...) (let* ... ...) (let* ... ...)) (let (...) (let* ... ...)))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))))) + (prog1 (let ((dir (file-name-as-directory directory))) (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (let* (... ... ... ... ... ...) (insert-file-contents ...) (compilation-minor-mode) (let ... ... ... ... ... ...) (let ... ... ... ... ... ...) (let ... ... ... ... ...) (let ... ...))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))))) (delete-directory directory :recursive)) + (progn (let* ((file (and t "compile.org"))) (if file (bazel-test--tangle directory file) nil)) (prog1 (let ((dir (file-name-as-directory directory))) (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (let* ... ... ... ... ... ... ...)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))))) (delete-directory directory :recursive))) + (let ((ert--infos (cons (cons "Temporary directory: " directory) ert--infos))) (progn (let* ((file (and t "compile.org"))) (if file (bazel-test--tangle directory file) nil)) (prog1 (let ((dir (file-name-as-directory directory))) (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn ...) (and ... ...))))) (delete-directory directory :recursive)))) + (let ((directory (make-temp-file "bazel-mode-test-" :dir-flag))) (let ((ert--infos (cons (cons "Temporary directory: " directory) ert--infos))) (progn (let* ((file (and t "compile.org"))) (if file (bazel-test--tangle directory file) nil)) (prog1 (let ((dir (file-name-as-directory directory))) (let ((temp-buffer ...)) (save-current-buffer (set-buffer temp-buffer) (unwind-protect ... ...)))) (delete-directory directory :recursive))))) + #f(lambda () [t] (let ((directory (make-temp-file "bazel-mode-test-" :dir-flag))) (let ((ert--infos ...)) (progn (let* ... ...) (prog1 ... ...)))) 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 bazel-mode/compile :documentation "Check that \\[next-error] jumps to the correct places." :body #f(lambda () [t] (let ... ...) nil) :most-recent-result #s(ert-test-failed :messages "Tangled 4 code blocks from compile.org\n" :should-forms nil :duration 0.016684881 :condition (file-missing "Opening input file" "No such file or directory" "/tmp/bazel-mode-test-a82DHk/bazel.out") :backtrace (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :infos (...)) :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/test.el") :result #s(ert-test-failed :messages "Tangled 4 code blocks from compile.org\n" :should-forms nil :duration 0.016684881 :condition (file-missing "Opening input file" "No such file or directory" "/tmp/bazel-mode-test-a82DHk/bazel.out") :backtrace (#s(backtrace-frame :evald t :fun insert-file-contents :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 progn :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 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 let :args ... :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun prog1 :args ... :flags nil :locals nil :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 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 eval :args ... :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 (("Temporary directory: " . "/tmp/bazel-mode-test-a82DHk"))) :exit-continuation #f(compiled-function () #) :ert-debug-on-error nil)) + ert-run-test(#s(ert-test :name bazel-mode/compile :documentation "Check that \\[next-error] jumps to the correct places." :body #f(lambda () [t] (let ((directory ...)) (let (...) (progn ... ...))) nil) :most-recent-result #s(ert-test-failed :messages "Tangled 4 code blocks from compile.org\n" :should-forms nil :duration 0.016684881 :condition (file-missing "Opening input file" "No such file or directory" "/tmp/bazel-mode-test-a82DHk/bazel.out") :backtrace (#s(backtrace-frame :evald t :fun insert-file-contents :args ("/tmp/bazel-mode-test-a82DHk/bazel.out") :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 progn :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 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 let :args (... ...) :flags nil :locals (... ...) :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun prog1 :args (... ...) :flags nil :locals nil :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 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 eval :args (... t) :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 (("Temporary directory: " . "/tmp/bazel-mode-test-a82DHk"))) :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/test.el")) + ert-run-or-rerun-test(#s(ert--stats :selector t :tests ... :test-map # :test-results ... :test-start-times ... :test-end-times ... :passed-expected 10 :passed-unexpected 0 :failed-expected 0 :failed-unexpected 14 :skipped 1 :start-time ... :end-time nil :aborted-p nil ...) #s(ert-test :name bazel-mode/compile :documentation "Check that \\[next-error] jumps to the correct places." :body #f(lambda () ... ... nil) :most-recent-result ... :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/test.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() + eval((ert-run-tests-batch-and-exit) t) + 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" "." "--eval" "(progn (setenv \"TEST_SRCDIR\" \".\") (setenv \"TEST_WORKSPACE\" \".\"))" "-l" "test.el" "--eval" "(ert-run-tests-batch-and-exit)" "'(not (or \"bazel--target-completion-table/root-package\" \"bazel--target-completion-table/subpackage\" \"bazel--target-completion-table/workspace\" \"bazel-build-mode/beginning-of-defun\" \"bazel-build-mode/end-of-defun\" \"bazel-build-mode/imenu\" \"bazel-buildifier/failure\" \"bazel-completion-at-point\" \"bazel-fix-visibility\" \"bazel-insert-http-archive\" \"bazel-insert-http-archive/no-directory\" \"bazel-insert-http-archive/no-unique-prefix\" \"bazel-mode-flymake\" \"bazel-mode/compile\" \"bazel-mode/ffap\" \"bazel-mode/indent-region\" \"bazel-mode/speedbar\" \"bazel-mode/which-function\" \"bazel-mode/xref\" \"bazel-test-at-point\" \"bazel-test-at-point/c++-mode\" \"bazel-test-at-point/go-mode\" \"bazel-test-at-point/python-mode\" \"bazel-test/completion\" \"bazel-test/coverage\" \"bazel/project\" \"bazel/project-files\" \"bazelrc-ffap\"))")) + command-line() + normal-top-level() + +Test bazel-mode/compile condition: + Temporary directory: /tmp/bazel-mode-test-a82DHk + (file-missing "Opening input file" "No such file or directory" + "/tmp/bazel-mode-test-a82DHk/bazel.out") + FAILED 25/46 bazel-mode/compile (0.016685 sec) at test.el:332 Tangled 5 code blocks from find-file-at-point.org - passed 26/46 bazel-mode/ffap (0.164637 sec) +Test bazel-mode/ffap backtrace: + access-file("/tmp/bazel-mode-test-kn3Ljn/root/pkg/aaa.c" "Visiting test file") + (let ((previous-buffers (buffer-list))) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let ((buffer (current-buffer))) (unwind-protect (let ((case-fold-search nil) (search-spaces-regexp nil)) (search-forward "\"" (line-end-position)) (let* ((fn-209 ...) (args-210 ...)) (let (...) (let ... ...) value-211)) (forward-line) (search-forward "\"" (line-end-position)) (forward-comment (point-max)) (let* ((fn-214 ...) (args-215 ...)) (let (...) (let ... ...) value-216))) (if (memq buffer previous-buffers) nil (kill-buffer buffer)))))) + (let ((ert--infos (cons (cons "Visited test file: " filename) ert--infos))) (let ((previous-buffers (buffer-list))) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let ((buffer (current-buffer))) (unwind-protect (let ((case-fold-search nil) (search-spaces-regexp nil)) (search-forward "\"" (line-end-position)) (let* (... ...) (let ... ... value-211)) (forward-line) (search-forward "\"" (line-end-position)) (forward-comment (point-max)) (let* (... ...) (let ... ... value-216))) (if (memq buffer previous-buffers) nil (kill-buffer buffer))))))) + (let* ((filename (expand-file-name "root/pkg/aaa.c" dir))) (let ((ert--infos (cons (cons "Visited test file: " filename) ert--infos))) (let ((previous-buffers (buffer-list))) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let ((buffer (current-buffer))) (unwind-protect (let (... ...) (search-forward "\"" ...) (let* ... ...) (forward-line) (search-forward "\"" ...) (forward-comment ...) (let* ... ...)) (if (memq buffer previous-buffers) nil (kill-buffer buffer)))))))) + (let ((dir (file-name-as-directory directory))) (let* ((filename (expand-file-name "root/pkg/aaa.c" dir))) (let ((ert--infos (cons (cons "Visited test file: " filename) ert--infos))) (let ((previous-buffers (buffer-list))) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let ((buffer ...)) (unwind-protect (let ... ... ... ... ... ... ...) (if ... nil ...)))))))) + (prog1 (let ((dir (file-name-as-directory directory))) (let* ((filename (expand-file-name "root/pkg/aaa.c" dir))) (let ((ert--infos (cons (cons "Visited test file: " filename) ert--infos))) (let ((previous-buffers (buffer-list))) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let (...) (unwind-protect ... ...))))))) (delete-directory directory :recursive)) + (progn (let* ((file (and t "find-file-at-point.org"))) (if file (bazel-test--tangle directory file) nil)) (prog1 (let ((dir (file-name-as-directory directory))) (let* ((filename (expand-file-name "root/pkg/aaa.c" dir))) (let ((ert--infos (cons ... ert--infos))) (let ((previous-buffers ...)) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let ... ...)))))) (delete-directory directory :recursive))) + (let ((ert--infos (cons (cons "Temporary directory: " directory) ert--infos))) (progn (let* ((file (and t "find-file-at-point.org"))) (if file (bazel-test--tangle directory file) nil)) (prog1 (let ((dir (file-name-as-directory directory))) (let* ((filename (expand-file-name "root/pkg/aaa.c" dir))) (let ((ert--infos ...)) (let (...) (access-file filename "Visiting test file") (save-current-buffer ... ...))))) (delete-directory directory :recursive)))) + (let ((directory (make-temp-file "bazel-mode-test-" :dir-flag))) (let ((ert--infos (cons (cons "Temporary directory: " directory) ert--infos))) (progn (let* ((file (and t "find-file-at-point.org"))) (if file (bazel-test--tangle directory file) nil)) (prog1 (let ((dir (file-name-as-directory directory))) (let* ((filename ...)) (let (...) (let ... ... ...)))) (delete-directory directory :recursive))))) + #f(lambda () [t] (let ((directory (make-temp-file "bazel-mode-test-" :dir-flag))) (let ((ert--infos ...)) (progn (let* ... ...) (prog1 ... ...)))) 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 bazel-mode/ffap :documentation "Unit test for ‘find-file-at-point’ support." :body #f(lambda () [t] (let ... ...) nil) :most-recent-result #s(ert-test-failed :messages "Tangled 5 code blocks from find-file-at-point.org\n" :should-forms nil :duration 0.020369753 :condition (file-missing "Visiting test file" "No such file or directory" "/tmp/bazel-mode-test-kn3Ljn/root/pkg/aaa.c") :backtrace (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :infos (... ...)) :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/test.el") :result #s(ert-test-failed :messages "Tangled 5 code blocks from find-file-at-point.org\n" :should-forms nil :duration 0.020369753 :condition (file-missing "Visiting test file" "No such file or directory" "/tmp/bazel-mode-test-kn3Ljn/root/pkg/aaa.c") :backtrace (#s(backtrace-frame :evald t :fun access-file :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 let :args ... :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun prog1 :args ... :flags nil :locals nil :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 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 eval :args ... :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 (("Temporary directory: " . "/tmp/bazel-mode-test-kn3Ljn") ("Visited test file: " . "/tmp/bazel-mode-test-kn3Ljn/root/pkg/aaa.c"))) :exit-continuation #f(compiled-function () #) :ert-debug-on-error nil)) + ert-run-test(#s(ert-test :name bazel-mode/ffap :documentation "Unit test for ‘find-file-at-point’ support." :body #f(lambda () [t] (let ((directory ...)) (let (...) (progn ... ...))) nil) :most-recent-result #s(ert-test-failed :messages "Tangled 5 code blocks from find-file-at-point.org\n" :should-forms nil :duration 0.020369753 :condition (file-missing "Visiting test file" "No such file or directory" "/tmp/bazel-mode-test-kn3Ljn/root/pkg/aaa.c") :backtrace (#s(backtrace-frame :evald t :fun access-file :args ("/tmp/bazel-mode-test-kn3Ljn/root/pkg/aaa.c" "Visiting test file") :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 let :args (... ...) :flags nil :locals (... ...) :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun prog1 :args (... ...) :flags nil :locals nil :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 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 eval :args (... t) :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 (("Temporary directory: " . "/tmp/bazel-mode-test-kn3Ljn") ("Visited test file: " . "/tmp/bazel-mode-test-kn3Ljn/root/pkg/aaa.c"))) :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/test.el")) + ert-run-or-rerun-test(#s(ert--stats :selector t :tests ... :test-map # :test-results ... :test-start-times ... :test-end-times ... :passed-expected 10 :passed-unexpected 0 :failed-expected 0 :failed-unexpected 15 :skipped 1 :start-time ... :end-time nil :aborted-p nil ...) #s(ert-test :name bazel-mode/ffap :documentation "Unit test for ‘find-file-at-point’ support." :body #f(lambda () ... ... nil) :most-recent-result ... :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/test.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() + eval((ert-run-tests-batch-and-exit) t) + 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" "." "--eval" "(progn (setenv \"TEST_SRCDIR\" \".\") (setenv \"TEST_WORKSPACE\" \".\"))" "-l" "test.el" "--eval" "(ert-run-tests-batch-and-exit)" "'(not (or \"bazel--target-completion-table/root-package\" \"bazel--target-completion-table/subpackage\" \"bazel--target-completion-table/workspace\" \"bazel-build-mode/beginning-of-defun\" \"bazel-build-mode/end-of-defun\" \"bazel-build-mode/imenu\" \"bazel-buildifier/failure\" \"bazel-completion-at-point\" \"bazel-fix-visibility\" \"bazel-insert-http-archive\" \"bazel-insert-http-archive/no-directory\" \"bazel-insert-http-archive/no-unique-prefix\" \"bazel-mode-flymake\" \"bazel-mode/compile\" \"bazel-mode/ffap\" \"bazel-mode/indent-region\" \"bazel-mode/speedbar\" \"bazel-mode/which-function\" \"bazel-mode/xref\" \"bazel-test-at-point\" \"bazel-test-at-point/c++-mode\" \"bazel-test-at-point/go-mode\" \"bazel-test-at-point/python-mode\" \"bazel-test/completion\" \"bazel-test/coverage\" \"bazel/project\" \"bazel/project-files\" \"bazelrc-ffap\"))")) + command-line() + normal-top-level() + +Test bazel-mode/ffap condition: + Temporary directory: /tmp/bazel-mode-test-kn3Ljn + Visited test file: /tmp/bazel-mode-test-kn3Ljn/root/pkg/aaa.c + (file-missing "Visiting test file" "No such file or directory" + "/tmp/bazel-mode-test-kn3Ljn/root/pkg/aaa.c") + FAILED 26/46 bazel-mode/ffap (0.020370 sec) at test.el:286 Tangled 2 code blocks from indent.org - passed 27/46 bazel-mode/indent-region (0.103161 sec) +Test bazel-mode/indent-region backtrace: + access-file("/tmp/bazel-mode-test-XLOK7y/BUILD" "Visiting test file") + (let ((previous-buffers (buffer-list))) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let ((buffer (current-buffer))) (unwind-protect (let* ((fn-76 #'equal) (args-77 (condition-case err ... ...))) (let ((value-78 ...)) (let (form-description-80) (if ... nil ...)) value-78)) (if (memq buffer previous-buffers) nil (kill-buffer buffer)))))) + (let ((ert--infos (cons (cons "Visited test file: " filename) ert--infos))) (let ((previous-buffers (buffer-list))) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let ((buffer (current-buffer))) (unwind-protect (let* ((fn-76 ...) (args-77 ...)) (let (...) (let ... ...) value-78)) (if (memq buffer previous-buffers) nil (kill-buffer buffer))))))) + (let* ((filename (expand-file-name "BUILD" dir))) (let ((ert--infos (cons (cons "Visited test file: " filename) ert--infos))) (let ((previous-buffers (buffer-list))) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let ((buffer (current-buffer))) (unwind-protect (let* (... ...) (let ... ... value-78)) (if (memq buffer previous-buffers) nil (kill-buffer buffer)))))))) + (let ((dir (file-name-as-directory directory))) (let* ((filename (expand-file-name "BUILD" dir))) (let ((ert--infos (cons (cons "Visited test file: " filename) ert--infos))) (let ((previous-buffers (buffer-list))) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let ((buffer ...)) (unwind-protect (let* ... ...) (if ... nil ...)))))))) + (prog1 (let ((dir (file-name-as-directory directory))) (let* ((filename (expand-file-name "BUILD" dir))) (let ((ert--infos (cons (cons "Visited test file: " filename) ert--infos))) (let ((previous-buffers (buffer-list))) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let (...) (unwind-protect ... ...))))))) (delete-directory directory :recursive)) + (progn (let* ((file (and t "indent.org"))) (if file (bazel-test--tangle directory file) nil)) (prog1 (let ((dir (file-name-as-directory directory))) (let* ((filename (expand-file-name "BUILD" dir))) (let ((ert--infos (cons ... ert--infos))) (let ((previous-buffers ...)) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let ... ...)))))) (delete-directory directory :recursive))) + (let ((ert--infos (cons (cons "Temporary directory: " directory) ert--infos))) (progn (let* ((file (and t "indent.org"))) (if file (bazel-test--tangle directory file) nil)) (prog1 (let ((dir (file-name-as-directory directory))) (let* ((filename (expand-file-name "BUILD" dir))) (let ((ert--infos ...)) (let (...) (access-file filename "Visiting test file") (save-current-buffer ... ...))))) (delete-directory directory :recursive)))) + (let ((directory (make-temp-file "bazel-mode-test-" :dir-flag))) (let ((ert--infos (cons (cons "Temporary directory: " directory) ert--infos))) (progn (let* ((file (and t "indent.org"))) (if file (bazel-test--tangle directory file) nil)) (prog1 (let ((dir (file-name-as-directory directory))) (let* ((filename ...)) (let (...) (let ... ... ...)))) (delete-directory directory :recursive))))) + #f(lambda () [t] (let ((directory (make-temp-file "bazel-mode-test-" :dir-flag))) (let ((ert--infos ...)) (progn (let* ... ...) (prog1 ... ...)))) 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 bazel-mode/indent-region :documentation nil :body #f(lambda () [t] (let ... ...) nil) :most-recent-result #s(ert-test-failed :messages "Tangled 2 code blocks from indent.org\n" :should-forms nil :duration 0.012640448 :condition (file-missing "Visiting test file" "No such file or directory" "/tmp/bazel-mode-test-XLOK7y/BUILD") :backtrace (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :infos (... ...)) :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/test.el") :result #s(ert-test-failed :messages "Tangled 2 code blocks from indent.org\n" :should-forms nil :duration 0.012640448 :condition (file-missing "Visiting test file" "No such file or directory" "/tmp/bazel-mode-test-XLOK7y/BUILD") :backtrace (#s(backtrace-frame :evald t :fun access-file :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 let :args ... :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun prog1 :args ... :flags nil :locals nil :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 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 eval :args ... :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 (("Temporary directory: " . "/tmp/bazel-mode-test-XLOK7y") ("Visited test file: " . "/tmp/bazel-mode-test-XLOK7y/BUILD"))) :exit-continuation #f(compiled-function () #) :ert-debug-on-error nil)) + ert-run-test(#s(ert-test :name bazel-mode/indent-region :documentation nil :body #f(lambda () [t] (let ((directory ...)) (let (...) (progn ... ...))) nil) :most-recent-result #s(ert-test-failed :messages "Tangled 2 code blocks from indent.org\n" :should-forms nil :duration 0.012640448 :condition (file-missing "Visiting test file" "No such file or directory" "/tmp/bazel-mode-test-XLOK7y/BUILD") :backtrace (#s(backtrace-frame :evald t :fun access-file :args ("/tmp/bazel-mode-test-XLOK7y/BUILD" "Visiting test file") :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 let :args (... ...) :flags nil :locals (... ...) :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun prog1 :args (... ...) :flags nil :locals nil :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 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 eval :args (... t) :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 (("Temporary directory: " . "/tmp/bazel-mode-test-XLOK7y") ("Visited test file: " . "/tmp/bazel-mode-test-XLOK7y/BUILD"))) :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/test.el")) + ert-run-or-rerun-test(#s(ert--stats :selector t :tests ... :test-map # :test-results ... :test-start-times ... :test-end-times ... :passed-expected 10 :passed-unexpected 0 :failed-expected 0 :failed-unexpected 16 :skipped 1 :start-time ... :end-time nil :aborted-p nil ...) #s(ert-test :name bazel-mode/indent-region :documentation nil :body #f(lambda () ... ... nil) :most-recent-result ... :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/test.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() + eval((ert-run-tests-batch-and-exit) t) + 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" "." "--eval" "(progn (setenv \"TEST_SRCDIR\" \".\") (setenv \"TEST_WORKSPACE\" \".\"))" "-l" "test.el" "--eval" "(ert-run-tests-batch-and-exit)" "'(not (or \"bazel--target-completion-table/root-package\" \"bazel--target-completion-table/subpackage\" \"bazel--target-completion-table/workspace\" \"bazel-build-mode/beginning-of-defun\" \"bazel-build-mode/end-of-defun\" \"bazel-build-mode/imenu\" \"bazel-buildifier/failure\" \"bazel-completion-at-point\" \"bazel-fix-visibility\" \"bazel-insert-http-archive\" \"bazel-insert-http-archive/no-directory\" \"bazel-insert-http-archive/no-unique-prefix\" \"bazel-mode-flymake\" \"bazel-mode/compile\" \"bazel-mode/ffap\" \"bazel-mode/indent-region\" \"bazel-mode/speedbar\" \"bazel-mode/which-function\" \"bazel-mode/xref\" \"bazel-test-at-point\" \"bazel-test-at-point/c++-mode\" \"bazel-test-at-point/go-mode\" \"bazel-test-at-point/python-mode\" \"bazel-test/completion\" \"bazel-test/coverage\" \"bazel/project\" \"bazel/project-files\" \"bazelrc-ffap\"))")) + command-line() + normal-top-level() + +Test bazel-mode/indent-region condition: + Temporary directory: /tmp/bazel-mode-test-XLOK7y + Visited test file: /tmp/bazel-mode-test-XLOK7y/BUILD + (file-missing "Visiting test file" "No such file or directory" + "/tmp/bazel-mode-test-XLOK7y/BUILD") + FAILED 27/46 bazel-mode/indent-region (0.012640 sec) at test.el:136 Tangled 2 code blocks from speedbar.org - passed 28/46 bazel-mode/speedbar (0.053367 sec) - passed 29/46 bazel-mode/triple-quoted-strings (0.001414 sec) +Test bazel-mode/speedbar backtrace: + search-forward("BUILD") + (let ((case-fold-search nil) (search-spaces-regexp nil)) (search-forward "BUILD")) + (progn (speedbar-default-directory-list dir 0) (goto-char (point-min)) (let ((case-fold-search nil) (search-spaces-regexp nil)) (search-forward "BUILD"))) + (unwind-protect (progn (speedbar-default-directory-list dir 0) (goto-char (point-min)) (let ((case-fold-search nil) (search-spaces-regexp nil)) (search-forward "BUILD"))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))) + (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (speedbar-default-directory-list dir 0) (goto-char (point-min)) (let ((case-fold-search nil) (search-spaces-regexp nil)) (search-forward "BUILD"))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))) + (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (speedbar-default-directory-list dir 0) (goto-char (point-min)) (let ((case-fold-search nil) (search-spaces-regexp nil)) (search-forward "BUILD"))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) + (let ((dir (file-name-as-directory directory))) (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (speedbar-default-directory-list dir 0) (goto-char (point-min)) (let ((case-fold-search nil) (search-spaces-regexp nil)) (search-forward "BUILD"))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))))) + (prog1 (let ((dir (file-name-as-directory directory))) (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (speedbar-default-directory-list dir 0) (goto-char (point-min)) (let (... ...) (search-forward "BUILD"))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))))) (delete-directory directory :recursive)) + (progn (let* ((file (and t "speedbar.org"))) (if file (bazel-test--tangle directory file) nil)) (prog1 (let ((dir (file-name-as-directory directory))) (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (speedbar-default-directory-list dir 0) (goto-char ...) (let ... ...)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))))) (delete-directory directory :recursive))) + (let ((ert--infos (cons (cons "Temporary directory: " directory) ert--infos))) (progn (let* ((file (and t "speedbar.org"))) (if file (bazel-test--tangle directory file) nil)) (prog1 (let ((dir (file-name-as-directory directory))) (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn ... ... ...) (and ... ...))))) (delete-directory directory :recursive)))) + (let ((directory (make-temp-file "bazel-mode-test-" :dir-flag))) (let ((ert--infos (cons (cons "Temporary directory: " directory) ert--infos))) (progn (let* ((file (and t "speedbar.org"))) (if file (bazel-test--tangle directory file) nil)) (prog1 (let ((dir (file-name-as-directory directory))) (let ((temp-buffer ...)) (save-current-buffer (set-buffer temp-buffer) (unwind-protect ... ...)))) (delete-directory directory :recursive))))) + #f(lambda () [t] (let ((directory (make-temp-file "bazel-mode-test-" :dir-flag))) (let ((ert--infos ...)) (progn (let* ... ...) (prog1 ... ...)))) 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 bazel-mode/speedbar :documentation "Check that \\[speedbar] detects BUILD files." :body #f(lambda () [t] (let ... ...) nil) :most-recent-result #s(ert-test-failed :messages "Tangled 2 code blocks from speedbar.org\n" :should-forms nil :duration 0.012079506 :condition (search-failed "BUILD") :backtrace (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :infos (...)) :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/test.el") :result #s(ert-test-failed :messages "Tangled 2 code blocks from speedbar.org\n" :should-forms nil :duration 0.012079506 :condition (search-failed "BUILD") :backtrace (#s(backtrace-frame :evald t :fun search-forward :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 progn :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 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 let :args ... :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun prog1 :args ... :flags nil :locals nil :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 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 eval :args ... :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 (("Temporary directory: " . "/tmp/bazel-mode-test-6L8wBt"))) :exit-continuation #f(compiled-function () #) :ert-debug-on-error nil)) + ert-run-test(#s(ert-test :name bazel-mode/speedbar :documentation "Check that \\[speedbar] detects BUILD files." :body #f(lambda () [t] (let ((directory ...)) (let (...) (progn ... ...))) nil) :most-recent-result #s(ert-test-failed :messages "Tangled 2 code blocks from speedbar.org\n" :should-forms nil :duration 0.012079506 :condition (search-failed "BUILD") :backtrace (#s(backtrace-frame :evald t :fun search-forward :args ("BUILD") :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 progn :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 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 let :args (... ...) :flags nil :locals (... ...) :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun prog1 :args (... ...) :flags nil :locals nil :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 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 eval :args (... t) :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 (("Temporary directory: " . "/tmp/bazel-mode-test-6L8wBt"))) :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/test.el")) + ert-run-or-rerun-test(#s(ert--stats :selector t :tests ... :test-map # :test-results ... :test-start-times ... :test-end-times ... :passed-expected 10 :passed-unexpected 0 :failed-expected 0 :failed-unexpected 17 :skipped 1 :start-time ... :end-time nil :aborted-p nil ...) #s(ert-test :name bazel-mode/speedbar :documentation "Check that \\[speedbar] detects BUILD files." :body #f(lambda () ... ... nil) :most-recent-result ... :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/test.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() + eval((ert-run-tests-batch-and-exit) t) + 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" "." "--eval" "(progn (setenv \"TEST_SRCDIR\" \".\") (setenv \"TEST_WORKSPACE\" \".\"))" "-l" "test.el" "--eval" "(ert-run-tests-batch-and-exit)" "'(not (or \"bazel--target-completion-table/root-package\" \"bazel--target-completion-table/subpackage\" \"bazel--target-completion-table/workspace\" \"bazel-build-mode/beginning-of-defun\" \"bazel-build-mode/end-of-defun\" \"bazel-build-mode/imenu\" \"bazel-buildifier/failure\" \"bazel-completion-at-point\" \"bazel-fix-visibility\" \"bazel-insert-http-archive\" \"bazel-insert-http-archive/no-directory\" \"bazel-insert-http-archive/no-unique-prefix\" \"bazel-mode-flymake\" \"bazel-mode/compile\" \"bazel-mode/ffap\" \"bazel-mode/indent-region\" \"bazel-mode/speedbar\" \"bazel-mode/which-function\" \"bazel-mode/xref\" \"bazel-test-at-point\" \"bazel-test-at-point/c++-mode\" \"bazel-test-at-point/go-mode\" \"bazel-test-at-point/python-mode\" \"bazel-test/completion\" \"bazel-test/coverage\" \"bazel/project\" \"bazel/project-files\" \"bazelrc-ffap\"))")) + command-line() + normal-top-level() + +Test bazel-mode/speedbar condition: + Temporary directory: /tmp/bazel-mode-test-6L8wBt + (search-failed "BUILD") + FAILED 28/46 bazel-mode/speedbar (0.012080 sec) at test.el:389 + passed 29/46 bazel-mode/triple-quoted-strings (0.000704 sec) Tangled 3 code blocks from which-function.org - passed 30/46 bazel-mode/which-function (0.147001 sec) +Test bazel-mode/which-function backtrace: + access-file("/tmp/bazel-mode-test-wASC1H/BUILD" "Visiting test file") + (let ((previous-buffers (buffer-list))) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let ((buffer (current-buffer))) (unwind-protect (let ((case-fold-search nil) (search-spaces-regexp nil)) (let ((tail cases)) (while tail (let ... ... ...)))) (if (memq buffer previous-buffers) nil (kill-buffer buffer)))))) + (let ((ert--infos (cons (cons "Visited test file: " filename) ert--infos))) (let ((previous-buffers (buffer-list))) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let ((buffer (current-buffer))) (unwind-protect (let ((case-fold-search nil) (search-spaces-regexp nil)) (let (...) (while tail ...))) (if (memq buffer previous-buffers) nil (kill-buffer buffer))))))) + (let* ((filename (expand-file-name file dir))) (let ((ert--infos (cons (cons "Visited test file: " filename) ert--infos))) (let ((previous-buffers (buffer-list))) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let ((buffer (current-buffer))) (unwind-protect (let (... ...) (let ... ...)) (if (memq buffer previous-buffers) nil (kill-buffer buffer)))))))) + (let ((file x571) (cases x572)) (let* ((filename (expand-file-name file dir))) (let ((ert--infos (cons (cons "Visited test file: " filename) ert--infos))) (let ((previous-buffers (buffer-list))) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let ((buffer ...)) (unwind-protect (let ... ...) (if ... nil ...)))))))) + (let* ((x571 (car-safe x570)) (x572 (cdr-safe x570))) (let ((file x571) (cases x572)) (let* ((filename (expand-file-name file dir))) (let ((ert--infos (cons (cons "Visited test file: " filename) ert--infos))) (let ((previous-buffers (buffer-list))) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let (...) (unwind-protect ... ...)))))))) + (progn (ignore (consp x570)) (let* ((x571 (car-safe x570)) (x572 (cdr-safe x570))) (let ((file x571) (cases x572)) (let* ((filename (expand-file-name file dir))) (let ((ert--infos (cons ... ert--infos))) (let ((previous-buffers ...)) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let ... ...)))))))) + (let ((x570 (car tail))) (progn (ignore (consp x570)) (let* ((x571 (car-safe x570)) (x572 (cdr-safe x570))) (let ((file x571) (cases x572)) (let* ((filename (expand-file-name file dir))) (let ((ert--infos ...)) (let (...) (access-file filename "Visiting test file") (save-current-buffer ... ...))))))) (setq tail (cdr tail))) + (while tail (let ((x570 (car tail))) (progn (ignore (consp x570)) (let* ((x571 (car-safe x570)) (x572 (cdr-safe x570))) (let ((file x571) (cases x572)) (let* ((filename ...)) (let (...) (let ... ... ...)))))) (setq tail (cdr tail)))) + (let ((tail '(("BUILD" ("name = \"lib\"" "lib") ("aaa.cc" "lib") ("name = \"bin\"" "bin") ("//pkg:lib" "bin")) ("defs.bzl" ("# Comment" nil) (" name = " nil) ("in_foo = 1" "foo") ("in_inner = 1" "foo.inner" "inner") ("in_foo = 2" "foo"))))) (while tail (let ((x570 (car tail))) (progn (ignore (consp x570)) (let* ((x571 (car-safe x570)) (x572 (cdr-safe x570))) (let ((file x571) (cases x572)) (let* (...) (let ... ...))))) (setq tail (cdr tail))))) + (let ((dir (file-name-as-directory directory))) (let ((tail '(("BUILD" ("name = \"lib\"" "lib") ("aaa.cc" "lib") ("name = \"bin\"" "bin") ("//pkg:lib" "bin")) ("defs.bzl" ("# Comment" nil) (" name = " nil) ("in_foo = 1" "foo") ("in_inner = 1" "foo.inner" "inner") ("in_foo = 2" "foo"))))) (while tail (let ((x570 (car tail))) (progn (ignore (consp x570)) (let* ((x571 ...) (x572 ...)) (let (... ...) (let* ... ...)))) (setq tail (cdr tail)))))) + (prog1 (let ((dir (file-name-as-directory directory))) (let ((tail '(("BUILD" ... ... ... ...) ("defs.bzl" ... ... ... ... ...)))) (while tail (let ((x570 (car tail))) (progn (ignore (consp x570)) (let* (... ...) (let ... ...))) (setq tail (cdr tail)))))) (delete-directory directory :recursive)) + (progn (let* ((file (and t "which-function.org"))) (if file (bazel-test--tangle directory file) nil)) (prog1 (let ((dir (file-name-as-directory directory))) (let ((tail '(... ...))) (while tail (let ((x570 ...)) (progn (ignore ...) (let* ... ...)) (setq tail (cdr tail)))))) (delete-directory directory :recursive))) + (let ((ert--infos (cons (cons "Temporary directory: " directory) ert--infos))) (progn (let* ((file (and t "which-function.org"))) (if file (bazel-test--tangle directory file) nil)) (prog1 (let ((dir (file-name-as-directory directory))) (let ((tail '...)) (while tail (let (...) (progn ... ...) (setq tail ...))))) (delete-directory directory :recursive)))) + (let ((directory (make-temp-file "bazel-mode-test-" :dir-flag))) (let ((ert--infos (cons (cons "Temporary directory: " directory) ert--infos))) (progn (let* ((file (and t "which-function.org"))) (if file (bazel-test--tangle directory file) nil)) (prog1 (let ((dir (file-name-as-directory directory))) (let ((tail ...)) (while tail (let ... ... ...)))) (delete-directory directory :recursive))))) + #f(lambda () [t] (let ((directory (make-temp-file "bazel-mode-test-" :dir-flag))) (let ((ert--infos ...)) (progn (let* ... ...) (prog1 ... ...)))) 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 bazel-mode/which-function :documentation "Verify ‘which-function’ and ‘add-log-current-defun’ in ‘bazel-mode’." :body #f(lambda () ... ... nil) :most-recent-result #s(ert-test-failed :messages "Tangled 3 code blocks from which-function.org\n" :should-forms nil :duration 0.014441439 :condition ... :backtrace ... :infos ...) :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/test.el") :result #s(ert-test-failed :messages "Tangled 3 code blocks from which-function.org\n" :should-forms nil :duration 0.014441439 :condition (file-missing "Visiting test file" "No such file or directory" "/tmp/bazel-mode-test-wASC1H/BUILD") :backtrace (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :infos (... ...)) :exit-continuation #f(compiled-function () #) :ert-debug-on-error nil)) + ert-run-test(#s(ert-test :name bazel-mode/which-function :documentation "Verify ‘which-function’ and ‘add-log-current-defun’ in ‘bazel-mode’." :body #f(lambda () [t] (let ((directory ...)) (let (...) (progn ... ...))) nil) :most-recent-result #s(ert-test-failed :messages "Tangled 3 code blocks from which-function.org\n" :should-forms nil :duration 0.014441439 :condition (file-missing "Visiting test file" "No such file or directory" "/tmp/bazel-mode-test-wASC1H/BUILD") :backtrace (#s(backtrace-frame :evald t :fun access-file :args ("/tmp/bazel-mode-test-wASC1H/BUILD" "Visiting test file") :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 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 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 nil :fun let :args (... ...) :flags nil :locals (... ...) :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun prog1 :args (... ...) :flags nil :locals nil :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 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 eval :args (... t) :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 (("Temporary directory: " . "/tmp/bazel-mode-test-wASC1H") ("Visited test file: " . "/tmp/bazel-mode-test-wASC1H/BUILD"))) :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/test.el")) + ert-run-or-rerun-test(#s(ert--stats :selector t :tests ... :test-map # :test-results ... :test-start-times ... :test-end-times ... :passed-expected 11 :passed-unexpected 0 :failed-expected 0 :failed-unexpected 18 :skipped 1 :start-time ... :end-time nil :aborted-p nil ...) #s(ert-test :name bazel-mode/which-function :documentation "Verify ‘which-function’ and ‘add-log-current-defun’ in ‘bazel-mode’." :body #f(lambda () ... ... nil) :most-recent-result ... :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/test.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() + eval((ert-run-tests-batch-and-exit) t) + 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" "." "--eval" "(progn (setenv \"TEST_SRCDIR\" \".\") (setenv \"TEST_WORKSPACE\" \".\"))" "-l" "test.el" "--eval" "(ert-run-tests-batch-and-exit)" "'(not (or \"bazel--target-completion-table/root-package\" \"bazel--target-completion-table/subpackage\" \"bazel--target-completion-table/workspace\" \"bazel-build-mode/beginning-of-defun\" \"bazel-build-mode/end-of-defun\" \"bazel-build-mode/imenu\" \"bazel-buildifier/failure\" \"bazel-completion-at-point\" \"bazel-fix-visibility\" \"bazel-insert-http-archive\" \"bazel-insert-http-archive/no-directory\" \"bazel-insert-http-archive/no-unique-prefix\" \"bazel-mode-flymake\" \"bazel-mode/compile\" \"bazel-mode/ffap\" \"bazel-mode/indent-region\" \"bazel-mode/speedbar\" \"bazel-mode/which-function\" \"bazel-mode/xref\" \"bazel-test-at-point\" \"bazel-test-at-point/c++-mode\" \"bazel-test-at-point/go-mode\" \"bazel-test-at-point/python-mode\" \"bazel-test/completion\" \"bazel-test/coverage\" \"bazel/project\" \"bazel/project-files\" \"bazelrc-ffap\"))")) + command-line() + normal-top-level() + +Test bazel-mode/which-function condition: + Temporary directory: /tmp/bazel-mode-test-wASC1H + Visited test file: /tmp/bazel-mode-test-wASC1H/BUILD + (file-missing "Visiting test file" "No such file or directory" + "/tmp/bazel-mode-test-wASC1H/BUILD") + FAILED 30/46 bazel-mode/which-function (0.014441 sec) at test.el:767 Tangled 8 code blocks from xref.org - passed 31/46 bazel-mode/xref (0.372606 sec) - passed 32/46 bazel-run/options (0.000216 sec) - passed 33/46 bazel-starlark-mode/indent-after-colon (0.000517 sec) +Test bazel-mode/xref backtrace: + access-file("/tmp/bazel-mode-test-yPmsbx/root/BUILD" "Visiting test file") + (let ((previous-buffers (buffer-list))) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let ((buffer (current-buffer))) (unwind-protect (progn (let ((case-fold-search nil) (search-spaces-regexp nil)) (forward-comment (point-max)) (while (re-search-forward "^[[:blank:]]*\"" nil t) (let ... ... ...))) (let ((table ...)) (let* (... ...) (let ... ... value-176)) (let* (... ...) (let ... ... value-181)) (let* (... ...) (let ... ... value-186))) (let* ((build-buffer ...) (jumps 0) (xref-after-jump-hook ...)) (let* (...) (let ... ...)) (let* (... ...) (let ... ... value-191)) (let* (... ...) (let ... ... value-196)) (let* (... ...) (let ... ... value-201)))) (if (memq buffer previous-buffers) nil (kill-buffer buffer)))))) + (let ((ert--infos (cons (cons "Visited test file: " filename) ert--infos))) (let ((previous-buffers (buffer-list))) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let ((buffer (current-buffer))) (unwind-protect (progn (let (... ...) (forward-comment ...) (while ... ...)) (let (...) (let* ... ...) (let* ... ...) (let* ... ...)) (let* (... ... ...) (let* ... ...) (let* ... ...) (let* ... ...) (let* ... ...))) (if (memq buffer previous-buffers) nil (kill-buffer buffer))))))) + (let* ((filename (expand-file-name "root/BUILD" dir))) (let ((ert--infos (cons (cons "Visited test file: " filename) ert--infos))) (let ((previous-buffers (buffer-list))) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let ((buffer (current-buffer))) (unwind-protect (progn (let ... ... ...) (let ... ... ... ...) (let* ... ... ... ... ...)) (if (memq buffer previous-buffers) nil (kill-buffer buffer)))))))) + (let ((dir (file-name-as-directory directory))) (let* ((filename (expand-file-name "root/BUILD" dir))) (let ((ert--infos (cons (cons "Visited test file: " filename) ert--infos))) (let ((previous-buffers (buffer-list))) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let ((buffer ...)) (unwind-protect (progn ... ... ...) (if ... nil ...)))))))) + (prog1 (let ((dir (file-name-as-directory directory))) (let* ((filename (expand-file-name "root/BUILD" dir))) (let ((ert--infos (cons (cons "Visited test file: " filename) ert--infos))) (let ((previous-buffers (buffer-list))) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let (...) (unwind-protect ... ...))))))) (delete-directory directory :recursive)) + (progn (let* ((file (and t "xref.org"))) (if file (bazel-test--tangle directory file) nil)) (prog1 (let ((dir (file-name-as-directory directory))) (let* ((filename (expand-file-name "root/BUILD" dir))) (let ((ert--infos (cons ... ert--infos))) (let ((previous-buffers ...)) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let ... ...)))))) (delete-directory directory :recursive))) + (let ((ert--infos (cons (cons "Temporary directory: " directory) ert--infos))) (progn (let* ((file (and t "xref.org"))) (if file (bazel-test--tangle directory file) nil)) (prog1 (let ((dir (file-name-as-directory directory))) (let* ((filename (expand-file-name "root/BUILD" dir))) (let ((ert--infos ...)) (let (...) (access-file filename "Visiting test file") (save-current-buffer ... ...))))) (delete-directory directory :recursive)))) + (let ((directory (make-temp-file "bazel-mode-test-" :dir-flag))) (let ((ert--infos (cons (cons "Temporary directory: " directory) ert--infos))) (progn (let* ((file (and t "xref.org"))) (if file (bazel-test--tangle directory file) nil)) (prog1 (let ((dir (file-name-as-directory directory))) (let* ((filename ...)) (let (...) (let ... ... ...)))) (delete-directory directory :recursive))))) + (let ((definitions nil)) (let ((directory (make-temp-file "bazel-mode-test-" :dir-flag))) (let ((ert--infos (cons (cons "Temporary directory: " directory) ert--infos))) (progn (let* ((file (and t "xref.org"))) (if file (bazel-test--tangle directory file) nil)) (prog1 (let ((dir ...)) (let* (...) (let ... ...))) (delete-directory directory :recursive))))) (let* ((fn-204 #'equal) (args-205 (condition-case err (list (nreverse definitions) '(... ... ... ... ... ... ... ... ... ...)) (error (progn (setq fn-204 ...) (list ... ...)))))) (let ((value-206 'ert-form-evaluation-aborted-207)) (let (form-description-208) (if (unwind-protect (setq value-206 (apply fn-204 args-205)) (setq form-description-208 (nconc ... ... ... ...)) (ert--signal-should-execution form-description-208)) nil (ert-fail form-description-208))) value-206))) + #f(lambda () [t] (let ((definitions nil)) (let ((directory ...)) (let (...) (progn ... ...))) (let* ((fn-204 ...) (args-205 ...)) (let (...) (let ... ...) value-206))) 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 bazel-mode/xref :documentation "Unit test for XRef support." :body #f(lambda () [t] (let ... ... ...) nil) :most-recent-result #s(ert-test-failed :messages "Tangled 8 code blocks from xref.org\n" :should-forms nil :duration 0.084280315 :condition (file-missing "Visiting test file" "No such file or directory" "/tmp/bazel-mode-test-yPmsbx/root/BUILD") :backtrace (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :infos (... ...)) :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/test.el") :result #s(ert-test-failed :messages "Tangled 8 code blocks from xref.org\n" :should-forms nil :duration 0.084280315 :condition (file-missing "Visiting test file" "No such file or directory" "/tmp/bazel-mode-test-yPmsbx/root/BUILD") :backtrace (#s(backtrace-frame :evald t :fun access-file :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 let :args ... :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun prog1 :args ... :flags nil :locals nil :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 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 () ... ... 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 eval :args ... :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 (("Temporary directory: " . "/tmp/bazel-mode-test-yPmsbx") ("Visited test file: " . "/tmp/bazel-mode-test-yPmsbx/root/BUILD"))) :exit-continuation #f(compiled-function () #) :ert-debug-on-error nil)) + ert-run-test(#s(ert-test :name bazel-mode/xref :documentation "Unit test for XRef support." :body #f(lambda () [t] (let ((definitions nil)) (let (...) (let ... ...)) (let* (... ...) (let ... ... value-206))) nil) :most-recent-result #s(ert-test-failed :messages "Tangled 8 code blocks from xref.org\n" :should-forms nil :duration 0.084280315 :condition (file-missing "Visiting test file" "No such file or directory" "/tmp/bazel-mode-test-yPmsbx/root/BUILD") :backtrace (#s(backtrace-frame :evald t :fun access-file :args ("/tmp/bazel-mode-test-yPmsbx/root/BUILD" "Visiting test file") :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 let :args (... ...) :flags nil :locals (... ... ...) :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun prog1 :args (... ...) :flags nil :locals nil :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 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 () ... ... 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 eval :args (... t) :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 (("Temporary directory: " . "/tmp/bazel-mode-test-yPmsbx") ("Visited test file: " . "/tmp/bazel-mode-test-yPmsbx/root/BUILD"))) :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/test.el")) + ert-run-or-rerun-test(#s(ert--stats :selector t :tests ... :test-map # :test-results ... :test-start-times ... :test-end-times ... :passed-expected 11 :passed-unexpected 0 :failed-expected 0 :failed-unexpected 19 :skipped 1 :start-time ... :end-time nil :aborted-p nil ...) #s(ert-test :name bazel-mode/xref :documentation "Unit test for XRef support." :body #f(lambda () ... ... nil) :most-recent-result ... :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/test.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() + eval((ert-run-tests-batch-and-exit) t) + 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" "." "--eval" "(progn (setenv \"TEST_SRCDIR\" \".\") (setenv \"TEST_WORKSPACE\" \".\"))" "-l" "test.el" "--eval" "(ert-run-tests-batch-and-exit)" "'(not (or \"bazel--target-completion-table/root-package\" \"bazel--target-completion-table/subpackage\" \"bazel--target-completion-table/workspace\" \"bazel-build-mode/beginning-of-defun\" \"bazel-build-mode/end-of-defun\" \"bazel-build-mode/imenu\" \"bazel-buildifier/failure\" \"bazel-completion-at-point\" \"bazel-fix-visibility\" \"bazel-insert-http-archive\" \"bazel-insert-http-archive/no-directory\" \"bazel-insert-http-archive/no-unique-prefix\" \"bazel-mode-flymake\" \"bazel-mode/compile\" \"bazel-mode/ffap\" \"bazel-mode/indent-region\" \"bazel-mode/speedbar\" \"bazel-mode/which-function\" \"bazel-mode/xref\" \"bazel-test-at-point\" \"bazel-test-at-point/c++-mode\" \"bazel-test-at-point/go-mode\" \"bazel-test-at-point/python-mode\" \"bazel-test/completion\" \"bazel-test/coverage\" \"bazel/project\" \"bazel/project-files\" \"bazelrc-ffap\"))")) + command-line() + normal-top-level() + +Test bazel-mode/xref condition: + Temporary directory: /tmp/bazel-mode-test-yPmsbx + Visited test file: /tmp/bazel-mode-test-yPmsbx/root/BUILD + (file-missing "Visiting test file" "No such file or directory" + "/tmp/bazel-mode-test-yPmsbx/root/BUILD") + FAILED 31/46 bazel-mode/xref (0.084280 sec) at test.el:212 + passed 32/46 bazel-run/options (0.000185 sec) + passed 33/46 bazel-starlark-mode/indent-after-colon (0.000336 sec) Tangled 4 code blocks from test-at-point-elisp.org - passed 34/46 bazel-test-at-point (0.250823 sec) - passed 35/46 bazel-test-at-point-functions (0.000117 sec) +Test bazel-test-at-point backtrace: + access-file("/tmp/bazel-mode-test-ikEiQ8/foo.el" "Visiting test file") + (let ((previous-buffers (buffer-list))) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let ((buffer (current-buffer))) (unwind-protect (let ((case-fold-search nil) (search-spaces-regexp nil)) (re-search-forward "^(ert-deftest foo/not-really-a-test ()") (let* ((fn-661 ...) (args-662 ...)) (let (...) (let ... ...) value-663))) (if (memq buffer previous-buffers) nil (kill-buffer buffer)))))) + (let ((ert--infos (cons (cons "Visited test file: " filename) ert--infos))) (let ((previous-buffers (buffer-list))) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let ((buffer (current-buffer))) (unwind-protect (let ((case-fold-search nil) (search-spaces-regexp nil)) (re-search-forward "^(ert-deftest foo/not-really-a-test ()") (let* (... ...) (let ... ... value-663))) (if (memq buffer previous-buffers) nil (kill-buffer buffer))))))) + (let* ((filename (expand-file-name "foo.el" dir))) (let ((ert--infos (cons (cons "Visited test file: " filename) ert--infos))) (let ((previous-buffers (buffer-list))) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let ((buffer (current-buffer))) (unwind-protect (let (... ...) (re-search-forward "^(ert-deftest foo/not-really-a-test ()") (let* ... ...)) (if (memq buffer previous-buffers) nil (kill-buffer buffer)))))))) + (let ((dir (file-name-as-directory directory))) (let* ((filename (expand-file-name "foo.el" dir))) (let ((ert--infos (cons (cons "Visited test file: " filename) ert--infos))) (let ((previous-buffers (buffer-list))) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let ((buffer ...)) (unwind-protect (let ... ... ...) (if ... nil ...))))))) (let* ((filename (expand-file-name "foo-test.el" dir))) (let ((ert--infos (cons (cons "Visited test file: " filename) ert--infos))) (let ((previous-buffers (buffer-list))) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let ((buffer ...)) (unwind-protect (let ... ...) (if ... nil ...)))))))) + (prog1 (let ((dir (file-name-as-directory directory))) (let* ((filename (expand-file-name "foo.el" dir))) (let ((ert--infos (cons (cons "Visited test file: " filename) ert--infos))) (let ((previous-buffers (buffer-list))) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let (...) (unwind-protect ... ...)))))) (let* ((filename (expand-file-name "foo-test.el" dir))) (let ((ert--infos (cons (cons "Visited test file: " filename) ert--infos))) (let ((previous-buffers (buffer-list))) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let (...) (unwind-protect ... ...))))))) (delete-directory directory :recursive)) + (progn (let* ((file (and t "test-at-point-elisp.org"))) (if file (bazel-test--tangle directory file) nil)) (prog1 (let ((dir (file-name-as-directory directory))) (let* ((filename (expand-file-name "foo.el" dir))) (let ((ert--infos (cons ... ert--infos))) (let ((previous-buffers ...)) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let ... ...))))) (let* ((filename (expand-file-name "foo-test.el" dir))) (let ((ert--infos (cons ... ert--infos))) (let ((previous-buffers ...)) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let ... ...)))))) (delete-directory directory :recursive))) + (let ((ert--infos (cons (cons "Temporary directory: " directory) ert--infos))) (progn (let* ((file (and t "test-at-point-elisp.org"))) (if file (bazel-test--tangle directory file) nil)) (prog1 (let ((dir (file-name-as-directory directory))) (let* ((filename (expand-file-name "foo.el" dir))) (let ((ert--infos ...)) (let (...) (access-file filename "Visiting test file") (save-current-buffer ... ...)))) (let* ((filename (expand-file-name "foo-test.el" dir))) (let ((ert--infos ...)) (let (...) (access-file filename "Visiting test file") (save-current-buffer ... ...))))) (delete-directory directory :recursive)))) + (let ((directory (make-temp-file "bazel-mode-test-" :dir-flag))) (let ((ert--infos (cons (cons "Temporary directory: " directory) ert--infos))) (progn (let* ((file (and t "test-at-point-elisp.org"))) (if file (bazel-test--tangle directory file) nil)) (prog1 (let ((dir (file-name-as-directory directory))) (let* ((filename ...)) (let (...) (let ... ... ...))) (let* ((filename ...)) (let (...) (let ... ... ...)))) (delete-directory directory :recursive))))) + #f(lambda () [t] (let ((directory (make-temp-file "bazel-mode-test-" :dir-flag))) (let ((ert--infos ...)) (progn (let* ... ...) (prog1 ... ...)))) 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 bazel-test-at-point :documentation nil :body #f(lambda () [t] (let ... ...) nil) :most-recent-result #s(ert-test-failed :messages "Tangled 4 code blocks from test-at-point-elisp.org\n" :should-forms nil :duration 0.015365408 :condition (file-missing "Visiting test file" "No such file or directory" "/tmp/bazel-mode-test-ikEiQ8/foo.el") :backtrace (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :infos (... ...)) :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/test.el") :result #s(ert-test-failed :messages "Tangled 4 code blocks from test-at-point-elisp.org\n" :should-forms nil :duration 0.015365408 :condition (file-missing "Visiting test file" "No such file or directory" "/tmp/bazel-mode-test-ikEiQ8/foo.el") :backtrace (#s(backtrace-frame :evald t :fun access-file :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 let :args ... :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun prog1 :args ... :flags nil :locals nil :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 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 eval :args ... :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 (("Temporary directory: " . "/tmp/bazel-mode-test-ikEiQ8") ("Visited test file: " . "/tmp/bazel-mode-test-ikEiQ8/foo.el"))) :exit-continuation #f(compiled-function () #) :ert-debug-on-error nil)) + ert-run-test(#s(ert-test :name bazel-test-at-point :documentation nil :body #f(lambda () [t] (let ((directory ...)) (let (...) (progn ... ...))) nil) :most-recent-result #s(ert-test-failed :messages "Tangled 4 code blocks from test-at-point-elisp.org\n" :should-forms nil :duration 0.015365408 :condition (file-missing "Visiting test file" "No such file or directory" "/tmp/bazel-mode-test-ikEiQ8/foo.el") :backtrace (#s(backtrace-frame :evald t :fun access-file :args ("/tmp/bazel-mode-test-ikEiQ8/foo.el" "Visiting test file") :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 let :args (... ... ...) :flags nil :locals (... ...) :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun prog1 :args (... ...) :flags nil :locals nil :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 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 eval :args (... t) :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 (("Temporary directory: " . "/tmp/bazel-mode-test-ikEiQ8") ("Visited test file: " . "/tmp/bazel-mode-test-ikEiQ8/foo.el"))) :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/test.el")) + ert-run-or-rerun-test(#s(ert--stats :selector t :tests ... :test-map # :test-results ... :test-start-times ... :test-end-times ... :passed-expected 13 :passed-unexpected 0 :failed-expected 0 :failed-unexpected 20 :skipped 1 :start-time ... :end-time nil :aborted-p nil ...) #s(ert-test :name bazel-test-at-point :documentation nil :body #f(lambda () ... ... nil) :most-recent-result ... :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/test.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() + eval((ert-run-tests-batch-and-exit) t) + 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" "." "--eval" "(progn (setenv \"TEST_SRCDIR\" \".\") (setenv \"TEST_WORKSPACE\" \".\"))" "-l" "test.el" "--eval" "(ert-run-tests-batch-and-exit)" "'(not (or \"bazel--target-completion-table/root-package\" \"bazel--target-completion-table/subpackage\" \"bazel--target-completion-table/workspace\" \"bazel-build-mode/beginning-of-defun\" \"bazel-build-mode/end-of-defun\" \"bazel-build-mode/imenu\" \"bazel-buildifier/failure\" \"bazel-completion-at-point\" \"bazel-fix-visibility\" \"bazel-insert-http-archive\" \"bazel-insert-http-archive/no-directory\" \"bazel-insert-http-archive/no-unique-prefix\" \"bazel-mode-flymake\" \"bazel-mode/compile\" \"bazel-mode/ffap\" \"bazel-mode/indent-region\" \"bazel-mode/speedbar\" \"bazel-mode/which-function\" \"bazel-mode/xref\" \"bazel-test-at-point\" \"bazel-test-at-point/c++-mode\" \"bazel-test-at-point/go-mode\" \"bazel-test-at-point/python-mode\" \"bazel-test/completion\" \"bazel-test/coverage\" \"bazel/project\" \"bazel/project-files\" \"bazelrc-ffap\"))")) + command-line() + normal-top-level() + +Test bazel-test-at-point condition: + Temporary directory: /tmp/bazel-mode-test-ikEiQ8 + Visited test file: /tmp/bazel-mode-test-ikEiQ8/foo.el + (file-missing "Visiting test file" "No such file or directory" + "/tmp/bazel-mode-test-ikEiQ8/foo.el") + FAILED 34/46 bazel-test-at-point (0.015365 sec) at test.el:924 + passed 35/46 bazel-test-at-point-functions (0.000144 sec) Tangled 3 code blocks from test-at-point-c++.org - passed 36/46 bazel-test-at-point/c++-mode (0.115786 sec) +Test bazel-test-at-point/c++-mode backtrace: + access-file("/tmp/bazel-mode-test-Szr17q/cc_test.cc" "Visiting test file") + (let ((previous-buffers (buffer-list))) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let ((buffer (current-buffer))) (unwind-protect (let ((case-fold-search nil)) (let ((search-spaces-regexp nil)) (let (...) (let* ... ...)))) (if (memq buffer previous-buffers) nil (kill-buffer buffer)))))) + (let ((ert--infos (cons (cons "Visited test file: " filename) ert--infos))) (let ((previous-buffers (buffer-list))) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let ((buffer (current-buffer))) (unwind-protect (let ((case-fold-search nil)) (let (...) (let ... ...))) (if (memq buffer previous-buffers) nil (kill-buffer buffer))))))) + (let* ((filename (expand-file-name "cc_test.cc" dir))) (let ((ert--infos (cons (cons "Visited test file: " filename) ert--infos))) (let ((previous-buffers (buffer-list))) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let ((buffer (current-buffer))) (unwind-protect (let (...) (let ... ...)) (if (memq buffer previous-buffers) nil (kill-buffer buffer)))))))) + (let ((dir (file-name-as-directory directory))) (let* ((filename (expand-file-name "cc_test.cc" dir))) (let ((ert--infos (cons (cons "Visited test file: " filename) ert--infos))) (let ((previous-buffers (buffer-list))) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let ((buffer ...)) (unwind-protect (let ... ...) (if ... nil ...)))))))) + (prog1 (let ((dir (file-name-as-directory directory))) (let* ((filename (expand-file-name "cc_test.cc" dir))) (let ((ert--infos (cons (cons "Visited test file: " filename) ert--infos))) (let ((previous-buffers (buffer-list))) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let (...) (unwind-protect ... ...))))))) (delete-directory directory :recursive)) + (progn (let* ((file (and t "test-at-point-c++.org"))) (if file (bazel-test--tangle directory file) nil)) (prog1 (let ((dir (file-name-as-directory directory))) (let* ((filename (expand-file-name "cc_test.cc" dir))) (let ((ert--infos (cons ... ert--infos))) (let ((previous-buffers ...)) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let ... ...)))))) (delete-directory directory :recursive))) + (let ((ert--infos (cons (cons "Temporary directory: " directory) ert--infos))) (progn (let* ((file (and t "test-at-point-c++.org"))) (if file (bazel-test--tangle directory file) nil)) (prog1 (let ((dir (file-name-as-directory directory))) (let* ((filename (expand-file-name "cc_test.cc" dir))) (let ((ert--infos ...)) (let (...) (access-file filename "Visiting test file") (save-current-buffer ... ...))))) (delete-directory directory :recursive)))) + (let ((directory (make-temp-file "bazel-mode-test-" :dir-flag))) (let ((ert--infos (cons (cons "Temporary directory: " directory) ert--infos))) (progn (let* ((file (and t "test-at-point-c++.org"))) (if file (bazel-test--tangle directory file) nil)) (prog1 (let ((dir (file-name-as-directory directory))) (let* ((filename ...)) (let (...) (let ... ... ...)))) (delete-directory directory :recursive))))) + #f(lambda () [t] (let ((directory (make-temp-file "bazel-mode-test-" :dir-flag))) (let ((ert--infos ...)) (progn (let* ... ...) (prog1 ... ...)))) 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 bazel-test-at-point/c++-mode :documentation "Test ‘bazel-test-at-point’ in ‘c++-mode’." :body #f(lambda () [t] (let ... ...) nil) :most-recent-result #s(ert-test-failed :messages "Tangled 3 code blocks from test-at-point-c++.org\n" :should-forms nil :duration 0.016117474 :condition (file-missing "Visiting test file" "No such file or directory" "/tmp/bazel-mode-test-Szr17q/cc_test.cc") :backtrace (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :infos (... ...)) :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/test.el") :result #s(ert-test-failed :messages "Tangled 3 code blocks from test-at-point-c++.org\n" :should-forms nil :duration 0.016117474 :condition (file-missing "Visiting test file" "No such file or directory" "/tmp/bazel-mode-test-Szr17q/cc_test.cc") :backtrace (#s(backtrace-frame :evald t :fun access-file :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 let :args ... :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun prog1 :args ... :flags nil :locals nil :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 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 eval :args ... :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 (("Temporary directory: " . "/tmp/bazel-mode-test-Szr17q") ("Visited test file: " . "/tmp/bazel-mode-test-Szr17q/cc_test.cc"))) :exit-continuation #f(compiled-function () #) :ert-debug-on-error nil)) + ert-run-test(#s(ert-test :name bazel-test-at-point/c++-mode :documentation "Test ‘bazel-test-at-point’ in ‘c++-mode’." :body #f(lambda () [t] (let ((directory ...)) (let (...) (progn ... ...))) nil) :most-recent-result #s(ert-test-failed :messages "Tangled 3 code blocks from test-at-point-c++.org\n" :should-forms nil :duration 0.016117474 :condition (file-missing "Visiting test file" "No such file or directory" "/tmp/bazel-mode-test-Szr17q/cc_test.cc") :backtrace (#s(backtrace-frame :evald t :fun access-file :args ("/tmp/bazel-mode-test-Szr17q/cc_test.cc" "Visiting test file") :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 let :args (... ...) :flags nil :locals (... ...) :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun prog1 :args (... ...) :flags nil :locals nil :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 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 eval :args (... t) :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 (("Temporary directory: " . "/tmp/bazel-mode-test-Szr17q") ("Visited test file: " . "/tmp/bazel-mode-test-Szr17q/cc_test.cc"))) :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/test.el")) + ert-run-or-rerun-test(#s(ert--stats :selector t :tests ... :test-map # :test-results ... :test-start-times ... :test-end-times ... :passed-expected 14 :passed-unexpected 0 :failed-expected 0 :failed-unexpected 21 :skipped 1 :start-time ... :end-time nil :aborted-p nil ...) #s(ert-test :name bazel-test-at-point/c++-mode :documentation "Test ‘bazel-test-at-point’ in ‘c++-mode’." :body #f(lambda () ... ... nil) :most-recent-result ... :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/test.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() + eval((ert-run-tests-batch-and-exit) t) + 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" "." "--eval" "(progn (setenv \"TEST_SRCDIR\" \".\") (setenv \"TEST_WORKSPACE\" \".\"))" "-l" "test.el" "--eval" "(ert-run-tests-batch-and-exit)" "'(not (or \"bazel--target-completion-table/root-package\" \"bazel--target-completion-table/subpackage\" \"bazel--target-completion-table/workspace\" \"bazel-build-mode/beginning-of-defun\" \"bazel-build-mode/end-of-defun\" \"bazel-build-mode/imenu\" \"bazel-buildifier/failure\" \"bazel-completion-at-point\" \"bazel-fix-visibility\" \"bazel-insert-http-archive\" \"bazel-insert-http-archive/no-directory\" \"bazel-insert-http-archive/no-unique-prefix\" \"bazel-mode-flymake\" \"bazel-mode/compile\" \"bazel-mode/ffap\" \"bazel-mode/indent-region\" \"bazel-mode/speedbar\" \"bazel-mode/which-function\" \"bazel-mode/xref\" \"bazel-test-at-point\" \"bazel-test-at-point/c++-mode\" \"bazel-test-at-point/go-mode\" \"bazel-test-at-point/python-mode\" \"bazel-test/completion\" \"bazel-test/coverage\" \"bazel/project\" \"bazel/project-files\" \"bazelrc-ffap\"))")) + command-line() + normal-top-level() + +Test bazel-test-at-point/c++-mode condition: + Temporary directory: /tmp/bazel-mode-test-Szr17q + Visited test file: /tmp/bazel-mode-test-Szr17q/cc_test.cc + (file-missing "Visiting test file" "No such file or directory" + "/tmp/bazel-mode-test-Szr17q/cc_test.cc") + FAILED 36/46 bazel-test-at-point/c++-mode (0.016117 sec) at test.el:966 Tangled 3 code blocks from test-at-point-go.org - passed 37/46 bazel-test-at-point/go-mode (0.093202 sec) +Test bazel-test-at-point/go-mode backtrace: + access-file("/tmp/bazel-mode-test-nsCqvh/go_test.go" "Visiting test file") + (let ((previous-buffers (buffer-list))) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let ((buffer (current-buffer))) (unwind-protect (let ((case-fold-search nil)) (let ((search-spaces-regexp nil)) (let (...) (let* ... ...)))) (if (memq buffer previous-buffers) nil (kill-buffer buffer)))))) + (let ((ert--infos (cons (cons "Visited test file: " filename) ert--infos))) (let ((previous-buffers (buffer-list))) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let ((buffer (current-buffer))) (unwind-protect (let ((case-fold-search nil)) (let (...) (let ... ...))) (if (memq buffer previous-buffers) nil (kill-buffer buffer))))))) + (let* ((filename (expand-file-name "go_test.go" dir))) (let ((ert--infos (cons (cons "Visited test file: " filename) ert--infos))) (let ((previous-buffers (buffer-list))) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let ((buffer (current-buffer))) (unwind-protect (let (...) (let ... ...)) (if (memq buffer previous-buffers) nil (kill-buffer buffer)))))))) + (let ((dir (file-name-as-directory directory))) (let* ((filename (expand-file-name "go_test.go" dir))) (let ((ert--infos (cons (cons "Visited test file: " filename) ert--infos))) (let ((previous-buffers (buffer-list))) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let ((buffer ...)) (unwind-protect (let ... ...) (if ... nil ...)))))))) + (prog1 (let ((dir (file-name-as-directory directory))) (let* ((filename (expand-file-name "go_test.go" dir))) (let ((ert--infos (cons (cons "Visited test file: " filename) ert--infos))) (let ((previous-buffers (buffer-list))) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let (...) (unwind-protect ... ...))))))) (delete-directory directory :recursive)) + (progn (let* ((file (and t "test-at-point-go.org"))) (if file (bazel-test--tangle directory file) nil)) (prog1 (let ((dir (file-name-as-directory directory))) (let* ((filename (expand-file-name "go_test.go" dir))) (let ((ert--infos (cons ... ert--infos))) (let ((previous-buffers ...)) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let ... ...)))))) (delete-directory directory :recursive))) + (let ((ert--infos (cons (cons "Temporary directory: " directory) ert--infos))) (progn (let* ((file (and t "test-at-point-go.org"))) (if file (bazel-test--tangle directory file) nil)) (prog1 (let ((dir (file-name-as-directory directory))) (let* ((filename (expand-file-name "go_test.go" dir))) (let ((ert--infos ...)) (let (...) (access-file filename "Visiting test file") (save-current-buffer ... ...))))) (delete-directory directory :recursive)))) + (let ((directory (make-temp-file "bazel-mode-test-" :dir-flag))) (let ((ert--infos (cons (cons "Temporary directory: " directory) ert--infos))) (progn (let* ((file (and t "test-at-point-go.org"))) (if file (bazel-test--tangle directory file) nil)) (prog1 (let ((dir (file-name-as-directory directory))) (let* ((filename ...)) (let (...) (let ... ... ...)))) (delete-directory directory :recursive))))) + #f(lambda () [t] (let ((directory (make-temp-file "bazel-mode-test-" :dir-flag))) (let ((ert--infos ...)) (progn (let* ... ...) (prog1 ... ...)))) 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 bazel-test-at-point/go-mode :documentation "Test ‘bazel-test-at-point’ in ‘go-mode’." :body #f(lambda () [t] (let ... ...) nil) :most-recent-result #s(ert-test-failed :messages "Tangled 3 code blocks from test-at-point-go.org\n" :should-forms nil :duration 0.013407953 :condition (file-missing "Visiting test file" "No such file or directory" "/tmp/bazel-mode-test-nsCqvh/go_test.go") :backtrace (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :infos (... ...)) :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/test.el") :result #s(ert-test-failed :messages "Tangled 3 code blocks from test-at-point-go.org\n" :should-forms nil :duration 0.013407953 :condition (file-missing "Visiting test file" "No such file or directory" "/tmp/bazel-mode-test-nsCqvh/go_test.go") :backtrace (#s(backtrace-frame :evald t :fun access-file :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 let :args ... :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun prog1 :args ... :flags nil :locals nil :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 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 eval :args ... :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 (("Temporary directory: " . "/tmp/bazel-mode-test-nsCqvh") ("Visited test file: " . "/tmp/bazel-mode-test-nsCqvh/go_test.go"))) :exit-continuation #f(compiled-function () #) :ert-debug-on-error nil)) + ert-run-test(#s(ert-test :name bazel-test-at-point/go-mode :documentation "Test ‘bazel-test-at-point’ in ‘go-mode’." :body #f(lambda () [t] (let ((directory ...)) (let (...) (progn ... ...))) nil) :most-recent-result #s(ert-test-failed :messages "Tangled 3 code blocks from test-at-point-go.org\n" :should-forms nil :duration 0.013407953 :condition (file-missing "Visiting test file" "No such file or directory" "/tmp/bazel-mode-test-nsCqvh/go_test.go") :backtrace (#s(backtrace-frame :evald t :fun access-file :args ("/tmp/bazel-mode-test-nsCqvh/go_test.go" "Visiting test file") :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 let :args (... ...) :flags nil :locals (... ...) :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun prog1 :args (... ...) :flags nil :locals nil :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 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 eval :args (... t) :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 (("Temporary directory: " . "/tmp/bazel-mode-test-nsCqvh") ("Visited test file: " . "/tmp/bazel-mode-test-nsCqvh/go_test.go"))) :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/test.el")) + ert-run-or-rerun-test(#s(ert--stats :selector t :tests ... :test-map # :test-results ... :test-start-times ... :test-end-times ... :passed-expected 14 :passed-unexpected 0 :failed-expected 0 :failed-unexpected 22 :skipped 1 :start-time ... :end-time nil :aborted-p nil ...) #s(ert-test :name bazel-test-at-point/go-mode :documentation "Test ‘bazel-test-at-point’ in ‘go-mode’." :body #f(lambda () ... ... nil) :most-recent-result ... :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/test.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() + eval((ert-run-tests-batch-and-exit) t) + 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" "." "--eval" "(progn (setenv \"TEST_SRCDIR\" \".\") (setenv \"TEST_WORKSPACE\" \".\"))" "-l" "test.el" "--eval" "(ert-run-tests-batch-and-exit)" "'(not (or \"bazel--target-completion-table/root-package\" \"bazel--target-completion-table/subpackage\" \"bazel--target-completion-table/workspace\" \"bazel-build-mode/beginning-of-defun\" \"bazel-build-mode/end-of-defun\" \"bazel-build-mode/imenu\" \"bazel-buildifier/failure\" \"bazel-completion-at-point\" \"bazel-fix-visibility\" \"bazel-insert-http-archive\" \"bazel-insert-http-archive/no-directory\" \"bazel-insert-http-archive/no-unique-prefix\" \"bazel-mode-flymake\" \"bazel-mode/compile\" \"bazel-mode/ffap\" \"bazel-mode/indent-region\" \"bazel-mode/speedbar\" \"bazel-mode/which-function\" \"bazel-mode/xref\" \"bazel-test-at-point\" \"bazel-test-at-point/c++-mode\" \"bazel-test-at-point/go-mode\" \"bazel-test-at-point/python-mode\" \"bazel-test/completion\" \"bazel-test/coverage\" \"bazel/project\" \"bazel/project-files\" \"bazelrc-ffap\"))")) + command-line() + normal-top-level() + +Test bazel-test-at-point/go-mode condition: + Temporary directory: /tmp/bazel-mode-test-nsCqvh + Visited test file: /tmp/bazel-mode-test-nsCqvh/go_test.go + (file-missing "Visiting test file" "No such file or directory" + "/tmp/bazel-mode-test-nsCqvh/go_test.go") + FAILED 37/46 bazel-test-at-point/go-mode (0.013408 sec) at test.el:986 Can't guess python-indent-offset, using defaults: 4 Tangled 3 code blocks from test-at-point-python.org - passed 38/46 bazel-test-at-point/python-mode (0.116770 sec) +Test bazel-test-at-point/python-mode backtrace: + access-file("/tmp/bazel-mode-test-IlX5YR/py_test.py" "Visiting test file") + (let ((previous-buffers (buffer-list))) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let ((buffer (current-buffer))) (unwind-protect (let ((case-fold-search nil)) (let ((search-spaces-regexp nil)) (let (...) (let* ... ...)))) (if (memq buffer previous-buffers) nil (kill-buffer buffer)))))) + (let ((ert--infos (cons (cons "Visited test file: " filename) ert--infos))) (let ((previous-buffers (buffer-list))) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let ((buffer (current-buffer))) (unwind-protect (let ((case-fold-search nil)) (let (...) (let ... ...))) (if (memq buffer previous-buffers) nil (kill-buffer buffer))))))) + (let* ((filename (expand-file-name "py_test.py" dir))) (let ((ert--infos (cons (cons "Visited test file: " filename) ert--infos))) (let ((previous-buffers (buffer-list))) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let ((buffer (current-buffer))) (unwind-protect (let (...) (let ... ...)) (if (memq buffer previous-buffers) nil (kill-buffer buffer)))))))) + (let ((dir (file-name-as-directory directory))) (let* ((filename (expand-file-name "py_test.py" dir))) (let ((ert--infos (cons (cons "Visited test file: " filename) ert--infos))) (let ((previous-buffers (buffer-list))) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let ((buffer ...)) (unwind-protect (let ... ...) (if ... nil ...)))))))) + (prog1 (let ((dir (file-name-as-directory directory))) (let* ((filename (expand-file-name "py_test.py" dir))) (let ((ert--infos (cons (cons "Visited test file: " filename) ert--infos))) (let ((previous-buffers (buffer-list))) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let (...) (unwind-protect ... ...))))))) (delete-directory directory :recursive)) + (progn (let* ((file (and t "test-at-point-python.org"))) (if file (bazel-test--tangle directory file) nil)) (prog1 (let ((dir (file-name-as-directory directory))) (let* ((filename (expand-file-name "py_test.py" dir))) (let ((ert--infos (cons ... ert--infos))) (let ((previous-buffers ...)) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let ... ...)))))) (delete-directory directory :recursive))) + (let ((ert--infos (cons (cons "Temporary directory: " directory) ert--infos))) (progn (let* ((file (and t "test-at-point-python.org"))) (if file (bazel-test--tangle directory file) nil)) (prog1 (let ((dir (file-name-as-directory directory))) (let* ((filename (expand-file-name "py_test.py" dir))) (let ((ert--infos ...)) (let (...) (access-file filename "Visiting test file") (save-current-buffer ... ...))))) (delete-directory directory :recursive)))) + (let ((directory (make-temp-file "bazel-mode-test-" :dir-flag))) (let ((ert--infos (cons (cons "Temporary directory: " directory) ert--infos))) (progn (let* ((file (and t "test-at-point-python.org"))) (if file (bazel-test--tangle directory file) nil)) (prog1 (let ((dir (file-name-as-directory directory))) (let* ((filename ...)) (let (...) (let ... ... ...)))) (delete-directory directory :recursive))))) + #f(lambda () [t] (let ((directory (make-temp-file "bazel-mode-test-" :dir-flag))) (let ((ert--infos ...)) (progn (let* ... ...) (prog1 ... ...)))) 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 bazel-test-at-point/python-mode :documentation "Test ‘bazel-test-at-point’ in ‘python-mode’." :body #f(lambda () [t] (let ... ...) nil) :most-recent-result #s(ert-test-failed :messages "Can't guess python-indent-offset, using defaults: 4\nTangled 3 code blocks from test-at-point-python.org\n" :should-forms nil :duration 0.013799727 :condition (file-missing "Visiting test file" "No such file or directory" "/tmp/bazel-mode-test-IlX5YR/py_test.py") :backtrace (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :infos (... ...)) :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/test.el") :result #s(ert-test-failed :messages "Can't guess python-indent-offset, using defaults: 4\nTangled 3 code blocks from test-at-point-python.org\n" :should-forms nil :duration 0.013799727 :condition (file-missing "Visiting test file" "No such file or directory" "/tmp/bazel-mode-test-IlX5YR/py_test.py") :backtrace (#s(backtrace-frame :evald t :fun access-file :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 let :args ... :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun prog1 :args ... :flags nil :locals nil :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 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 eval :args ... :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 (("Temporary directory: " . "/tmp/bazel-mode-test-IlX5YR") ("Visited test file: " . "/tmp/bazel-mode-test-IlX5YR/py_test.py"))) :exit-continuation #f(compiled-function () #) :ert-debug-on-error nil)) + ert-run-test(#s(ert-test :name bazel-test-at-point/python-mode :documentation "Test ‘bazel-test-at-point’ in ‘python-mode’." :body #f(lambda () [t] (let ((directory ...)) (let (...) (progn ... ...))) nil) :most-recent-result #s(ert-test-failed :messages "Can't guess python-indent-offset, using defaults: 4\nTangled 3 code blocks from test-at-point-python.org\n" :should-forms nil :duration 0.013799727 :condition (file-missing "Visiting test file" "No such file or directory" "/tmp/bazel-mode-test-IlX5YR/py_test.py") :backtrace (#s(backtrace-frame :evald t :fun access-file :args ("/tmp/bazel-mode-test-IlX5YR/py_test.py" "Visiting test file") :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 let :args (... ...) :flags nil :locals (... ...) :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun prog1 :args (... ...) :flags nil :locals nil :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 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 eval :args (... t) :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 (("Temporary directory: " . "/tmp/bazel-mode-test-IlX5YR") ("Visited test file: " . "/tmp/bazel-mode-test-IlX5YR/py_test.py"))) :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/test.el")) + ert-run-or-rerun-test(#s(ert--stats :selector t :tests ... :test-map # :test-results ... :test-start-times ... :test-end-times ... :passed-expected 14 :passed-unexpected 0 :failed-expected 0 :failed-unexpected 23 :skipped 1 :start-time ... :end-time nil :aborted-p nil ...) #s(ert-test :name bazel-test-at-point/python-mode :documentation "Test ‘bazel-test-at-point’ in ‘python-mode’." :body #f(lambda () ... ... nil) :most-recent-result ... :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/test.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() + eval((ert-run-tests-batch-and-exit) t) + 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" "." "--eval" "(progn (setenv \"TEST_SRCDIR\" \".\") (setenv \"TEST_WORKSPACE\" \".\"))" "-l" "test.el" "--eval" "(ert-run-tests-batch-and-exit)" "'(not (or \"bazel--target-completion-table/root-package\" \"bazel--target-completion-table/subpackage\" \"bazel--target-completion-table/workspace\" \"bazel-build-mode/beginning-of-defun\" \"bazel-build-mode/end-of-defun\" \"bazel-build-mode/imenu\" \"bazel-buildifier/failure\" \"bazel-completion-at-point\" \"bazel-fix-visibility\" \"bazel-insert-http-archive\" \"bazel-insert-http-archive/no-directory\" \"bazel-insert-http-archive/no-unique-prefix\" \"bazel-mode-flymake\" \"bazel-mode/compile\" \"bazel-mode/ffap\" \"bazel-mode/indent-region\" \"bazel-mode/speedbar\" \"bazel-mode/which-function\" \"bazel-mode/xref\" \"bazel-test-at-point\" \"bazel-test-at-point/c++-mode\" \"bazel-test-at-point/go-mode\" \"bazel-test-at-point/python-mode\" \"bazel-test/completion\" \"bazel-test/coverage\" \"bazel/project\" \"bazel/project-files\" \"bazelrc-ffap\"))")) + command-line() + normal-top-level() + +Test bazel-test-at-point/python-mode condition: + Temporary directory: /tmp/bazel-mode-test-IlX5YR + Visited test file: /tmp/bazel-mode-test-IlX5YR/py_test.py + (file-missing "Visiting test file" "No such file or directory" + "/tmp/bazel-mode-test-IlX5YR/py_test.py") + FAILED 38/46 bazel-test-at-point/python-mode (0.013800 sec) at test.el:946 Can't guess python-indent-offset, using defaults: 4 Tangled 4 code blocks from target-completion-root.org - passed 39/46 bazel-test/completion (0.107897 sec) +Test bazel-test/completion backtrace: + access-file("/tmp/bazel-mode-test-RLNATt/foo_test.py" "Visiting test file") + (let ((previous-buffers (buffer-list))) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let ((buffer (current-buffer))) (unwind-protect (let ((completing-read-args nil)) (let ((completing-read-function ...)) (let (...) (let* ... ...)))) (if (memq buffer previous-buffers) nil (kill-buffer buffer)))))) + (let ((ert--infos (cons (cons "Visited test file: " filename) ert--infos))) (let ((previous-buffers (buffer-list))) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let ((buffer (current-buffer))) (unwind-protect (let ((completing-read-args nil)) (let (...) (let ... ...))) (if (memq buffer previous-buffers) nil (kill-buffer buffer))))))) + (let* ((filename (expand-file-name "foo_test.py" dir))) (let ((ert--infos (cons (cons "Visited test file: " filename) ert--infos))) (let ((previous-buffers (buffer-list))) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let ((buffer (current-buffer))) (unwind-protect (let (...) (let ... ...)) (if (memq buffer previous-buffers) nil (kill-buffer buffer)))))))) + (let ((dir (file-name-as-directory directory))) (let* ((filename (expand-file-name "foo_test.py" dir))) (let ((ert--infos (cons (cons "Visited test file: " filename) ert--infos))) (let ((previous-buffers (buffer-list))) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let ((buffer ...)) (unwind-protect (let ... ...) (if ... nil ...)))))))) + (prog1 (let ((dir (file-name-as-directory directory))) (let* ((filename (expand-file-name "foo_test.py" dir))) (let ((ert--infos (cons (cons "Visited test file: " filename) ert--infos))) (let ((previous-buffers (buffer-list))) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let (...) (unwind-protect ... ...))))))) (delete-directory directory :recursive)) + (progn (let* ((file (and t "target-completion-root.org"))) (if file (bazel-test--tangle directory file) nil)) (prog1 (let ((dir (file-name-as-directory directory))) (let* ((filename (expand-file-name "foo_test.py" dir))) (let ((ert--infos (cons ... ert--infos))) (let ((previous-buffers ...)) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let ... ...)))))) (delete-directory directory :recursive))) + (let ((ert--infos (cons (cons "Temporary directory: " directory) ert--infos))) (progn (let* ((file (and t "target-completion-root.org"))) (if file (bazel-test--tangle directory file) nil)) (prog1 (let ((dir (file-name-as-directory directory))) (let* ((filename (expand-file-name "foo_test.py" dir))) (let ((ert--infos ...)) (let (...) (access-file filename "Visiting test file") (save-current-buffer ... ...))))) (delete-directory directory :recursive)))) + (let ((directory (make-temp-file "bazel-mode-test-" :dir-flag))) (let ((ert--infos (cons (cons "Temporary directory: " directory) ert--infos))) (progn (let* ((file (and t "target-completion-root.org"))) (if file (bazel-test--tangle directory file) nil)) (prog1 (let ((dir (file-name-as-directory directory))) (let* ((filename ...)) (let (...) (let ... ... ...)))) (delete-directory directory :recursive))))) + #f(lambda () [t] (let ((directory (make-temp-file "bazel-mode-test-" :dir-flag))) (let ((ert--infos ...)) (progn (let* ... ...) (prog1 ... ...)))) 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 bazel-test/completion :documentation "Test completion for ‘bazel-test’." :body #f(lambda () [t] (let ... ...) nil) :most-recent-result #s(ert-test-failed :messages "Can't guess python-indent-offset, using defaults: 4\nTangled 4 code blocks from target-completion-root.org\n" :should-forms nil :duration 0.014939911 :condition (file-missing "Visiting test file" "No such file or directory" "/tmp/bazel-mode-test-RLNATt/foo_test.py") :backtrace (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :infos (... ...)) :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/test.el") :result #s(ert-test-failed :messages "Can't guess python-indent-offset, using defaults: 4\nTangled 4 code blocks from target-completion-root.org\n" :should-forms nil :duration 0.014939911 :condition (file-missing "Visiting test file" "No such file or directory" "/tmp/bazel-mode-test-RLNATt/foo_test.py") :backtrace (#s(backtrace-frame :evald t :fun access-file :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 let :args ... :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun prog1 :args ... :flags nil :locals nil :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 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 eval :args ... :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 (("Temporary directory: " . "/tmp/bazel-mode-test-RLNATt") ("Visited test file: " . "/tmp/bazel-mode-test-RLNATt/foo_test.py"))) :exit-continuation #f(compiled-function () #) :ert-debug-on-error nil)) + ert-run-test(#s(ert-test :name bazel-test/completion :documentation "Test completion for ‘bazel-test’." :body #f(lambda () [t] (let ((directory ...)) (let (...) (progn ... ...))) nil) :most-recent-result #s(ert-test-failed :messages "Can't guess python-indent-offset, using defaults: 4\nTangled 4 code blocks from target-completion-root.org\n" :should-forms nil :duration 0.014939911 :condition (file-missing "Visiting test file" "No such file or directory" "/tmp/bazel-mode-test-RLNATt/foo_test.py") :backtrace (#s(backtrace-frame :evald t :fun access-file :args ("/tmp/bazel-mode-test-RLNATt/foo_test.py" "Visiting test file") :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 let :args (... ...) :flags nil :locals (... ...) :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun prog1 :args (... ...) :flags nil :locals nil :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 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 eval :args (... t) :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 (("Temporary directory: " . "/tmp/bazel-mode-test-RLNATt") ("Visited test file: " . "/tmp/bazel-mode-test-RLNATt/foo_test.py"))) :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/test.el")) + ert-run-or-rerun-test(#s(ert--stats :selector t :tests ... :test-map # :test-results ... :test-start-times ... :test-end-times ... :passed-expected 14 :passed-unexpected 0 :failed-expected 0 :failed-unexpected 24 :skipped 1 :start-time ... :end-time nil :aborted-p nil ...) #s(ert-test :name bazel-test/completion :documentation "Test completion for ‘bazel-test’." :body #f(lambda () ... ... nil) :most-recent-result ... :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/test.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() + eval((ert-run-tests-batch-and-exit) t) + 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" "." "--eval" "(progn (setenv \"TEST_SRCDIR\" \".\") (setenv \"TEST_WORKSPACE\" \".\"))" "-l" "test.el" "--eval" "(ert-run-tests-batch-and-exit)" "'(not (or \"bazel--target-completion-table/root-package\" \"bazel--target-completion-table/subpackage\" \"bazel--target-completion-table/workspace\" \"bazel-build-mode/beginning-of-defun\" \"bazel-build-mode/end-of-defun\" \"bazel-build-mode/imenu\" \"bazel-buildifier/failure\" \"bazel-completion-at-point\" \"bazel-fix-visibility\" \"bazel-insert-http-archive\" \"bazel-insert-http-archive/no-directory\" \"bazel-insert-http-archive/no-unique-prefix\" \"bazel-mode-flymake\" \"bazel-mode/compile\" \"bazel-mode/ffap\" \"bazel-mode/indent-region\" \"bazel-mode/speedbar\" \"bazel-mode/which-function\" \"bazel-mode/xref\" \"bazel-test-at-point\" \"bazel-test-at-point/c++-mode\" \"bazel-test-at-point/go-mode\" \"bazel-test-at-point/python-mode\" \"bazel-test/completion\" \"bazel-test/coverage\" \"bazel/project\" \"bazel/project-files\" \"bazelrc-ffap\"))")) + command-line() + normal-top-level() + +Test bazel-test/completion condition: + Temporary directory: /tmp/bazel-mode-test-RLNATt + Visited test file: /tmp/bazel-mode-test-RLNATt/foo_test.py + (file-missing "Visiting test file" "No such file or directory" + "/tmp/bazel-mode-test-RLNATt/foo_test.py") + FAILED 39/46 bazel-test/completion (0.014940 sec) at test.el:1379 Tangled 7 code blocks from coverage.org -Fundamental finished - passed 40/46 bazel-test/coverage (0.205584 sec) -Tangled 6 code blocks from project.org - passed 41/46 bazel/project (0.109630 sec) -Tangled 6 code blocks from project.org - passed 42/46 bazel/project-files (0.199534 sec) - passed 43/46 bazel/set-auto-mode (0.041732 sec) - passed 44/46 bazelignore-mode/font-lock (0.000450 sec) +Test bazel-test/coverage backtrace: + access-file("/tmp/bazel-mode-test-VNT7ht/src/main/java/example/Example.java" "Visiting test file") + (let ((previous-buffers (buffer-list))) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let ((buffer (current-buffer))) (unwind-protect (let ((case-fold-search nil) (search-spaces-regexp nil)) (setq buffer-read-only t) (let ((temp-buffer ...)) (save-current-buffer (set-buffer temp-buffer) (unwind-protect ... ...))) (let ((ert--infos ...)) (let* (... ...) (let ... ... value-383)) (let* (... ...) (let ... ... value-388))) (let ((ert--infos ...)) (search-forward "if (arg)") (let* (... ...) (let ... ... value-393)) (let* (... ...) (let ... ... value-398)) (let (...) (let* ... ...) (let* ... ...))) (let ((ert--infos ...)) (search-forward "return 137;") (forward-char (- ...)) (let* (... ...) (let ... ... value-417))) (let ((ert--infos ...)) (search-forward "return 42;") (forward-char (- ...)) (let* (... ...) (let ... ... value-422))) (let ((ert--infos ...)) (bazel-remove-coverage-display) (let* (... ...) (let ... ... value-427)) (let* (... ...) (let ... ... value-432)))) (if (memq buffer previous-buffers) nil (kill-buffer buffer)))))) + (let ((ert--infos (cons (cons "Visited test file: " filename) ert--infos))) (let ((previous-buffers (buffer-list))) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let ((buffer (current-buffer))) (unwind-protect (let ((case-fold-search nil) (search-spaces-regexp nil)) (setq buffer-read-only t) (let (...) (save-current-buffer ... ...)) (let (...) (let* ... ...) (let* ... ...)) (let (...) (search-forward "if (arg)") (let* ... ...) (let* ... ...) (let ... ... ...)) (let (...) (search-forward "return 137;") (forward-char ...) (let* ... ...)) (let (...) (search-forward "return 42;") (forward-char ...) (let* ... ...)) (let (...) (bazel-remove-coverage-display) (let* ... ...) (let* ... ...))) (if (memq buffer previous-buffers) nil (kill-buffer buffer))))))) + (let* ((filename library)) (let ((ert--infos (cons (cons "Visited test file: " filename) ert--infos))) (let ((previous-buffers (buffer-list))) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let ((buffer (current-buffer))) (unwind-protect (let (... ...) (setq buffer-read-only t) (let ... ...) (let ... ... ...) (let ... ... ... ... ...) (let ... ... ... ...) (let ... ... ... ...) (let ... ... ... ...)) (if (memq buffer previous-buffers) nil (kill-buffer buffer)))))))) + (let* ((package-dir (expand-file-name "src/main/java/example" dir)) (library (expand-file-name "Example.java" package-dir))) (let* ((filename library)) (let ((ert--infos (cons (cons "Visited test file: " filename) ert--infos))) (let ((previous-buffers (buffer-list))) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let ((buffer ...)) (unwind-protect (let ... ... ... ... ... ... ... ...) (if ... nil ...)))))))) + (let ((dir (file-name-as-directory directory))) (let* ((package-dir (expand-file-name "src/main/java/example" dir)) (library (expand-file-name "Example.java" package-dir))) (let* ((filename library)) (let ((ert--infos (cons (cons "Visited test file: " filename) ert--infos))) (let ((previous-buffers (buffer-list))) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let (...) (unwind-protect ... ...)))))))) + (prog1 (let ((dir (file-name-as-directory directory))) (let* ((package-dir (expand-file-name "src/main/java/example" dir)) (library (expand-file-name "Example.java" package-dir))) (let* ((filename library)) (let ((ert--infos (cons ... ert--infos))) (let ((previous-buffers ...)) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let ... ...))))))) (delete-directory directory :recursive)) + (progn (let* ((file (and t "coverage.org"))) (if file (bazel-test--tangle directory file) nil)) (prog1 (let ((dir (file-name-as-directory directory))) (let* ((package-dir (expand-file-name "src/main/java/example" dir)) (library (expand-file-name "Example.java" package-dir))) (let* ((filename library)) (let ((ert--infos ...)) (let (...) (access-file filename "Visiting test file") (save-current-buffer ... ...)))))) (delete-directory directory :recursive))) + (let ((ert--infos (cons (cons "Temporary directory: " directory) ert--infos))) (progn (let* ((file (and t "coverage.org"))) (if file (bazel-test--tangle directory file) nil)) (prog1 (let ((dir (file-name-as-directory directory))) (let* ((package-dir (expand-file-name "src/main/java/example" dir)) (library (expand-file-name "Example.java" package-dir))) (let* ((filename library)) (let (...) (let ... ... ...))))) (delete-directory directory :recursive)))) + (let ((directory (make-temp-file "bazel-mode-test-" :dir-flag))) (let ((ert--infos (cons (cons "Temporary directory: " directory) ert--infos))) (progn (let* ((file (and t "coverage.org"))) (if file (bazel-test--tangle directory file) nil)) (prog1 (let ((dir (file-name-as-directory directory))) (let* ((package-dir ...) (library ...)) (let* (...) (let ... ...)))) (delete-directory directory :recursive))))) + #f(lambda () [t] (let ((directory (make-temp-file "bazel-mode-test-" :dir-flag))) (let ((ert--infos ...)) (progn (let* ... ...) (prog1 ... ...)))) 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 bazel-test/coverage :documentation "Test coverage parsing and display." :body #f(lambda () [t] (let ... ...) nil) :most-recent-result #s(ert-test-failed :messages "Tangled 7 code blocks from coverage.org\n" :should-forms nil :duration 0.026158618 :condition (file-missing "Visiting test file" "No such file or directory" "/tmp/bazel-mode-test-VNT7ht/src/main/java/example/Example.java") :backtrace (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :infos (... ...)) :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/test.el") :result #s(ert-test-failed :messages "Tangled 7 code blocks from coverage.org\n" :should-forms nil :duration 0.026158618 :condition (file-missing "Visiting test file" "No such file or directory" "/tmp/bazel-mode-test-VNT7ht/src/main/java/example/Example.java") :backtrace (#s(backtrace-frame :evald t :fun access-file :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 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 prog1 :args ... :flags nil :locals nil :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 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 eval :args ... :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 (("Temporary directory: " . "/tmp/bazel-mode-test-VNT7ht") ("Visited test file: " . "/tmp/bazel-mode-test-VNT7ht/src/main/java/example/Example.java"))) :exit-continuation #f(compiled-function () #) :ert-debug-on-error nil)) + ert-run-test(#s(ert-test :name bazel-test/coverage :documentation "Test coverage parsing and display." :body #f(lambda () [t] (let ((directory ...)) (let (...) (progn ... ...))) nil) :most-recent-result #s(ert-test-failed :messages "Tangled 7 code blocks from coverage.org\n" :should-forms nil :duration 0.026158618 :condition (file-missing "Visiting test file" "No such file or directory" "/tmp/bazel-mode-test-VNT7ht/src/main/java/example/Example.java") :backtrace (#s(backtrace-frame :evald t :fun access-file :args ("/tmp/bazel-mode-test-VNT7ht/src/main/java/example/Example.java" "Visiting test file") :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 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 prog1 :args (... ...) :flags nil :locals nil :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 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 eval :args (... t) :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 (("Temporary directory: " . "/tmp/bazel-mode-test-VNT7ht") ("Visited test file: " . "/tmp/bazel-mode-test-VNT7ht/src/main/java/example/Example.java"))) :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/test.el")) + ert-run-or-rerun-test(#s(ert--stats :selector t :tests ... :test-map # :test-results ... :test-start-times ... :test-end-times ... :passed-expected 14 :passed-unexpected 0 :failed-expected 0 :failed-unexpected 25 :skipped 1 :start-time ... :end-time nil :aborted-p nil ...) #s(ert-test :name bazel-test/coverage :documentation "Test coverage parsing and display." :body #f(lambda () ... ... nil) :most-recent-result ... :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/test.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() + eval((ert-run-tests-batch-and-exit) t) + 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" "." "--eval" "(progn (setenv \"TEST_SRCDIR\" \".\") (setenv \"TEST_WORKSPACE\" \".\"))" "-l" "test.el" "--eval" "(ert-run-tests-batch-and-exit)" "'(not (or \"bazel--target-completion-table/root-package\" \"bazel--target-completion-table/subpackage\" \"bazel--target-completion-table/workspace\" \"bazel-build-mode/beginning-of-defun\" \"bazel-build-mode/end-of-defun\" \"bazel-build-mode/imenu\" \"bazel-buildifier/failure\" \"bazel-completion-at-point\" \"bazel-fix-visibility\" \"bazel-insert-http-archive\" \"bazel-insert-http-archive/no-directory\" \"bazel-insert-http-archive/no-unique-prefix\" \"bazel-mode-flymake\" \"bazel-mode/compile\" \"bazel-mode/ffap\" \"bazel-mode/indent-region\" \"bazel-mode/speedbar\" \"bazel-mode/which-function\" \"bazel-mode/xref\" \"bazel-test-at-point\" \"bazel-test-at-point/c++-mode\" \"bazel-test-at-point/go-mode\" \"bazel-test-at-point/python-mode\" \"bazel-test/completion\" \"bazel-test/coverage\" \"bazel/project\" \"bazel/project-files\" \"bazelrc-ffap\"))")) + command-line() + normal-top-level() + +Test bazel-test/coverage condition: + Temporary directory: /tmp/bazel-mode-test-VNT7ht + Visited test file: /tmp/bazel-mode-test-VNT7ht/src/main/java/example/Example.java + (file-missing "Visiting test file" "No such file or directory" + "/tmp/bazel-mode-test-VNT7ht/src/main/java/example/Example.java") + FAILED 40/46 bazel-test/coverage (0.026159 sec) at test.el:461 +Test bazel/project backtrace: + insert-file-contents("/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/testdata/bazel-out") + #f(compiled-function (by-fn) #)(("/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/testdata/bazel-out" ("fundamental" 24 "../../build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/testdata/project.org" "file:../../build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/testdata/project.org::*Test data for project tests" "Test data for project tests:2" ((:colname-names) (:rowname-names) (:result-params "replace") (:result-type . value) (:results . "replace") (:exports . "code") (:tangle . "bazel-out") (:mkdirp . "yes") (:hlines . "no") (:noweb . "no") (:cache . "no") (:session . "none")) "Dummy symbolic link" nil))) + mapc(#f(compiled-function (by-fn) #) (("/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/testdata/WORKSPACE" ("bazel-workspace" 20 "../../build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/testdata/project.org" "file:../../build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/testdata/project.org::*Test data for project tests" "Test data for project tests:1" ((:colname-names) (:rowname-names) (:result-params "replace") (:result-type . value) (:results . "replace") (:exports . "code") (:tangle . "WORKSPACE") (:mkdirp . "yes") (:hlines . "no") (:noweb . "no") (:cache . "no") (:session . "none")) "workspace(name = \"test\")" nil)) ("/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/testdata/bazel-out" ("fundamental" 24 "../../build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/testdata/project.org" "file:../../build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/testdata/project.org::*Test data for project tests" "Test data for project tests:2" ((:colname-names) (:rowname-names) (:result-params "replace") (:result-type . value) (:results . "replace") (:exports . "code") (:tangle . "bazel-out") (:mkdirp . "yes") (:hlines . "no") (:noweb . "no") (:cache . "no") (:session . "none")) "Dummy symbolic link" nil)) ("/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/testdata/.bazelignore" ("bazelignore" 28 "../../build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/testdata/project.org" "file:../../build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/testdata/project.org::*Test data for project tests" "Test data for project tests:3" ((:colname-names) (:rowname-names) (:result-params "replace") (:result-type . value) (:results . "replace") (:exports . "code") (:tangle . ".bazelignore") (:mkdirp . "yes") (:hlines . "no") (:noweb . "no") (:cache . "no") (:session . "none")) "ignored-directory/\n# comment\nignored directory # with number sign" nil)) ("/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/testdata/package/BUILD" ("bazel-build" 34 "../../build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/testdata/project.org" "file:../../../build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/testdata/project.org::*Test data for project tests" "Test data for project tests:4" ((:colname-names) (:rowname-names) (:result-params "replace") (:result-type . value) (:results . "replace") (:exports . "code") (:tangle . "package/BUILD") (:mkdirp . "yes") (:hlines . "no") (:noweb . "no") (:cache . "no") (:session . "none")) "cc_library(\n name = \"lib\",\n srcs = [\n \"aaa.cc\",\n \"dir/bbb.cc\",\n \":aaa.cc\",\n \"//:aaa.cc\",\n \"//pkg:ccc.cc\",\n \"@ws//pkg:ddd.cc\",\n ],\n)\n\ncc_binary(\n name = \"bin\",\n deps = [\n \":lib\",\n \"//:lib\",\n \"//pkg\",\n \"//pkg:lib\",\n ],\n)" nil)) ("/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/testdata/ignored-directory/BUILD" ("bazel-build" 63 "../../build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/testdata/project.org" "file:../../../build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/testdata/project.org::*Files in ignored subdirectories" "Files in ignored subdirectories:1" ((:colname-names) (:rowname-names) (:result-params "replace") (:result-type . value) (:results . "replace") (:exports . "code") (:tangle . "ignored-directory/BUILD") (:mkdirp . "yes") (:hlines . "no") (:noweb . "no") (:cache . "no") (:session . "none")) "# Empty file" nil)) ("/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/testdata/ignored directory # with number sign/BUILD" ("bazel-build" 67 "../../build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/testdata/project.org" "file:../../../build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/testdata/project.org::*Files in ignored subdirectories" "Files in ignored subdirectories:2" ((:colname-names) (:rowname-names) (:result-params "replace") (:result-type . value) (:results . "replace") (:exports . "code") (:tangle . "ignored directory # with number sign/BUILD") (:mkdirp . "yes") (:hlines . "no") (:noweb . "no") (:cache . "no") (:session . "none")) "# Empty file" nil)))) + org-babel-tangle() + (let ((default-directory directory) (org-babel-tangle-body-hook (list #'(lambda nil (save-excursion (let ... ... ...)))))) (org-babel-tangle)) + (unwind-protect (let ((default-directory directory) (org-babel-tangle-body-hook (list #'(lambda nil (save-excursion ...))))) (org-babel-tangle)) (if (memq buffer previous-buffers) nil (kill-buffer buffer))) + (let ((buffer (current-buffer))) (unwind-protect (let ((default-directory directory) (org-babel-tangle-body-hook (list #'(lambda nil ...)))) (org-babel-tangle)) (if (memq buffer previous-buffers) nil (kill-buffer buffer)))) + (save-current-buffer (find-file-existing filename) (let ((buffer (current-buffer))) (unwind-protect (let ((default-directory directory) (org-babel-tangle-body-hook (list #'...))) (org-babel-tangle)) (if (memq buffer previous-buffers) nil (kill-buffer buffer))))) + (let ((previous-buffers (buffer-list))) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let ((buffer (current-buffer))) (unwind-protect (let ((default-directory directory) (org-babel-tangle-body-hook (list ...))) (org-babel-tangle)) (if (memq buffer previous-buffers) nil (kill-buffer buffer)))))) + (let ((ert--infos (cons (cons "Visited test file: " filename) ert--infos))) (let ((previous-buffers (buffer-list))) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let ((buffer (current-buffer))) (unwind-protect (let ((default-directory directory) (org-babel-tangle-body-hook ...)) (org-babel-tangle)) (if (memq buffer previous-buffers) nil (kill-buffer buffer))))))) + (let* ((filename (expand-file-name (concat "testdata/" org-file) bazel-test--directory))) (let ((ert--infos (cons (cons "Visited test file: " filename) ert--infos))) (let ((previous-buffers (buffer-list))) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let ((buffer (current-buffer))) (unwind-protect (let (... ...) (org-babel-tangle)) (if (memq buffer previous-buffers) nil (kill-buffer buffer)))))))) + bazel-test--tangle("/tmp/bazel-mode-test-iQ16D7" "project.org") + (if file (bazel-test--tangle directory file) nil) + (let* ((file (and t "project.org"))) (if file (bazel-test--tangle directory file) nil)) + (progn (let* ((file (and t "project.org"))) (if file (bazel-test--tangle directory file) nil)) (prog1 (let ((dir (file-name-as-directory directory))) (let ((project (project-current nil dir))) (let ((value-310 (gensym "ert-form-evaluation-aborted-"))) (let (form-description-311) (if (unwind-protect ... ... ...) nil (ert-fail form-description-311))) value-310) (let* ((fn-312 #'bazel-workspace-p) (args-313 (condition-case err ... ...))) (let ((value-314 ...)) (let (form-description-316) (if ... nil ...)) value-314)) (let* ((fn-317 #'bazel-workspace-root) (args-318 (condition-case err ... ...))) (let ((value-319 ...)) (let (form-description-321) (if ... nil ...)) value-319)) (let* ((fn-322 #'directory-name-p) (args-323 (condition-case err ... ...))) (let ((value-324 ...)) (let (form-description-326) (if ... nil ...)) value-324)) (let* ((fn-327 #'file-directory-p) (args-328 (condition-case err ... ...))) (let ((value-329 ...)) (let (form-description-331) (if ... nil ...)) value-329)) (let* ((fn-332 #'file-equal-p) (args-333 (condition-case err ... ...))) (let ((value-334 ...)) (let (form-description-336) (if ... nil ...)) value-334)) (let* ((fn-337 #'file-equal-p) (args-338 (condition-case err ... ...))) (let ((value-339 ...)) (let (form-description-341) (if ... nil ...)) value-339)) (progn (let* ((fn-342 ...) (args-343 ...)) (let (...) (let ... ...) value-344)) (let* ((fn-347 ...) (args-348 ...)) (let (...) (let ... ...) value-349)) (let* ((fn-352 ...) (args-353 ...)) (let (...) (let ... ...) value-354))) (let* ((fn-357 #'project-external-roots) (args-358 (condition-case err ... ...))) (let ((value-359 ...)) (let (form-description-361) (if ... nil ...)) value-359)))) (delete-directory directory :recursive))) + (let ((ert--infos (cons (cons "Temporary directory: " directory) ert--infos))) (progn (let* ((file (and t "project.org"))) (if file (bazel-test--tangle directory file) nil)) (prog1 (let ((dir (file-name-as-directory directory))) (let ((project (project-current nil dir))) (let ((value-310 ...)) (let (form-description-311) (if ... nil ...)) value-310) (let* ((fn-312 ...) (args-313 ...)) (let (...) (let ... ...) value-314)) (let* ((fn-317 ...) (args-318 ...)) (let (...) (let ... ...) value-319)) (let* ((fn-322 ...) (args-323 ...)) (let (...) (let ... ...) value-324)) (let* ((fn-327 ...) (args-328 ...)) (let (...) (let ... ...) value-329)) (let* ((fn-332 ...) (args-333 ...)) (let (...) (let ... ...) value-334)) (let* ((fn-337 ...) (args-338 ...)) (let (...) (let ... ...) value-339)) (progn (let* (... ...) (let ... ... value-344)) (let* (... ...) (let ... ... value-349)) (let* (... ...) (let ... ... value-354))) (let* ((fn-357 ...) (args-358 ...)) (let (...) (let ... ...) value-359)))) (delete-directory directory :recursive)))) + (let ((directory (make-temp-file "bazel-mode-test-" :dir-flag))) (let ((ert--infos (cons (cons "Temporary directory: " directory) ert--infos))) (progn (let* ((file (and t "project.org"))) (if file (bazel-test--tangle directory file) nil)) (prog1 (let ((dir (file-name-as-directory directory))) (let ((project ...)) (let (...) (let ... ...) value-310) (let* (... ...) (let ... ... value-314)) (let* (... ...) (let ... ... value-319)) (let* (... ...) (let ... ... value-324)) (let* (... ...) (let ... ... value-329)) (let* (... ...) (let ... ... value-334)) (let* (... ...) (let ... ... value-339)) (progn (let* ... ...) (let* ... ...) (let* ... ...)) (let* (... ...) (let ... ... value-359)))) (delete-directory directory :recursive))))) + #f(lambda () [t] (let ((directory (make-temp-file "bazel-mode-test-" :dir-flag))) (let ((ert--infos ...)) (progn (let* ... ...) (prog1 ... ...)))) 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 bazel/project :documentation "Test project support for Bazel workspaces." :body #f(lambda () ... ... nil) :most-recent-result #s(ert-test-failed :messages "" :should-forms nil :duration 0.017758599 :condition ... :backtrace ... :infos ...) :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/test.el") :result #s(ert-test-failed :messages "" :should-forms nil :duration 0.017758599 :condition (file-error "Read error" "Is a directory" "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/testdata/bazel-out") :backtrace (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :infos (... ...)) :exit-continuation #f(compiled-function () #) :ert-debug-on-error nil)) + ert-run-test(#s(ert-test :name bazel/project :documentation "Test project support for Bazel workspaces." :body #f(lambda () [t] (let ((directory ...)) (let (...) (progn ... ...))) nil) :most-recent-result #s(ert-test-failed :messages "" :should-forms nil :duration 0.017758599 :condition (file-error "Read error" "Is a directory" "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/testdata/bazel-out") :backtrace (#s(backtrace-frame :evald t :fun insert-file-contents :args ("/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/testdata/bazel-out") :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun #f(compiled-function (by-fn) #) :args (...) :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun mapc :args (#f(compiled-function (by-fn) #) ...) :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun org-babel-tangle :args nil :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 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 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 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 bazel-test--tangle :args ("/tmp/bazel-mode-test-iQ16D7" "project.org") :flags nil :locals (... ...) :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun if :args (file ... 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 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 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 eval :args (... t) :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 (("Temporary directory: " . "/tmp/bazel-mode-test-iQ16D7") ("Visited test file: " . "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/testdata/project.org"))) :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/test.el")) + ert-run-or-rerun-test(#s(ert--stats :selector t :tests ... :test-map # :test-results ... :test-start-times ... :test-end-times ... :passed-expected 14 :passed-unexpected 0 :failed-expected 0 :failed-unexpected 26 :skipped 1 :start-time ... :end-time nil :aborted-p nil ...) #s(ert-test :name bazel/project :documentation "Test project support for Bazel workspaces." :body #f(lambda () ... ... nil) :most-recent-result ... :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/test.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() + eval((ert-run-tests-batch-and-exit) t) + 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" "." "--eval" "(progn (setenv \"TEST_SRCDIR\" \".\") (setenv \"TEST_WORKSPACE\" \".\"))" "-l" "test.el" "--eval" "(ert-run-tests-batch-and-exit)" "'(not (or \"bazel--target-completion-table/root-package\" \"bazel--target-completion-table/subpackage\" \"bazel--target-completion-table/workspace\" \"bazel-build-mode/beginning-of-defun\" \"bazel-build-mode/end-of-defun\" \"bazel-build-mode/imenu\" \"bazel-buildifier/failure\" \"bazel-completion-at-point\" \"bazel-fix-visibility\" \"bazel-insert-http-archive\" \"bazel-insert-http-archive/no-directory\" \"bazel-insert-http-archive/no-unique-prefix\" \"bazel-mode-flymake\" \"bazel-mode/compile\" \"bazel-mode/ffap\" \"bazel-mode/indent-region\" \"bazel-mode/speedbar\" \"bazel-mode/which-function\" \"bazel-mode/xref\" \"bazel-test-at-point\" \"bazel-test-at-point/c++-mode\" \"bazel-test-at-point/go-mode\" \"bazel-test-at-point/python-mode\" \"bazel-test/completion\" \"bazel-test/coverage\" \"bazel/project\" \"bazel/project-files\" \"bazelrc-ffap\"))")) + command-line() + normal-top-level() + +Test bazel/project condition: + Temporary directory: /tmp/bazel-mode-test-iQ16D7 + Visited test file: /build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/testdata/project.org + (file-error "Read error" "Is a directory" + "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/testdata/bazel-out") + FAILED 41/46 bazel/project (0.017759 sec) at test.el:426 +Test bazel/project-files backtrace: + insert-file-contents("/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/testdata/bazel-out") + #f(compiled-function (by-fn) #)(("/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/testdata/bazel-out" ("fundamental" 24 "../../build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/testdata/project.org" "file:../../build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/testdata/project.org::*Test data for project tests" "Test data for project tests:2" ((:colname-names) (:rowname-names) (:result-params "replace") (:result-type . value) (:results . "replace") (:exports . "code") (:tangle . "bazel-out") (:mkdirp . "yes") (:hlines . "no") (:noweb . "no") (:cache . "no") (:session . "none")) "Dummy symbolic link" nil))) + mapc(#f(compiled-function (by-fn) #) (("/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/testdata/WORKSPACE" ("bazel-workspace" 20 "../../build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/testdata/project.org" "file:../../build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/testdata/project.org::*Test data for project tests" "Test data for project tests:1" ((:colname-names) (:rowname-names) (:result-params "replace") (:result-type . value) (:results . "replace") (:exports . "code") (:tangle . "WORKSPACE") (:mkdirp . "yes") (:hlines . "no") (:noweb . "no") (:cache . "no") (:session . "none")) "workspace(name = \"test\")" nil)) ("/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/testdata/bazel-out" ("fundamental" 24 "../../build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/testdata/project.org" "file:../../build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/testdata/project.org::*Test data for project tests" "Test data for project tests:2" ((:colname-names) (:rowname-names) (:result-params "replace") (:result-type . value) (:results . "replace") (:exports . "code") (:tangle . "bazel-out") (:mkdirp . "yes") (:hlines . "no") (:noweb . "no") (:cache . "no") (:session . "none")) "Dummy symbolic link" nil)) ("/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/testdata/.bazelignore" ("bazelignore" 28 "../../build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/testdata/project.org" "file:../../build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/testdata/project.org::*Test data for project tests" "Test data for project tests:3" ((:colname-names) (:rowname-names) (:result-params "replace") (:result-type . value) (:results . "replace") (:exports . "code") (:tangle . ".bazelignore") (:mkdirp . "yes") (:hlines . "no") (:noweb . "no") (:cache . "no") (:session . "none")) "ignored-directory/\n# comment\nignored directory # with number sign" nil)) ("/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/testdata/package/BUILD" ("bazel-build" 34 "../../build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/testdata/project.org" "file:../../../build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/testdata/project.org::*Test data for project tests" "Test data for project tests:4" ((:colname-names) (:rowname-names) (:result-params "replace") (:result-type . value) (:results . "replace") (:exports . "code") (:tangle . "package/BUILD") (:mkdirp . "yes") (:hlines . "no") (:noweb . "no") (:cache . "no") (:session . "none")) "cc_library(\n name = \"lib\",\n srcs = [\n \"aaa.cc\",\n \"dir/bbb.cc\",\n \":aaa.cc\",\n \"//:aaa.cc\",\n \"//pkg:ccc.cc\",\n \"@ws//pkg:ddd.cc\",\n ],\n)\n\ncc_binary(\n name = \"bin\",\n deps = [\n \":lib\",\n \"//:lib\",\n \"//pkg\",\n \"//pkg:lib\",\n ],\n)" nil)) ("/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/testdata/ignored-directory/BUILD" ("bazel-build" 63 "../../build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/testdata/project.org" "file:../../../build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/testdata/project.org::*Files in ignored subdirectories" "Files in ignored subdirectories:1" ((:colname-names) (:rowname-names) (:result-params "replace") (:result-type . value) (:results . "replace") (:exports . "code") (:tangle . "ignored-directory/BUILD") (:mkdirp . "yes") (:hlines . "no") (:noweb . "no") (:cache . "no") (:session . "none")) "# Empty file" nil)) ("/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/testdata/ignored directory # with number sign/BUILD" ("bazel-build" 67 "../../build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/testdata/project.org" "file:../../../build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/testdata/project.org::*Files in ignored subdirectories" "Files in ignored subdirectories:2" ((:colname-names) (:rowname-names) (:result-params "replace") (:result-type . value) (:results . "replace") (:exports . "code") (:tangle . "ignored directory # with number sign/BUILD") (:mkdirp . "yes") (:hlines . "no") (:noweb . "no") (:cache . "no") (:session . "none")) "# Empty file" nil)))) + org-babel-tangle() + (let ((default-directory directory) (org-babel-tangle-body-hook (list #'(lambda nil (save-excursion (let ... ... ...)))))) (org-babel-tangle)) + (unwind-protect (let ((default-directory directory) (org-babel-tangle-body-hook (list #'(lambda nil (save-excursion ...))))) (org-babel-tangle)) (if (memq buffer previous-buffers) nil (kill-buffer buffer))) + (let ((buffer (current-buffer))) (unwind-protect (let ((default-directory directory) (org-babel-tangle-body-hook (list #'(lambda nil ...)))) (org-babel-tangle)) (if (memq buffer previous-buffers) nil (kill-buffer buffer)))) + (save-current-buffer (find-file-existing filename) (let ((buffer (current-buffer))) (unwind-protect (let ((default-directory directory) (org-babel-tangle-body-hook (list #'...))) (org-babel-tangle)) (if (memq buffer previous-buffers) nil (kill-buffer buffer))))) + (let ((previous-buffers (buffer-list))) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let ((buffer (current-buffer))) (unwind-protect (let ((default-directory directory) (org-babel-tangle-body-hook (list ...))) (org-babel-tangle)) (if (memq buffer previous-buffers) nil (kill-buffer buffer)))))) + (let ((ert--infos (cons (cons "Visited test file: " filename) ert--infos))) (let ((previous-buffers (buffer-list))) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let ((buffer (current-buffer))) (unwind-protect (let ((default-directory directory) (org-babel-tangle-body-hook ...)) (org-babel-tangle)) (if (memq buffer previous-buffers) nil (kill-buffer buffer))))))) + (let* ((filename (expand-file-name (concat "testdata/" org-file) bazel-test--directory))) (let ((ert--infos (cons (cons "Visited test file: " filename) ert--infos))) (let ((previous-buffers (buffer-list))) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let ((buffer (current-buffer))) (unwind-protect (let (... ...) (org-babel-tangle)) (if (memq buffer previous-buffers) nil (kill-buffer buffer)))))))) + bazel-test--tangle("/tmp/bazel-mode-test-WHNe7T" "project.org") + (if file (bazel-test--tangle directory file) nil) + (let* ((file (and t "project.org"))) (if file (bazel-test--tangle directory file) nil)) + (progn (let* ((file (and t "project.org"))) (if file (bazel-test--tangle directory file) nil)) (prog1 (let ((dir (file-name-as-directory directory))) (let* ((dir (file-name-unquote dir)) (project (project-current nil dir)) (files (project-files project))) (let ((value-367 (gensym "ert-form-evaluation-aborted-"))) (let (form-description-368) (if (unwind-protect ... ... ...) nil (ert-fail form-description-368))) value-367) (let* ((fn-369 #'bazel-workspace-p) (args-370 (condition-case err ... ...))) (let ((value-371 ...)) (let (form-description-373) (if ... nil ...)) value-371)) (let ((value-374 (gensym "ert-form-evaluation-aborted-"))) (let (form-description-375) (if (unwind-protect ... ... ...) nil (ert-fail form-description-375))) value-374) (let* ((fn-376 #'equal) (args-377 (condition-case err ... ...))) (let ((value-378 ...)) (let (form-description-380) (if ... nil ...)) value-378)))) (delete-directory directory :recursive))) + (let ((ert--infos (cons (cons "Temporary directory: " directory) ert--infos))) (progn (let* ((file (and t "project.org"))) (if file (bazel-test--tangle directory file) nil)) (prog1 (let ((dir (file-name-as-directory directory))) (let* ((dir (file-name-unquote dir)) (project (project-current nil dir)) (files (project-files project))) (let ((value-367 ...)) (let (form-description-368) (if ... nil ...)) value-367) (let* ((fn-369 ...) (args-370 ...)) (let (...) (let ... ...) value-371)) (let ((value-374 ...)) (let (form-description-375) (if ... nil ...)) value-374) (let* ((fn-376 ...) (args-377 ...)) (let (...) (let ... ...) value-378)))) (delete-directory directory :recursive)))) + (let ((directory (make-temp-file "bazel-mode-test-" :dir-flag))) (let ((ert--infos (cons (cons "Temporary directory: " directory) ert--infos))) (progn (let* ((file (and t "project.org"))) (if file (bazel-test--tangle directory file) nil)) (prog1 (let ((dir (file-name-as-directory directory))) (let* ((dir ...) (project ...) (files ...)) (let (...) (let ... ...) value-367) (let* (... ...) (let ... ... value-371)) (let (...) (let ... ...) value-374) (let* (... ...) (let ... ... value-378)))) (delete-directory directory :recursive))))) + (let ((find-program (if (eq system-type 'darwin) "gfind" find-program))) (let* ((fn-362 #'executable-find) (args-363 (condition-case err (list find-program) (error (progn (setq fn-362 ...) (list ... ...)))))) (let ((value-364 'ert-form-evaluation-aborted-365)) (let (form-description-366) (if (condition-case nil (progn (unwind-protect ... ... ...)) (error nil)) nil (ert-skip form-description-366))) value-364)) (let ((directory (make-temp-file "bazel-mode-test-" :dir-flag))) (let ((ert--infos (cons (cons "Temporary directory: " directory) ert--infos))) (progn (let* ((file (and t "project.org"))) (if file (bazel-test--tangle directory file) nil)) (prog1 (let ((dir ...)) (let* (... ... ...) (let ... ... value-367) (let* ... ...) (let ... ... value-374) (let* ... ...))) (delete-directory directory :recursive)))))) + #f(lambda () [t] (let ((find-program (if ... "gfind" find-program))) (let* ((fn-362 ...) (args-363 ...)) (let (...) (let ... ...) value-364)) (let ((directory ...)) (let (...) (progn ... ...)))) 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 bazel/project-files :documentation "Test ‘project-files’ support for Bazel workspaces." :body #f(lambda () ... ... nil) :most-recent-result #s(ert-test-failed :messages "" :should-forms ... :duration 0.015668975 :condition ... :backtrace ... :infos ...) :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/test.el") :result #s(ert-test-failed :messages "" :should-forms (...) :duration 0.015668975 :condition (file-error "Read error" "Is a directory" "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/testdata/bazel-out") :backtrace (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :infos (... ...)) :exit-continuation #f(compiled-function () #) :ert-debug-on-error nil)) + ert-run-test(#s(ert-test :name bazel/project-files :documentation "Test ‘project-files’ support for Bazel workspaces." :body #f(lambda () [t] (let ((find-program ...)) (let* (... ...) (let ... ... value-364)) (let (...) (let ... ...))) nil) :most-recent-result #s(ert-test-failed :messages "" :should-forms (((skip-unless ...) :form (executable-find "find") :value "/usr/bin/find")) :duration 0.015668975 :condition (file-error "Read error" "Is a directory" "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/testdata/bazel-out") :backtrace (#s(backtrace-frame :evald t :fun insert-file-contents :args ("/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/testdata/bazel-out") :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun #f(compiled-function (by-fn) #) :args (...) :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun mapc :args (#f(compiled-function (by-fn) #) ...) :flags nil :locals nil :buffer nil :pos nil) #s(backtrace-frame :evald t :fun org-babel-tangle :args nil :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 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 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 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 bazel-test--tangle :args ("/tmp/bazel-mode-test-WHNe7T" "project.org") :flags nil :locals (... ...) :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun if :args (file ... 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 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 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 () ... ... 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 eval :args (... t) :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 (("Temporary directory: " . "/tmp/bazel-mode-test-WHNe7T") ("Visited test file: " . "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/testdata/project.org"))) :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/test.el")) + ert-run-or-rerun-test(#s(ert--stats :selector t :tests ... :test-map # :test-results ... :test-start-times ... :test-end-times ... :passed-expected 14 :passed-unexpected 0 :failed-expected 0 :failed-unexpected 27 :skipped 1 :start-time ... :end-time nil :aborted-p nil ...) #s(ert-test :name bazel/project-files :documentation "Test ‘project-files’ support for Bazel workspaces." :body #f(lambda () ... ... nil) :most-recent-result ... :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/test.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() + eval((ert-run-tests-batch-and-exit) t) + 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" "." "--eval" "(progn (setenv \"TEST_SRCDIR\" \".\") (setenv \"TEST_WORKSPACE\" \".\"))" "-l" "test.el" "--eval" "(ert-run-tests-batch-and-exit)" "'(not (or \"bazel--target-completion-table/root-package\" \"bazel--target-completion-table/subpackage\" \"bazel--target-completion-table/workspace\" \"bazel-build-mode/beginning-of-defun\" \"bazel-build-mode/end-of-defun\" \"bazel-build-mode/imenu\" \"bazel-buildifier/failure\" \"bazel-completion-at-point\" \"bazel-fix-visibility\" \"bazel-insert-http-archive\" \"bazel-insert-http-archive/no-directory\" \"bazel-insert-http-archive/no-unique-prefix\" \"bazel-mode-flymake\" \"bazel-mode/compile\" \"bazel-mode/ffap\" \"bazel-mode/indent-region\" \"bazel-mode/speedbar\" \"bazel-mode/which-function\" \"bazel-mode/xref\" \"bazel-test-at-point\" \"bazel-test-at-point/c++-mode\" \"bazel-test-at-point/go-mode\" \"bazel-test-at-point/python-mode\" \"bazel-test/completion\" \"bazel-test/coverage\" \"bazel/project\" \"bazel/project-files\" \"bazelrc-ffap\"))")) + command-line() + normal-top-level() + +Test bazel/project-files condition: + Temporary directory: /tmp/bazel-mode-test-WHNe7T + Visited test file: /build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/testdata/project.org + (file-error "Read error" "Is a directory" + "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/testdata/bazel-out") + FAILED 42/46 bazel/project-files (0.015669 sec) at test.el:443 + passed 43/46 bazel/set-auto-mode (0.006403 sec) + passed 44/46 bazelignore-mode/font-lock (0.000308 sec) Tangled 3 code blocks from bazelrc.org - passed 45/46 bazelrc-ffap (0.076226 sec) - passed 46/46 bazelrc-mode (0.000494 sec) +Test bazelrc-ffap backtrace: + access-file("/tmp/bazel-mode-test-sdr5tM/.bazelrc" "Visiting test file") + (let ((previous-buffers (buffer-list))) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let ((buffer (current-buffer))) (unwind-protect (let ((case-fold-search nil) (search-spaces-regexp nil)) (let* ((fn-892 ...) (args-893 ...)) (let (...) (let ... ...) value-894)) (search-forward "import %workspace%/") (let ((file-at-point ...)) (let* (... ...) (let ... ... value-899)) (let* (... ...) (let ... ... value-904)))) (if (memq buffer previous-buffers) nil (kill-buffer buffer)))))) + (let ((ert--infos (cons (cons "Visited test file: " filename) ert--infos))) (let ((previous-buffers (buffer-list))) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let ((buffer (current-buffer))) (unwind-protect (let ((case-fold-search nil) (search-spaces-regexp nil)) (let* (... ...) (let ... ... value-894)) (search-forward "import %workspace%/") (let (...) (let* ... ...) (let* ... ...))) (if (memq buffer previous-buffers) nil (kill-buffer buffer))))))) + (let* ((filename (expand-file-name ".bazelrc" dir))) (let ((ert--infos (cons (cons "Visited test file: " filename) ert--infos))) (let ((previous-buffers (buffer-list))) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let ((buffer (current-buffer))) (unwind-protect (let (... ...) (let* ... ...) (search-forward "import %workspace%/") (let ... ... ...)) (if (memq buffer previous-buffers) nil (kill-buffer buffer)))))))) + (let ((dir (file-name-as-directory directory))) (let* ((filename (expand-file-name ".bazelrc" dir))) (let ((ert--infos (cons (cons "Visited test file: " filename) ert--infos))) (let ((previous-buffers (buffer-list))) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let ((buffer ...)) (unwind-protect (let ... ... ... ...) (if ... nil ...)))))))) + (prog1 (let ((dir (file-name-as-directory directory))) (let* ((filename (expand-file-name ".bazelrc" dir))) (let ((ert--infos (cons (cons "Visited test file: " filename) ert--infos))) (let ((previous-buffers (buffer-list))) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let (...) (unwind-protect ... ...))))))) (delete-directory directory :recursive)) + (progn (let* ((file (and t "bazelrc.org"))) (if file (bazel-test--tangle directory file) nil)) (prog1 (let ((dir (file-name-as-directory directory))) (let* ((filename (expand-file-name ".bazelrc" dir))) (let ((ert--infos (cons ... ert--infos))) (let ((previous-buffers ...)) (access-file filename "Visiting test file") (save-current-buffer (find-file-existing filename) (let ... ...)))))) (delete-directory directory :recursive))) + (let ((ert--infos (cons (cons "Temporary directory: " directory) ert--infos))) (progn (let* ((file (and t "bazelrc.org"))) (if file (bazel-test--tangle directory file) nil)) (prog1 (let ((dir (file-name-as-directory directory))) (let* ((filename (expand-file-name ".bazelrc" dir))) (let ((ert--infos ...)) (let (...) (access-file filename "Visiting test file") (save-current-buffer ... ...))))) (delete-directory directory :recursive)))) + (let ((directory (make-temp-file "bazel-mode-test-" :dir-flag))) (let ((ert--infos (cons (cons "Temporary directory: " directory) ert--infos))) (progn (let* ((file (and t "bazelrc.org"))) (if file (bazel-test--tangle directory file) nil)) (prog1 (let ((dir (file-name-as-directory directory))) (let* ((filename ...)) (let (...) (let ... ... ...)))) (delete-directory directory :recursive))))) + #f(lambda () [t] (let ((directory (make-temp-file "bazel-mode-test-" :dir-flag))) (let ((ert--infos ...)) (progn (let* ... ...) (prog1 ... ...)))) 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 bazelrc-ffap :documentation nil :body #f(lambda () [t] (let ... ...) nil) :most-recent-result #s(ert-test-failed :messages "Tangled 3 code blocks from bazelrc.org\n" :should-forms nil :duration 0.013400342 :condition (file-missing "Visiting test file" "No such file or directory" "/tmp/bazel-mode-test-sdr5tM/.bazelrc") :backtrace (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :infos (... ...)) :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/test.el") :result #s(ert-test-failed :messages "Tangled 3 code blocks from bazelrc.org\n" :should-forms nil :duration 0.013400342 :condition (file-missing "Visiting test file" "No such file or directory" "/tmp/bazel-mode-test-sdr5tM/.bazelrc") :backtrace (#s(backtrace-frame :evald t :fun access-file :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 let :args ... :flags nil :locals ... :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun prog1 :args ... :flags nil :locals nil :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 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 eval :args ... :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 (("Temporary directory: " . "/tmp/bazel-mode-test-sdr5tM") ("Visited test file: " . "/tmp/bazel-mode-test-sdr5tM/.bazelrc"))) :exit-continuation #f(compiled-function () #) :ert-debug-on-error nil)) + ert-run-test(#s(ert-test :name bazelrc-ffap :documentation nil :body #f(lambda () [t] (let ((directory ...)) (let (...) (progn ... ...))) nil) :most-recent-result #s(ert-test-failed :messages "Tangled 3 code blocks from bazelrc.org\n" :should-forms nil :duration 0.013400342 :condition (file-missing "Visiting test file" "No such file or directory" "/tmp/bazel-mode-test-sdr5tM/.bazelrc") :backtrace (#s(backtrace-frame :evald t :fun access-file :args ("/tmp/bazel-mode-test-sdr5tM/.bazelrc" "Visiting test file") :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 let :args (... ...) :flags nil :locals (... ...) :buffer nil :pos nil) #s(backtrace-frame :evald nil :fun prog1 :args (... ...) :flags nil :locals nil :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 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 eval :args (... t) :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 (("Temporary directory: " . "/tmp/bazel-mode-test-sdr5tM") ("Visited test file: " . "/tmp/bazel-mode-test-sdr5tM/.bazelrc"))) :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/test.el")) + ert-run-or-rerun-test(#s(ert--stats :selector t :tests ... :test-map # :test-results ... :test-start-times ... :test-end-times ... :passed-expected 16 :passed-unexpected 0 :failed-expected 0 :failed-unexpected 28 :skipped 1 :start-time ... :end-time nil :aborted-p nil ...) #s(ert-test :name bazelrc-ffap :documentation nil :body #f(lambda () ... ... nil) :most-recent-result ... :expected-result-type :passed :tags nil :file-name "/build/reproducible-path/emacs-bazel-mode-0.0~git20230919.769b30d/test.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() + eval((ert-run-tests-batch-and-exit) t) + 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" "." "--eval" "(progn (setenv \"TEST_SRCDIR\" \".\") (setenv \"TEST_WORKSPACE\" \".\"))" "-l" "test.el" "--eval" "(ert-run-tests-batch-and-exit)" "'(not (or \"bazel--target-completion-table/root-package\" \"bazel--target-completion-table/subpackage\" \"bazel--target-completion-table/workspace\" \"bazel-build-mode/beginning-of-defun\" \"bazel-build-mode/end-of-defun\" \"bazel-build-mode/imenu\" \"bazel-buildifier/failure\" \"bazel-completion-at-point\" \"bazel-fix-visibility\" \"bazel-insert-http-archive\" \"bazel-insert-http-archive/no-directory\" \"bazel-insert-http-archive/no-unique-prefix\" \"bazel-mode-flymake\" \"bazel-mode/compile\" \"bazel-mode/ffap\" \"bazel-mode/indent-region\" \"bazel-mode/speedbar\" \"bazel-mode/which-function\" \"bazel-mode/xref\" \"bazel-test-at-point\" \"bazel-test-at-point/c++-mode\" \"bazel-test-at-point/go-mode\" \"bazel-test-at-point/python-mode\" \"bazel-test/completion\" \"bazel-test/coverage\" \"bazel/project\" \"bazel/project-files\" \"bazelrc-ffap\"))")) + command-line() + normal-top-level() -Ran 46 tests, 46 results as expected, 0 unexpected (2025-03-01 03:53:04+0000, 16.603923 sec) +Test bazelrc-ffap condition: + Temporary directory: /tmp/bazel-mode-test-sdr5tM + Visited test file: /tmp/bazel-mode-test-sdr5tM/.bazelrc + (file-missing "Visiting test file" "No such file or directory" + "/tmp/bazel-mode-test-sdr5tM/.bazelrc") + FAILED 45/46 bazelrc-ffap (0.013400 sec) at test.el:1267 + passed 46/46 bazelrc-mode (0.000322 sec) - create-stamp debian/debhelper-build-stamp - dh_prep - dh_auto_install --destdir=debian/elpa-bazel-mode/ - dh_elpa -dh_elpa: warning: missing bazel-pkg.el; will try to generate it - dh_installdocs - dh_installchangelogs - dh_perl - dh_link - dh_strip_nondeterminism - dh_compress - dh_fixperms - dh_missing - dh_installdeb - dh_gencontrol - dh_md5sums - dh_builddeb -dpkg-deb: building package 'elpa-bazel-mode' in '../elpa-bazel-mode_0.0~git20230919.769b30d-6_all.deb'. - dpkg-genbuildinfo --build=binary -O../emacs-bazel-mode_0.0~git20230919.769b30d-6_i386.buildinfo - dpkg-genchanges --build=binary -O../emacs-bazel-mode_0.0~git20230919.769b30d-6_i386.changes -dpkg-genchanges: info: binary-only upload (no source code included) - dpkg-source --after-build . -dpkg-buildpackage: info: binary-only upload (no source included) -dpkg-genchanges: info: not including original source code in upload +Ran 46 tests, 17 results as expected, 28 unexpected, 1 skipped (2026-04-03 10:17:05+0000, 7.770127 sec) + +28 unexpected results: + FAILED bazel--target-completion-table/root-package + FAILED bazel--target-completion-table/subpackage + FAILED bazel--target-completion-table/workspace + FAILED bazel-build-mode/beginning-of-defun + FAILED bazel-build-mode/end-of-defun + FAILED bazel-build-mode/imenu + FAILED bazel-buildifier/failure + FAILED bazel-completion-at-point + FAILED bazel-fix-visibility + FAILED bazel-insert-http-archive + FAILED bazel-insert-http-archive/no-directory + FAILED bazel-insert-http-archive/no-unique-prefix + FAILED bazel-mode-flymake + FAILED bazel-mode/compile + FAILED bazel-mode/ffap + FAILED bazel-mode/indent-region + FAILED bazel-mode/speedbar + FAILED bazel-mode/which-function + FAILED bazel-mode/xref + FAILED bazel-test-at-point + FAILED bazel-test-at-point/c++-mode + FAILED bazel-test-at-point/go-mode + FAILED bazel-test-at-point/python-mode + FAILED bazel-test/completion + FAILED bazel-test/coverage + FAILED bazel/project + FAILED bazel/project-files + FAILED bazelrc-ffap + +1 skipped results: + SKIPPED bazel-mode-flymake/source-buffer-killed + +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 . --eval "(progn (setenv \"TEST_SRCDIR\" \".\") (setenv \"TEST_WORKSPACE\" \".\"))" -l test.el --eval \(ert-run-tests-batch-and-exit\) "'(not (or \"bazel--target-completion-table/root-package\" \"bazel--target-completion-table/subpackage\" \"bazel--target-completion-table/workspace\" \"bazel-build-mode/beginning-of-defun\" \"bazel-build-mode/end-of-defun\" \"bazel-build-mode/imenu\" \"bazel-buildifier/failure\" \"bazel-completion-at-point\" \"bazel-fix-visibility\" \"bazel-insert-http-archive\" \"bazel-insert-http-archive/no-directory\" \"bazel-insert-http-archive/no-unique-prefix\" \"bazel-mode-flymake\" \"bazel-mode/compile\" \"bazel-mode/ffap\" \"bazel-mode/indent-region\" \"bazel-mode/speedbar\" \"bazel-mode/which-function\" \"bazel-mode/xref\" \"bazel-test-at-point\" \"bazel-test-at-point/c++-mode\" \"bazel-test-at-point/go-mode\" \"bazel-test-at-point/python-mode\" \"bazel-test/completion\" \"bazel-test/coverage\" \"bazel/project\" \"bazel/project-files\" \"bazelrc-ffap\"))" returned exit code 1 +make: *** [debian/rules:7: binary] Error 25 +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/84221/tmp/hooks/C01_cleanup starting +debug output: disk usage on i-capture-the-hostname at Fri Apr 3 10:17:06 UTC 2026 +Filesystem Size Used Avail Use% Mounted on +tmpfs 3.9G 0 3.9G 0% /dev/shm + +I: user script /srv/workspace/pbuilder/84221/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/49862 and its subdirectories -I: Current time: Fri Feb 28 15:53:20 -12 2025 -I: pbuilder-time-stamp: 1740801200 +I: removing directory /srv/workspace/pbuilder/84221 and its subdirectories