mirror of
https://git.notmuchmail.org/git/notmuch
synced 2024-12-01 07:04:10 +01:00
test: Generate a little run_emacs script to help debug any failures.
After any emacs test failure, the tmp.emacs directory will have this run_emacs script in it which the user can use to run emacs within the test suite environment, (pointing at the test suite's notmuch database, using the local notmuch command-line program, and the local notmuch emacs lisp code).
This commit is contained in:
parent
5873fd2c47
commit
a09921bdfb
1 changed files with 20 additions and 3 deletions
|
@ -742,12 +742,29 @@ test_done () {
|
||||||
}
|
}
|
||||||
|
|
||||||
test_emacs () {
|
test_emacs () {
|
||||||
emacs_code="$1"
|
# Construct a little test script here for the benefit of the user,
|
||||||
emacs --batch --no-site-file --directory ../../emacs --load notmuch.el \
|
# (who can easily run "run_emacs" to get the same emacs environment
|
||||||
|
# for investigating any failures).
|
||||||
|
cat <<EOF > run_emacs
|
||||||
|
#!/bin/sh
|
||||||
|
export PATH=$PATH
|
||||||
|
export HOME=$HOME
|
||||||
|
export NOTMUCH_CONFIG=$NOTMUCH_CONFIG
|
||||||
|
|
||||||
|
# We assume that the user will give a command-line argument only if
|
||||||
|
# wanting to run in batch mode.
|
||||||
|
if [ \$# -gt 0 ]; then
|
||||||
|
BATCH=--batch
|
||||||
|
fi
|
||||||
|
|
||||||
|
emacs \$BATCH --no-site-file --directory ../../emacs --load notmuch.el \
|
||||||
--eval "(defun notmuch-test-wait ()
|
--eval "(defun notmuch-test-wait ()
|
||||||
(while (get-buffer-process (current-buffer))
|
(while (get-buffer-process (current-buffer))
|
||||||
(sleep-for 0.1)))" \
|
(sleep-for 0.1)))" \
|
||||||
--eval "(progn (set-frame-width (window-frame (get-buffer-window)) 80) ${emacs_code})"
|
--eval "(progn (set-frame-width (window-frame (get-buffer-window)) 80) \$@)"
|
||||||
|
EOF
|
||||||
|
chmod a+x ./run_emacs
|
||||||
|
./run_emacs "$@"
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue