mirror of
https://git.savannah.gnu.org/git/parallel.git
synced 2024-10-18 04:49:40 +00:00
35 lines
1.1 KiB
Bash
35 lines
1.1 KiB
Bash
#!/bin/bash
|
|
|
|
# Argument can be substring of tests (such as 'local')
|
|
|
|
export LANG=C
|
|
SHFILE=/tmp/unittest-parallel.sh
|
|
|
|
if [ "$TRIES" = "3" ] ; then
|
|
# Try a failing test thrice
|
|
echo Retrying 3 times
|
|
ls -t tests-to-run/*${1}*.sh |
|
|
perl -pe 's:(.*/(.*)).sh:bash $1.sh > actual-results/$2; diff -Naur wanted-results/$2 actual-results/$2 >/dev/null || bash $1.sh > actual-results/$2; diff -Naur wanted-results/$2 actual-results/$2 >/dev/null || bash $1.sh > actual-results/$2; diff -Naur wanted-results/$2 actual-results/$2 || touch $1.sh: ' \
|
|
>$SHFILE
|
|
else
|
|
# Run a failing test once
|
|
echo Not retrying
|
|
ls -t tests-to-run/*${1}*.sh |
|
|
perl -pe 's:(.*/(.*)).sh:bash $1.sh > actual-results/$2; diff -Naur wanted-results/$2 actual-results/$2 || touch $1.sh:' \
|
|
>$SHFILE
|
|
fi
|
|
|
|
mkdir -p actual-results
|
|
stdout sh -x $SHFILE | tee testsuite.log
|
|
rm $SHFILE
|
|
# If testsuite.log contains @@ then there is a diff
|
|
if grep -q '@@' testsuite.log ; then
|
|
false
|
|
else
|
|
# No @@'s: So everything worked: Copy the source
|
|
rm -rf src-passing-testsuite
|
|
cp -a ../src src-passing-testsuite
|
|
fi
|
|
rm testsuite.log
|
|
|