Tests: Update makem.sh

This commit is contained in:
Adam Porter 2019-08-11 11:34:52 -05:00
parent 1ca5930b2f
commit b5f9087e58

View file

@ -147,11 +147,20 @@ EOF
# ** Emacs # ** Emacs
function run_emacs { function run_emacs {
debug "run_emacs: emacs -Q --batch -L \"$load_path\" --load=$package_initialize_file $@" debug "run_emacs: emacs -Q --batch --load=$package_initialize_file -L \"$load_path\" $@"
if [[ $debug_load_path ]]
then
debug $(emacs -Q --batch \
--load=$package_initialize_file \
-L "$load_path" \
--eval "(message \"LOAD-PATH: %s\" load-path)" \
2>&1)
fi
output_file=$(mktemp) output_file=$(mktemp)
emacs -Q --batch -L "$load_path" \ emacs -Q --batch \
--load=$package_initialize_file \ --load=$package_initialize_file \
-L "$load_path" \
"$@" \ "$@" \
&>$output_file &>$output_file
@ -239,11 +248,11 @@ function cleanup {
function echo_color { function echo_color {
# This allows bold, italic, etc. without needing a function for # This allows bold, italic, etc. without needing a function for
# each variation. # each variation.
if [[ $color ]]
then
local color_code="COLOR_$1" local color_code="COLOR_$1"
shift shift
if [[ $color ]]
then
echo -e "${!color_code}${@}${COLOR_off}" echo -e "${!color_code}${@}${COLOR_off}"
else else
echo "$@" echo "$@"
@ -322,6 +331,8 @@ Options:
-h, --help I need somebody! -h, --help I need somebody!
-v, --verbose Increase verbosity, up to -vv. -v, --verbose Increase verbosity, up to -vv.
--debug-load-path Print load-path.
-f FILE, --file FILE Check FILE in addition to discovered files. -f FILE, --file FILE Check FILE in addition to discovered files.
--no-color Disable color output. --no-color Disable color output.
@ -462,7 +473,7 @@ COLOR_white='\e[0;37m'
# * Args # * Args
args=$(getopt -n "$0" -o dhvf:C -l debug,help,verbose,file:,no-color,no-compile -- "$@") || { usage; exit 1; } args=$(getopt -n "$0" -o dhvf:C -l debug,debug-load-path,help,verbose,file:,no-color,no-compile -- "$@") || { usage; exit 1; }
eval set -- "$args" eval set -- "$args"
while true while true
@ -472,6 +483,9 @@ do
debug=true debug=true
verbose=2 verbose=2
;; ;;
--debug-load-path)
debug_load_path=true
;;
-h|--help) -h|--help)
usage usage
exit exit