| author | haftmann | 
| Sat, 18 Nov 2006 00:20:13 +0100 | |
| changeset 21407 | af60523da908 | 
| parent 21038 | c7b041a6bbfe | 
| permissions | -rwxr-xr-x | 
| 13986 | 1 | #!/usr/bin/env bash | 
| 2 | # | |
| 3 | # $Id$ | |
| 4 | # Author: Gerwin Klein, TU Muenchen | |
| 5 | # | |
| 13993 
88a8911bb65d
only make development snapshots for successful tests
 kleing parents: 
13992diff
changeset | 6 | # DESCRIPTION: sends email for failed tests, checks for error.log, | 
| 
88a8911bb65d
only make development snapshots for successful tests
 kleing parents: 
13992diff
changeset | 7 | # generates development snapshot if test ok | 
| 13986 | 8 | |
| 16095 
f6af6b265d20
put global isatest settings in one file, sourced by the other scripts
 kleing parents: 
15937diff
changeset | 9 | ## global settings | 
| 
f6af6b265d20
put global isatest settings in one file, sourced by the other scripts
 kleing parents: 
15937diff
changeset | 10 | . ~/admin/isatest-settings | 
| 13986 | 11 | |
| 14038 | 12 | # produce empty list for patterns like isatest-*.log if no | 
| 13 | # such file exists | |
| 14 | shopt -s nullglob | |
| 13986 | 15 | |
| 16 | # mail program | |
| 17 | MAIL=$HOME/bin/pmail | |
| 18 | ||
| 19 | # tmp file for sending mail | |
| 20 | TMP=/tmp/isatest-makedist.$$ | |
| 21 | ||
| 16095 
f6af6b265d20
put global isatest settings in one file, sourced by the other scripts
 kleing parents: 
15937diff
changeset | 22 | export DISTPREFIX | 
| 
f6af6b265d20
put global isatest settings in one file, sourced by the other scripts
 kleing parents: 
15937diff
changeset | 23 | |
| 13986 | 24 | |
| 25 | ## diagnostics | |
| 26 | ||
| 27 | PRG="$(basename "$0")" | |
| 28 | ||
| 29 | function usage() | |
| 30 | {
 | |
| 31 | echo | |
| 32 | echo "Usage: $PRG" | |
| 33 | echo | |
| 13993 
88a8911bb65d
only make development snapshots for successful tests
 kleing parents: 
13992diff
changeset | 34 | echo " sends email for failed tests, checks for error.log," | 
| 
88a8911bb65d
only make development snapshots for successful tests
 kleing parents: 
13992diff
changeset | 35 | echo " generates development snapshot if test ok." | 
| 13986 | 36 | echo " To be called by cron." | 
| 37 | echo | |
| 38 | exit 1 | |
| 39 | } | |
| 40 | ||
| 41 | function fail() | |
| 42 | {
 | |
| 43 | echo "$1" >&2 | |
| 44 | exit 2 | |
| 45 | } | |
| 46 | ||
| 47 | ## main | |
| 48 | ||
| 17847 | 49 | # check if tests are still running, wait for them a couple of hours | 
| 13986 | 50 | i=0 | 
| 17847 | 51 | while [ -n "$(ls $RUNNING)" -a $i -lt 8 ]; do | 
| 13986 | 52 | sleep 3600 | 
| 13992 | 53 | let "i = i+1" | 
| 13986 | 54 | done | 
| 55 | ||
| 21038 
c7b041a6bbfe
generate devel snapshot even if experimental builds fail.
 kleing parents: 
18329diff
changeset | 56 | FAIL=0 | 
| 
c7b041a6bbfe
generate devel snapshot even if experimental builds fail.
 kleing parents: 
18329diff
changeset | 57 | |
| 13986 | 58 | # still running -> give up | 
| 13992 | 59 | if [ -n "$(ls $RUNNING)" ]; then | 
| 16178 
754efc5afd5d
reduced timeout, send logs also when test taking too long
 kleing parents: 
16095diff
changeset | 60 | echo "Giving up waiting for test to finish at $(date)." > $TMP | 
| 18244 
694648741d5a
send more information with test-takes-too-long message
 kleing parents: 
17847diff
changeset | 61 | echo >> $TMP | 
| 
694648741d5a
send more information with test-takes-too-long message
 kleing parents: 
17847diff
changeset | 62 | echo "Sessions still running:" >> $TMP | 
| 18329 | 63 | echo "$(ls $RUNNING)" >> $TMP | 
| 18244 
694648741d5a
send more information with test-takes-too-long message
 kleing parents: 
17847diff
changeset | 64 | echo >> $TMP | 
| 16507 
ee552def8721
fix 'give up waiting message' (logs of running processes are not attached)
 kleing parents: 
16362diff
changeset | 65 | echo "Attaching all error logs collected so far." >> $TMP | 
| 13986 | 66 | echo >> $TMP | 
| 16178 
754efc5afd5d
reduced timeout, send logs also when test taking too long
 kleing parents: 
16095diff
changeset | 67 | |
| 
754efc5afd5d
reduced timeout, send logs also when test taking too long
 kleing parents: 
16095diff
changeset | 68 | if [ -e $ERRORLOG ]; then | 
| 
754efc5afd5d
reduced timeout, send logs also when test taking too long
 kleing parents: 
16095diff
changeset | 69 | cat $ERRORLOG >> $TMP | 
| 
754efc5afd5d
reduced timeout, send logs also when test taking too long
 kleing parents: 
16095diff
changeset | 70 | fi | 
| 
754efc5afd5d
reduced timeout, send logs also when test taking too long
 kleing parents: 
16095diff
changeset | 71 | |
| 13986 | 72 | echo "Have a nice day," >> $TMP | 
| 73 | echo " isatest" >> $TMP | |
| 74 | ||
| 16178 
754efc5afd5d
reduced timeout, send logs also when test taking too long
 kleing parents: 
16095diff
changeset | 75 | for R in $MAILTO; do | 
| 
754efc5afd5d
reduced timeout, send logs also when test taking too long
 kleing parents: 
16095diff
changeset | 76 | LOGS=$ERRORDIR/isatest*.log | 
| 16362 | 77 | $MAIL "isabelle test taking too long" $R $TMP $LOGS | 
| 13986 | 78 | done | 
| 21038 
c7b041a6bbfe
generate devel snapshot even if experimental builds fail.
 kleing parents: 
18329diff
changeset | 79 | |
| 
c7b041a6bbfe
generate devel snapshot even if experimental builds fail.
 kleing parents: 
18329diff
changeset | 80 | rm $TMP | 
| 13986 | 81 | |
| 21038 
c7b041a6bbfe
generate devel snapshot even if experimental builds fail.
 kleing parents: 
18329diff
changeset | 82 | FAIL=1 | 
| 
c7b041a6bbfe
generate devel snapshot even if experimental builds fail.
 kleing parents: 
18329diff
changeset | 83 | elif [ -e $ERRORLOG ]; then | 
| 
c7b041a6bbfe
generate devel snapshot even if experimental builds fail.
 kleing parents: 
18329diff
changeset | 84 | # no tests running, check if there were errors | 
| 13992 | 85 | cat $ERRORLOG > $TMP | 
| 86 | echo "Have a nice day," >> $TMP | |
| 87 | echo " isatest" >> $TMP | |
| 13986 | 88 | |
| 13992 | 89 | for R in $MAILTO; do | 
| 14038 | 90 | LOGS=$ERRORDIR/isatest*.log | 
| 14039 | 91 | $MAIL "isabelle test failed" $R $TMP $LOGS | 
| 13992 | 92 | done | 
| 21038 
c7b041a6bbfe
generate devel snapshot even if experimental builds fail.
 kleing parents: 
18329diff
changeset | 93 | |
| 13992 | 94 | rm $TMP | 
| 13986 | 95 | fi | 
| 96 | ||
| 13993 
88a8911bb65d
only make development snapshots for successful tests
 kleing parents: 
13992diff
changeset | 97 | # generate development snapshot page only for successful tests | 
| 21038 
c7b041a6bbfe
generate devel snapshot even if experimental builds fail.
 kleing parents: 
18329diff
changeset | 98 | # (failures in experimental sessions ok) | 
| 
c7b041a6bbfe
generate devel snapshot even if experimental builds fail.
 kleing parents: 
18329diff
changeset | 99 | if [ "$FAIL"=="0" -a "$(echo $ERRORDIR/isatest*[^e].log)" == "$(echo)" ]; then | 
| 
c7b041a6bbfe
generate devel snapshot even if experimental builds fail.
 kleing parents: 
18329diff
changeset | 100 | (cd $HOME/devel-page; env DISTNAME=`$DISTPREFIX/Isabelle/bin/isatool version` make) | 
| 
c7b041a6bbfe
generate devel snapshot even if experimental builds fail.
 kleing parents: 
18329diff
changeset | 101 | echo "$(date) $HOSTNAME $PRG: generated development snapshot web page." >> $MASTERLOG | 
| 
c7b041a6bbfe
generate devel snapshot even if experimental builds fail.
 kleing parents: 
18329diff
changeset | 102 | fi | 
| 13993 
88a8911bb65d
only make development snapshots for successful tests
 kleing parents: 
13992diff
changeset | 103 | |
| 13992 | 104 | exit 0 | 
| 13986 | 105 | ## end |