9309a23b95
When tests are executed serially (the default), it seems better to launch the fairly generic test that runs the unittests early in the sequence. Right now the tests are ordered based on when they were written, but this doesn't make much sense.
89 lines
2.3 KiB
Bash
Executable file
89 lines
2.3 KiB
Bash
Executable file
#!/usr/bin/env bash
|
|
#set -ex
|
|
#set -o pipefail
|
|
|
|
NPROC=$(nproc)
|
|
MAX_QUEUE_SIZE=${NPROC:-2}
|
|
IFS=$'\n' TEST_LIST=($(ls /usr/lib/systemd/tests/test-*))
|
|
|
|
# reset state
|
|
rm /failed-tests /skipped-tests /skipped
|
|
|
|
# Check & report test results
|
|
# Arguments:
|
|
# $1: test path
|
|
# $2: test exit code
|
|
function report_result() {
|
|
if [[ $# -ne 2 ]]; then
|
|
echo >&2 "check_result: missing arguments"
|
|
exit 1
|
|
fi
|
|
|
|
local name="${1##*/}"
|
|
local ret=$2
|
|
|
|
if [[ $ret -ne 0 && $ret != 77 ]]; then
|
|
echo "$name failed with $ret"
|
|
echo "$name" >>/failed-tests
|
|
{
|
|
echo "--- $name begin ---"
|
|
cat "/$name.log"
|
|
echo "--- $name end ---"
|
|
} >>/failed
|
|
elif [[ $ret == 77 ]]; then
|
|
echo "$name skipped"
|
|
echo "$name" >>/skipped-tests
|
|
{
|
|
echo "--- $name begin ---"
|
|
cat "/$name.log"
|
|
echo "--- $name end ---"
|
|
} >>/skipped
|
|
else
|
|
echo "$name OK"
|
|
echo "$name" >>/testok
|
|
fi
|
|
|
|
systemd-cat echo "--- $name ---"
|
|
systemd-cat cat "/$name.log"
|
|
}
|
|
|
|
# Associative array for running tasks, where running[test-path]=PID
|
|
declare -A running=()
|
|
for task in "${TEST_LIST[@]}"; do
|
|
# If there's MAX_QUEUE_SIZE running tasks, keep checking the running queue
|
|
# until one of the tasks finishes, so we can replace it.
|
|
while [[ ${#running[@]} -ge $MAX_QUEUE_SIZE ]]; do
|
|
for key in "${!running[@]}"; do
|
|
if ! kill -0 ${running[$key]} &>/dev/null; then
|
|
# Task has finished, report its result and drop it from the queue
|
|
wait ${running[$key]}
|
|
ec=$?
|
|
report_result "$key" $ec
|
|
unset running["$key"]
|
|
# Break from inner for loop and outer while loop to skip
|
|
# the sleep below when we find a free slot in the queue
|
|
break 2
|
|
fi
|
|
done
|
|
|
|
# Precisely* calculated constant to keep the spinlock from burning the CPU(s)
|
|
sleep 0.01
|
|
done
|
|
|
|
if [[ -x $task ]]; then
|
|
log_file="/${task##*/}.log"
|
|
$task &>"$log_file" &
|
|
running[$task]=$!
|
|
fi
|
|
done
|
|
|
|
# Wait for remaining running tasks
|
|
for key in "${!running[@]}"; do
|
|
wait ${running[$key]}
|
|
ec=$?
|
|
report_result "$key" $ec
|
|
unset running["$key"]
|
|
done
|
|
|
|
exit 0
|