173 lines
5.2 KiB
Bash
Executable File
173 lines
5.2 KiB
Bash
Executable File
#!/usr/bin/env bash
|
|
|
|
# Automatic tests for rdlink
|
|
# Two kinds of tests are supported
|
|
# * `tocompete` : competition between readlink and rdlink
|
|
# * `toassert` : assert expected path and input path
|
|
|
|
# test_rdlink.sh [OPTIONS] [PATH TO COMPETE]
|
|
# [OPTIONS]
|
|
# -a, --run-all : Run all tests (failed and successful)
|
|
# -x, --extended-output : Show more information for each test
|
|
# -xd : set -x and also show rdlink debug run for failed tests
|
|
#
|
|
# Internal tests will be executed if no arguments are found
|
|
|
|
readonly test_dir="$(cd "$(dirname -- "${BASH_SOURCE[0]}")" >/dev/null 2>&1 && pwd)"
|
|
readonly tool_rdlink="${test_dir}/../rdlink.sh"
|
|
readonly tool_readlink="$(command -v readlink) -f"
|
|
|
|
readonly config_path_width=45
|
|
|
|
readonly color_red='\033[1;31m'
|
|
readonly color_yellow='\033[1;33m'
|
|
readonly color_green='\033[1;32m'
|
|
readonly color_less='\033[0m'
|
|
|
|
flag_runall=0
|
|
flag_extendedOutput=0
|
|
flag_verbose=0
|
|
|
|
toassert=()
|
|
tocompete=()
|
|
|
|
. "${test_dir}/totest.sh"
|
|
|
|
# rl::testcmp <TEST NUMBER> <TEST INPUT> <EXPECTED RESULT> <ACTUAL RESULT>
|
|
# Compare results and print summary
|
|
rl::testcmp() {
|
|
local testnum="${1:-0}"
|
|
local input="${2:-"-"}"
|
|
local expect="${3:-"-"}"
|
|
local actual="${4:-"-"}"
|
|
local testresult=0 #failed
|
|
local testresult_graphic="${color_red}✗${color_less}" # alt. symbol ≠
|
|
local truncate_graphic=
|
|
|
|
[[ "${expect}" == "${actual}" ]] && testresult=1 && testresult_graphic="${color_green}✔${color_less}" # alt. symbol ✓
|
|
|
|
# Show only reslult as quick overview
|
|
if (( flag_extendedOutput )); then
|
|
printf -- "%-3d Inp: %-${config_path_width}s ---" ${testnum} "${input}"
|
|
printf " %b\n" "${testresult_graphic}"
|
|
if (( ! testresult )); then
|
|
# Test failed
|
|
printf " Result: %s\n Exp: %s\n" "${actual}" "${expect}"
|
|
|
|
if (( flag_verbose )); then
|
|
[ -e "${input}" ] && printf "\n Subject:\n" && ls -al "${input}"
|
|
|
|
# Print debug output of tool_a
|
|
printf "\n Debug:\n"
|
|
( "${tool_rdlink}" -d "${input}" )
|
|
fi
|
|
return 1
|
|
fi
|
|
return 0
|
|
fi
|
|
|
|
# Change result graphic if test failed
|
|
(( ! testresult )) && testresult_graphic="→" # "${color_green}→${color_less}"
|
|
# Truncate input string on the left if longer than $config_path_width
|
|
(( ${#input} > ${config_path_width} )) && input="${input:$(( ${#input} - ${config_path_width} + 1 ))}" && truncate_graphic="✀"
|
|
# Print input and expected
|
|
printf "%b%${config_path_width}s %b %s\n" "${truncate_graphic}" "${input}" "${testresult_graphic}" "${expect}"
|
|
# Print actual result if test failed
|
|
if (( ! testresult )); then
|
|
printf "%$((config_path_width))s %b %s\n" " " "${color_red}✗${color_less}" "${actual}"
|
|
return 1
|
|
fi
|
|
return 0
|
|
}
|
|
|
|
rl::test() {
|
|
local i=0
|
|
local path=
|
|
local arraywalker=
|
|
local firstelement=
|
|
local testend=0
|
|
local arg=
|
|
|
|
for arg in "$@"; do
|
|
case "$1" in
|
|
--) ## End of options
|
|
shift && break ;;
|
|
-a|--run-all) ## Run all even if tests fail
|
|
flag_runall=1
|
|
shift ;;
|
|
-x|--extended-output)
|
|
flag_extendedOutput=1
|
|
shift ;;
|
|
-xd|--verbose)
|
|
flag_extendedOutput=1
|
|
flag_verbose=1
|
|
shift ;;
|
|
esac
|
|
done
|
|
|
|
# Only run `compete_args` if arguments are available
|
|
if [[ "$@" ]]; then
|
|
compete_args=( "Tests from command line" "$@" )
|
|
(( flag_runall )) && tocompete+=(compete_args) || tocompete=(compete_args)
|
|
toassert=()
|
|
fi
|
|
|
|
# Compare against expected result
|
|
printf "\n# Assertion tests (\"Expected path\" == rdlink)\n"
|
|
for testarray in "${toassert[@]}"; do
|
|
i=0
|
|
arraywalker="$testarray"[@]
|
|
for path in "${!arraywalker}"; do
|
|
if (( ! i )); then
|
|
# Print title in array element 0
|
|
printf " ### %b ###\n" "${color_yellow}${path}${color_less}"
|
|
(( ! flag_extendedOutput )) && printf "%${config_path_width}s %s %s\n" "<INPUT>" "<EXPECTED>" "✗ [ACTUAL]"
|
|
|
|
elif [ -z "$firstelement" ]; then
|
|
# Save first element for string compare
|
|
firstelement="${path}"
|
|
|
|
else
|
|
# Do the compare between two following elements
|
|
if ! rl::testcmp "$((i-1))" "${firstelement}" \
|
|
"${path}" "$("$tool_rdlink" "${firstelement}")"; then
|
|
# Run all tests if option -a is pressend
|
|
(( ! $flag_runall )) && testend=1 && break
|
|
fi
|
|
|
|
firstelement=
|
|
fi
|
|
((i++))
|
|
done
|
|
(( testend )) && return 1
|
|
done
|
|
|
|
# Compare output of rdlink and readlink -f
|
|
printf "\n# Competition tests (readlink -f == rdlink)\n"
|
|
for testarray in "${tocompete[@]}"; do
|
|
i=0
|
|
arraywalker="$testarray"[@]
|
|
for path in "${!arraywalker}"; do
|
|
|
|
if (( ! i )); then
|
|
# Print title in array element 0
|
|
printf " ### %b ###\n" "${color_yellow}${path}${color_less}"
|
|
(( ! flag_extendedOutput )) && printf "%${config_path_width}s %s %s\n" "<INPUT>" "<EXPECTED>" "✗ [ACTUAL]"
|
|
|
|
else
|
|
# Execute tests
|
|
if ! rl::testcmp "${i}" "${path}" \
|
|
"$(${tool_readlink} "$path")" "$(${tool_rdlink} "$path")"; then
|
|
# Run all tests if option -a is pressend
|
|
(( ! $flag_runall )) && testend=1 && break
|
|
fi
|
|
fi
|
|
|
|
((i++))
|
|
done
|
|
(( testend )) && return 1
|
|
done
|
|
}
|
|
|
|
time rl::test "$@"
|