mirror of
https://github.com/xcat2/xcat-core.git
synced 2026-10-02 08:51:44 +00:00
Daniel Hilst
80 lines
2.8 KiB
Bash
Executable File
80 lines
2.8 KiB
Bash
Executable File
#!/bin/bash
|
|
#
|
|
# Run a fast subset of the unit tests: the Perl .t files with prove and the shell .bats files
|
|
# with bats, in one command, from the source tree. No build, no installed xCAT, no cluster.
|
|
#
|
|
# WHY THIS EXISTS. Delta debugging a change set runs the suite once per candidate. The
|
|
# end-to-end suite provisions machines and costs 45 to 90 minutes a run, so the rounds run on a
|
|
# fast oracle instead, and the slow suite runs once on the set that settles. This is that fast
|
|
# oracle, and it is useful on its own: it is the same two commands CI runs, without the wait.
|
|
#
|
|
# xCAT-test/quick.sh every unit test and every bats file
|
|
# xCAT-test/quick.sh path/a.t path/b.bats only those, in the order given
|
|
# xCAT-test/quick.sh -f list.txt the files named in list.txt, one per line
|
|
#
|
|
# Exit status is 0 only when every file passed. A missing file is an error, not a skip: a fast
|
|
# oracle that silently runs nothing reports PASS for a tree that contains none of the tests.
|
|
|
|
set -u -o pipefail
|
|
|
|
usage() { sed -n '3,20p' "$0" | sed 's/^# \{0,1\}//'; exit "${1:-0}"; }
|
|
|
|
root=$(cd "$(dirname "${BASH_SOURCE[0]}")/.." && pwd)
|
|
files=()
|
|
|
|
while [ $# -gt 0 ]; do
|
|
case "$1" in
|
|
-h|--help) usage 0 ;;
|
|
-f|--from) shift; [ -r "${1:-}" ] || { echo "quick: cannot read list '${1:-}'" >&2; exit 2; }
|
|
while read -r line; do
|
|
case "$line" in ''|\#*) continue ;; esac
|
|
files+=("$line")
|
|
done < "$1" ;;
|
|
-*) echo "quick: unknown option '$1'" >&2; usage 2 ;;
|
|
*) files+=("$1") ;;
|
|
esac
|
|
shift
|
|
done
|
|
|
|
cd "$root" || exit 2
|
|
|
|
if [ "${#files[@]}" -eq 0 ]; then
|
|
echo "[quick] whole fast suite: prove -r xCAT-test/unit, then bats -r xCAT-test/bats"
|
|
rc=0
|
|
prove -r xCAT-test/unit || rc=1
|
|
bats -r xCAT-test/bats || rc=1
|
|
exit $rc
|
|
fi
|
|
|
|
# A named file that is absent means the caller asked for a test this tree does not have. Say so
|
|
# and fail: reporting PASS here is how a minimization drops the commit that adds a test.
|
|
missing=()
|
|
for f in "${files[@]}"; do [ -e "$f" ] || missing+=("$f"); done
|
|
if [ "${#missing[@]}" -gt 0 ]; then
|
|
printf '[quick] MISSING from this tree, refusing to report a result:\n' >&2
|
|
printf ' %s\n' "${missing[@]}" >&2
|
|
exit 2
|
|
fi
|
|
|
|
perl_tests=(); bats_tests=()
|
|
for f in "${files[@]}"; do
|
|
case "$f" in
|
|
*.t) perl_tests+=("$f") ;;
|
|
*.bats) bats_tests+=("$f") ;;
|
|
*) echo "quick: '$f' is neither a .t nor a .bats" >&2; exit 2 ;;
|
|
esac
|
|
done
|
|
|
|
rc=0
|
|
if [ "${#perl_tests[@]}" -gt 0 ]; then
|
|
echo "[quick] prove ${#perl_tests[@]} Perl test(s)"
|
|
prove "${perl_tests[@]}" || rc=1
|
|
fi
|
|
if [ "${#bats_tests[@]}" -gt 0 ]; then
|
|
echo "[quick] bats ${#bats_tests[@]} shell test(s)"
|
|
bats "${bats_tests[@]}" || rc=1
|
|
fi
|
|
|
|
[ $rc -eq 0 ] && echo "[quick] PASS (${#files[@]} file(s))" || echo "[quick] FAIL"
|
|
exit $rc
|