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:
Carl Worth 2010-11-05 14:20:52 -07:00
parent 5873fd2c47
commit a09921bdfb

View file

@ -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 "$@"
} }