105 lines
3.3 KiB
Bash
Executable File
105 lines
3.3 KiB
Bash
Executable File
#! /bin/bash
|
|
# Run the mh-utils-tests against all MH variants found on this system.
|
|
|
|
# Copyright (C) 2021-2024 Free Software Foundation, Inc.
|
|
|
|
# This file is part of GNU Emacs.
|
|
|
|
# GNU Emacs is free software: you can redistribute it and/or modify
|
|
# it under the terms of the GNU General Public License as published by
|
|
# the Free Software Foundation, either version 3 of the License, or
|
|
# (at your option) any later version.
|
|
|
|
# GNU Emacs is distributed in the hope that it will be useful,
|
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
# GNU General Public License for more details.
|
|
|
|
# You should have received a copy of the GNU General Public License
|
|
# along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
|
|
|
|
# Commentary:
|
|
|
|
# By default runs all tests; test names or Emacs-style regexps may be
|
|
# given on the command line to run just those tests.
|
|
#
|
|
# Option -d turns on Emacs variable mh-test-utils-debug-mocks, which
|
|
# causes the tests to output all interactions with the file system.
|
|
|
|
# If you want to run the tests for only one MH variant, you don't need
|
|
# to use this script, because "make" can do it. See the commentary at
|
|
# the top of ./mh-utils-tests.el for the recipe.
|
|
|
|
debug=
|
|
if [[ "$1" = -* ]]; then
|
|
if [[ "$1" != -d ]]; then
|
|
echo "Usage: $(basename "$0") [-d] [test ...]" >&2
|
|
exit 2
|
|
fi
|
|
debug=t
|
|
shift
|
|
fi
|
|
|
|
shopt -s extglob
|
|
ert_test_list=()
|
|
for tst; do
|
|
# Guess the type the test spec
|
|
case $tst in
|
|
*[\[\].*+\\]*) # Regexp: put in string quotes
|
|
ert_test_list+=("\"$tst\"")
|
|
;;
|
|
*) # Lisp expression, keyword, or symbol: use as is
|
|
ert_test_list+=("$tst")
|
|
;;
|
|
esac
|
|
done
|
|
if [[ ${#ert_test_list[@]} -eq 0 ]]; then
|
|
# t means true for all tests, runs everything
|
|
ert_test_list=(t)
|
|
fi
|
|
|
|
# This script is 3 directories down in the Emacs source tree.
|
|
cd "$(dirname "$0")"
|
|
cd ../../..
|
|
emacs=(src/emacs --batch -Q)
|
|
|
|
# MH-E has a good list of directories where an MH variant might be installed,
|
|
# so we look in each of those.
|
|
read -r -a mh_sys_path \
|
|
< <("${emacs[@]}" -l mh-e --eval "(princ mh-sys-path)" | sed 's/[()]//g')
|
|
|
|
have_done_mocked_variant=false
|
|
declare -i tests_total=0 tests_passed=0
|
|
|
|
for path in "${mh_sys_path[@]}"; do
|
|
if [[ ! -x "$path/mhparam" ]]; then
|
|
if [[ "$have_done_mocked_variant" = false ]]; then
|
|
have_done_mocked_variant=true
|
|
else
|
|
continue
|
|
fi
|
|
fi
|
|
echo "** Testing with PATH $path"
|
|
((++tests_total))
|
|
# The LD_LIBRARY_PATH setting is needed
|
|
# to run locally installed Mailutils.
|
|
TEST_MH_PATH=$path TEST_MH_DEBUG=$debug \
|
|
LD_LIBRARY_PATH=/usr/local/lib HOME=/nonexistent \
|
|
"${emacs[@]}" -l ert \
|
|
--eval "(setq load-prefer-newer t)" \
|
|
--eval "(load \"$PWD/test/lisp/mh-e/mh-utils-tests\" nil t)" \
|
|
--eval "(ert-run-tests-batch-and-exit '(or ${ert_test_list[*]}))" \
|
|
&& ((++tests_passed))
|
|
done
|
|
|
|
if (( tests_total == 0 )); then
|
|
echo "NO tests run"
|
|
exit 1
|
|
elif (( tests_total == tests_passed )); then
|
|
echo "All tested variants pass: $tests_passed/$tests_total"
|
|
else
|
|
echo "Tested variants passing: $tests_passed/$tests_total," \
|
|
"FAILING: $((tests_total - tests_passed))/$tests_total"
|
|
exit 1
|
|
fi
|