parallel/testsuite/Start.sh

142 lines
4.9 KiB
Bash
Raw Normal View History

#!/bin/bash -x
2007-09-10 20:28:03 +00:00
# SPDX-FileCopyrightText: 2021-2023 Ole Tange, http://ole.tange.dk and Free Software and Foundation, Inc.
2021-04-22 16:20:41 +00:00
#
# SPDX-License-Identifier: GPL-3.0-or-later
2012-11-21 21:28:52 +00:00
# Argument can be substring of tests (such as 'local')
export LANG=C
export LC_ALL=C
unset LC_MONETARY
SHFILE=/tmp/unittest-parallel.sh
MAX_SEC_PER_TEST=900
export TIMEOUT=$MAX_SEC_PER_TEST
run_once() {
replace_tmpdir() {
# Replace $TMPDIR with TMP
perl -0 -pe 'BEGIN{ ($a,$b,$c) = (shift,shift,shift);
$a =~ s/'"'"'$//s; $b =~ s/'"'"'$//s; $c =~ s/'"'"'$//s; }
s:""+:":g;
s:('"'"'?)(\Q$a\E|\Q$b\E|\Q$c\E)('"'"'?)([/a-z0-9]*)('"'"'?):/TMP$4:gi;
s/\0/\n/g' "$TMPDIR" "$qTMPDIR" "$qqTMPDIR" |
perl -ne '/Use --files0 when $TMPDIR contains newline./ or print'
}
export qqTMPDIR=$(< /dev/null parallel -0 --shellquote --shellquote ::: "$TMPDIR")
export qTMPDIR=$(< /dev/null parallel -0 --shellquote ::: "$TMPDIR")
export -f replace_tmpdir
script=$1
base=`basename "$script" .sh`
if diff -Naur wanted-results/"$base" actual-results/"$base" >/dev/null; then
# There is no diff: Last time worked - no need to try again
true skip
else
(
testsuitedir=$(pwd)
export testsuitedir
cd "$TMPDIR"
bash "$testsuitedir/$script" |
perl -pe 's:'$HOME':~:g' |
replace_tmpdir > "$testsuitedir"/actual-results/"$base"
)
fi
}
export -f run_once
run_test() {
script="$1"
base=`basename "$script" .sh`
# Force spaces and < into TMPDIR - this will expose bugs
# ASCII [^-,+=a-zA-Z0-9] = all special chars (175 is not supported)
fancychars="$(perl -e 'print "\n\`touch /tmp/tripwire\`>/tmp/tripwire;\n".
(pack "c*",2..42,127..174,47,176..255)."\@<?[]|~\\}{"')"
fancychars="$(perl -e 'print "\n\`touch /tmp/tripwire\`>/tmp/tripwire;\n".
(pack "c*",2..42,127..174,47,176..255)."\@<?[]|~\\}{"')"
fancychars="$(perl -e 'print "\n\`touch /tmp/tripwire\`>/tmp/tripwire;\n".
(pack "c*",127..174,47,176..255)."\@<?[]|~\\}{"')"
fancychars="$(perl -e 'print "\n\`touch /tmp/tripwire\`>/tmp/tripwire;\n".
(pack "c*",34,39,176..255)."\@<?[]|~\\}{"')"
semiok_fancychars="$(perl -e 'print "\n\`touch /tmp/tripwire\`>/tmp/tripwire;\n".
"\@<?[]|~\\}{"')"
fancychars="$(perl -e 'print "\n\`/tmp/trip\`>/tmp/tripwire;\n".
(pack "c*",2..10,34,39)."\@<?[]|~\\"')"
# OK
# fancychars="$(perl -e 'print "\n\`/tmp/trip\`>/tmp/tripwire;\n".
# (pack "c*",2..10,34,39)."\@<?[]|~\\"')"
# OK
# fancychars="$(perl -e 'print "\n\`touch /tmp/tripwire\`>/tmp/tripwire;\n".
# (pack "c*",34,39)."\@<?[]|~\\"')"
# OK
# fancychars="$(perl -e 'print "\n\`touch /tmp/tripwire\`>/tmp/tripwire;\n".
# ""')"
export TMPDIR=/tmp/"$base-tmp"/"$fancychars"/tmp
export PARALLEL="--_unsafe";
rm -rf "$TMPDIR"
mkdir -p "$TMPDIR"
# Clean before. May be owned by other users
sudo rm -f /tmp/*.{tmx,pac,arg,all,log,swp,loa,ssh,df,pip,tmb,chr,tms,par} ||
printf "%s\0" /tmp/*.par | sudo parallel -0 -X rm
rm -f /tmp/tripwire
printf '#!/bin/bash\ntouch /tmp/tripwire' > /tmp/trip
chmod +x /tmp/trip
# Force running once
echo >> actual-results/"$base"
if [ "$TRIES" = "3" ] ; then
# Try 2 times
run_once $script
run_once $script
fi
run_once $script
if [ -e /tmp/tripwire ] ; then
echo '!!!'
echo '!!! /tmp/tripwire TRIPPED !!!'
echo '!!! Quoting of TMPDIR failed !!!'
echo '!!!'
exit 1
fi
diff -Naur wanted-results/"$base" actual-results/"$base" ||
(touch "$script" && echo touch "$script")
# Check if it was cleaned up
find /tmp -maxdepth 1 |
perl -ne '/\.(tmx|pac|arg|all|log|swp|loa|ssh|df|pip|tmb|chr|tms|par)$/ and
++$a and
print "TMP NOT CLEAN. FOUND: $_".`touch '$script'`;'
# May be owned by other users
sudo rm -f /tmp/*.{tmx,pac,arg,all,log,swp,loa,ssh,df,pip,tmb,chr,tms,par}
}
export -f run_test
2012-11-21 21:28:52 +00:00
2020-09-23 15:41:03 +00:00
create_monitor_script() {
# Create a monitor script
echo forever "'echo; pstree -lp '"$$"'; pstree -l'" $$ >/tmp/monitor
chmod 755 /tmp/monitor
}
log_rotate() {
# Log rotate
mkdir -p log
seq 10 -1 1 |
parallel -j1 mv log/testsuite.log.{} log/testsuite.log.'{= $_++ =}'
mv testsuite.log log/testsuite.log.1
}
create_monitor_script
log_rotate
printf "\033[48;5;78;38;5;0m `date` \033[00m\n"
mkdir -p actual-results
ls -t tests-to-run/*${1}*.sh | egrep -v "${2}" |
2020-09-23 15:41:03 +00:00
parallel --tty -tj1 run_test | tee testsuite.log
# 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
2020-09-23 15:41:03 +00:00
printf "\033[48;5;208;38;5;0m `date` \033[00m\n"