#!/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[^)]+\)ai} } 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 ' 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 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 } 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 ;; -within-next) shift candidate_count=$1 shift candidates= found=false while [ $candidate_count -gt 0 ]; do read -r event <&4 if [ "$1" = "$event" ]; then found=true elif ! $found; then candidates="$candidates${indent} $event " fi candidate_count=$(( candidate_count - 1 )) done if ! $found; then fail_ifn printf "${indent} Failed to find:\n" printf "${indent} %s\n" "$1" printf "${indent} Candidates:\n%s" "$candidates" fi ;; *) read -r event <&4 if [ ! "$1" = "$event" ]; then fail_ifn printf "${indent} ${red}- %s\n${indent} ${green}+ %s${none}\n" "$1" "$event" fi ;; esac shift done } main "$@"