mirror of
https://github.com/mawww/kakoune.git
synced 2024-09-11 13:00:41 +03:00
216 lines
5.9 KiB
Bash
Executable File
216 lines
5.9 KiB
Bash
Executable File
#!/bin/sh
|
|
|
|
# Color codes ├──────────────────────────────────────────────────────────────────
|
|
none='\033[0m'; red='\033[31m'; green='\033[32m'; yellow='\033[33m'; magenta='\033[35m'; bold='\033[1m'
|
|
|
|
# Main ├────────────────────────────────────────────────────────────────────────
|
|
|
|
main() {
|
|
kak_commands='
|
|
set global autoreload yes
|
|
set global autoinfo ""
|
|
set global autocomplete ""
|
|
try %{
|
|
exec -save-regs / %{%s%\(\K[^)]+\)<ret>a<backspace><esc>i<backspace><backspace><c-u><esc><a-;>}
|
|
} catch %{ exec gg }
|
|
try %{ source rc }
|
|
try %{ eval -draft %{ edit cmd; exec \%H"zy; delete-buffer } }
|
|
try %{ exec -with-maps -with-hooks %reg{z} }
|
|
exec -with-hooks <c-l>
|
|
'
|
|
|
|
root=$PWD
|
|
tmpdir="${TMPDIR:-/tmp}"
|
|
work=$(mktemp -d $tmpdir/kak-tests.XXXXXXXX)
|
|
session="kak-tests"
|
|
if [ -n "$XDG_RUNTIME_DIR" ]; then
|
|
session_path="${XDG_RUNTIME_DIR}/kakoune/$session"
|
|
else
|
|
session_path="${TMPDIR:-/tmp}/kakoune/${USER}/$session"
|
|
fi
|
|
trap "rm -Rf $work" EXIT
|
|
|
|
number_tests=0
|
|
number_failures=0
|
|
for dir in $(find "${@:-.}" -type d | sort); do
|
|
cd $root/$dir;
|
|
indent="$(echo "$dir/" | sed -e 's|[^/]*//*| |g')"
|
|
name=${PWD##*/}
|
|
if [ ! -f cmd ]; then
|
|
echo "$indent$name"
|
|
continue
|
|
elif [ -x enabled ] && ! ./enabled; then
|
|
printf "${yellow}$indent%s (disabled)${none}\n" "$name"
|
|
continue
|
|
fi
|
|
|
|
env_vars=$(ls -1 kak_* 2>/dev/null)
|
|
number_tests=$(($number_tests + 1))
|
|
mkdir -p $work/$dir
|
|
cp in cmd rc env $work/$dir/ 2>/dev/null
|
|
cd $work/$dir;
|
|
|
|
mkfifo ui-in ui-out
|
|
touch in; cp in out
|
|
rm -f "$session_path"
|
|
(
|
|
if [ -f env ]; then
|
|
. ./env
|
|
fi
|
|
exec $DEBUGGER $root/../src/kak out -n -s "$session" -ui json -e "$kak_commands" >ui-out <ui-in
|
|
) &
|
|
kakpid=$!
|
|
|
|
failed=0
|
|
exec 4<ui-out 3>ui-in
|
|
|
|
if [ -f "${root}/${dir}/script" ]; then
|
|
. "${root}/${dir}/script"
|
|
else
|
|
# At least wait for kak to initialize so we don't deadlock
|
|
ui_out '{ "jsonrpc": "2.0", "method": "set_ui_options", "params": [{}] }'
|
|
fi
|
|
|
|
finished_commands |$root/../src/kak -p "$session" 2>/dev/null
|
|
cat <&4 >/dev/null
|
|
|
|
wait $kakpid
|
|
retval=$?
|
|
|
|
exec 3>&- 4<&-
|
|
|
|
if [ ! -e error ]; then # failure not expected
|
|
if [ $retval -ne 0 ]; then
|
|
printf "${red}$indent%s${none}\n" "$name"
|
|
echo "$indent Kakoune returned error $retval"
|
|
failed=1
|
|
else
|
|
for file in out $env_vars; do
|
|
if [ -f $root/$dir/$file ] && ! cmp -s $root/$dir/$file $file; then
|
|
fail_ifn
|
|
show_diff $root/$dir/$file $file
|
|
fi
|
|
done
|
|
if [ $failed -ne 0 ] && [ -f debug ]; then
|
|
printf "\n${yellow}debug buffer:${none}\n"
|
|
cat debug
|
|
fi
|
|
fi
|
|
else # failure expected
|
|
if [ -f stderr ]; then
|
|
sed -i -e 's/^[0-9]*:[0-9]*: //g' stderr
|
|
if [ -s error ] && ! cmp -s error stderr; then
|
|
printf "${yellow}$indent%s${none}\n" "$name"
|
|
show_diff error stderr
|
|
failed=1
|
|
fi
|
|
elif [ $retval -eq 0 ]; then
|
|
printf "${red}$indent%s${none}\n" "$name"
|
|
echo "$indent Expected failure, but Kakoune returned 0"
|
|
failed=1
|
|
fi
|
|
fi
|
|
|
|
if [ $failed -eq 0 ]; then
|
|
printf "${green}$indent%s${none}\n" "$name"
|
|
else
|
|
number_failures=$(($number_failures + 1))
|
|
fi
|
|
done
|
|
|
|
if [ $number_failures -gt 0 ]; then
|
|
color=$red
|
|
else
|
|
color=$green
|
|
fi
|
|
printf "\n${color}Summary: %s tests, %s failures${none}\n" $number_tests $number_failures
|
|
exit $number_failures
|
|
}
|
|
|
|
# Utility ├─────────────────────────────────────────────────────────────────────
|
|
|
|
fail_ifn() {
|
|
if [ $failed -eq 0 ]; then
|
|
printf "${red}$indent%s${none}\n" "$name"
|
|
failed=1
|
|
fi
|
|
}
|
|
|
|
assert_eq() {
|
|
if [ ! "$1" = "$2" ]; then
|
|
fail_ifn
|
|
printf "${indent} ${red}- %s\n${indent} ${green}+ %s${none}\n" "$1" "$2"
|
|
fi
|
|
}
|
|
|
|
show_diff() {
|
|
diff -u $1 $2 | while IFS='' read -r line; do
|
|
first_character=$(printf '%s\n' "$line" | cut -b 1)
|
|
case $first_character in
|
|
+) color=$green ;;
|
|
-) color=$red ;;
|
|
@) color=$magenta ;;
|
|
*) color=$none ;;
|
|
esac
|
|
printf "${color}%s${none}\n" "$line"
|
|
done
|
|
}
|
|
|
|
finished_commands() {
|
|
printf %s 'eval -client client0 %{
|
|
eval -buffer *debug* write -force debug
|
|
'
|
|
for env_var in $env_vars; do
|
|
case $env_var in
|
|
kak_quoted_*) printf 'echo -to-file %s -end-of-line -quoting shell -- %s\n' "$env_var" "%val{${env_var##kak_quoted_}}" ;;
|
|
kak_*) printf 'echo -to-file %s -end-of-line -- %s\n' "$env_var" "%val{${env_var##kak_}}" ;;
|
|
esac
|
|
done
|
|
printf %s '
|
|
write -force out
|
|
quit!
|
|
}
|
|
'
|
|
}
|
|
|
|
# Script Assertions ├───────────────────────────────────────────────────────────
|
|
|
|
ui_in() {
|
|
printf '%s\n' "$1" >&3
|
|
}
|
|
|
|
ui_out() {
|
|
while [ $# -ne 0 ]; do
|
|
case "$1" in
|
|
-ignore)
|
|
shift
|
|
skip_count=$1
|
|
while [ $skip_count -gt 0 ]; do
|
|
read -r event <&4
|
|
skip_count=$(( skip_count - 1 ))
|
|
done
|
|
;;
|
|
-until)
|
|
shift
|
|
while read -r event <&4; do
|
|
[ "$event" = "$1" ] && break
|
|
done
|
|
;;
|
|
-until-grep)
|
|
shift
|
|
while
|
|
read -r event <&4
|
|
! printf %s "$event" | grep "$@"
|
|
do :; done
|
|
;;
|
|
*)
|
|
read -r event <&4
|
|
assert_eq "$1" "$event"
|
|
;;
|
|
esac
|
|
shift
|
|
done
|
|
}
|
|
|
|
main "$@"
|