129921a8fSScott Kruger 229921a8fSScott Kruger 329921a8fSScott Krugerscriptname=`basename $0` 429921a8fSScott Krugerrundir=${scriptname%.sh} 529921a8fSScott Kruger 629921a8fSScott Krugerif test "$PWD"!=`dirname $0`; then 729921a8fSScott Kruger cd `dirname $0` 829921a8fSScott Krugerfi 929921a8fSScott Krugermkdir -p ${rundir} 1029921a8fSScott Krugercd ${rundir} 1129921a8fSScott Kruger 1229921a8fSScott Kruger# 1329921a8fSScott Kruger# Method to print out general and script specific options 1429921a8fSScott Kruger# 1529921a8fSScott Krugerprint_usage() { 1629921a8fSScott Kruger 1729921a8fSScott Krugercat >&2 <<EOF 1829921a8fSScott KrugerUsage: $0 [options] 1929921a8fSScott Kruger 2029921a8fSScott KrugerOPTIONS 2129921a8fSScott Kruger -a <args> ......... Override default arguments 2229921a8fSScott Kruger -c <cleanup> ...... Cleanup (remove generated files) 2329921a8fSScott Kruger -e <args> ......... Add extra arguments to default 2429921a8fSScott Kruger -h ................ help: print this message 2529921a8fSScott Kruger -n <integer> ...... Override the number of processors to use 2629921a8fSScott Kruger -o <output file> .. Override default output file to diff with 2729921a8fSScott Kruger -t <testname> ..... Override test name 2829921a8fSScott Kruger -v ................ Verbose: Print commands 2929921a8fSScott KrugerEOF 3029921a8fSScott Kruger 3129921a8fSScott Kruger if declare -f extrausage > /dev/null; then extrausage; fi 3229921a8fSScott Kruger exit $1 3329921a8fSScott Kruger} 3429921a8fSScott Kruger### 3529921a8fSScott Kruger## Arguments for overriding things 3629921a8fSScott Kruger# 3729921a8fSScott Krugerverbose=false 3829921a8fSScott Krugercleanup=false 3929921a8fSScott Krugerwhile getopts "a:c:e:hn:o:t:v" arg 4029921a8fSScott Krugerdo 4129921a8fSScott Kruger case $arg in 4229921a8fSScott Kruger a ) args=$OPTARG ;; 4329921a8fSScott Kruger c ) cleanup=true ;; 4429921a8fSScott Kruger e ) extra_args=$OPTARG ;; 4529921a8fSScott Kruger h ) print_usage; exit ;; 4629921a8fSScott Kruger n ) nsize=$OPTARG ;; 4729921a8fSScott Kruger o ) output_file=$OPTARG ;; 4829921a8fSScott Kruger t ) testname=$OPTARG ;; 4929921a8fSScott Kruger v ) verbose=true ;; 5029921a8fSScott Kruger *) # To take care of any extra args 5129921a8fSScott Kruger if test -n "$OPTARG"; then 5229921a8fSScott Kruger eval $arg=\"$OPTARG\" 5329921a8fSScott Kruger else 5429921a8fSScott Kruger eval $arg=found 5529921a8fSScott Kruger fi 5629921a8fSScott Kruger ;; 5729921a8fSScott Kruger esac 5829921a8fSScott Krugerdone 5929921a8fSScott Krugershift $(( $OPTIND - 1 )) 6029921a8fSScott Kruger 6129921a8fSScott Krugerif test -n "$extra_args"; then 6229921a8fSScott Kruger args="$args $extra_args" 6329921a8fSScott Krugerfi 6429921a8fSScott Kruger 6529921a8fSScott Kruger# Init 6629921a8fSScott Krugersuccess=0; failed=0; failures=""; rmfiles="" 6729921a8fSScott Krugertotal=0 6829921a8fSScott Krugertodo=-1; skip=-1 6929921a8fSScott Kruger 7029921a8fSScott Krugerfunction petsc_testrun() { 7129921a8fSScott Kruger # First arg = Basic command 7229921a8fSScott Kruger # Second arg = stdout file 7329921a8fSScott Kruger # Third arg = stderr file 7429921a8fSScott Kruger # Fourth arg = label for reporting 7529921a8fSScott Kruger # Fifth arg = Filter 7629921a8fSScott Kruger rmfiles="${rmfiles} $2 $3" 7729921a8fSScott Kruger tlabel=$4 7829921a8fSScott Kruger filter=$5 7929921a8fSScott Kruger 8029921a8fSScott Kruger if test -z "$filter"; then 8129921a8fSScott Kruger cmd="$1 > $2 2> $3" 8229921a8fSScott Kruger else 8329921a8fSScott Kruger cmd="$1 | $filter > $2 2> $3" 8429921a8fSScott Kruger fi 8529921a8fSScott Kruger eval $cmd 8629921a8fSScott Kruger if test $? == 0; then 87*64ca018dSScott Kruger if "${verbose}"; then 8829921a8fSScott Kruger printf "ok $tlabel $cmd\n" 89*64ca018dSScott Kruger else 90*64ca018dSScott Kruger printf "ok $tlabel\n" 91*64ca018dSScott Kruger fi 9229921a8fSScott Kruger let success=$success+1 9329921a8fSScott Kruger else 94*64ca018dSScott Kruger if "${verbose}"; then 95*64ca018dSScott Kruger printf "not ok $tlabel $cmd\n" 96*64ca018dSScott Kruger else 9729921a8fSScott Kruger printf "not ok $tlabel\n" 98*64ca018dSScott Kruger fi 9929921a8fSScott Kruger awk '{print "#\t" $0}' < $3 10029921a8fSScott Kruger let failed=$failed+1 10129921a8fSScott Kruger failures="$failures $tlabel" 10229921a8fSScott Kruger fi 10329921a8fSScott Kruger let total=$success+$failed 10429921a8fSScott Kruger} 10529921a8fSScott Kruger 10629921a8fSScott Krugerfunction petsc_testend() { 10729921a8fSScott Kruger logfile=$1/counts/${label}.counts 10829921a8fSScott Kruger logdir=`dirname $logfile` 10929921a8fSScott Kruger if ! test -d "$logdir"; then 11029921a8fSScott Kruger mkdir -p $logdir 11129921a8fSScott Kruger fi 11229921a8fSScott Kruger if ! test -e "$logfile"; then 11329921a8fSScott Kruger touch $logfile 11429921a8fSScott Kruger fi 11529921a8fSScott Kruger printf "total $total\n" > $logfile 11629921a8fSScott Kruger printf "success $success\n" >> $logfile 11729921a8fSScott Kruger printf "failed $failed\n" >> $logfile 11829921a8fSScott Kruger printf "failures $failures\n" >> $logfile 11929921a8fSScott Kruger if test ${todo} -gt 0; then 12029921a8fSScott Kruger printf "todo $todo\n" >> $logfile 12129921a8fSScott Kruger fi 12229921a8fSScott Kruger if test ${skip} -gt 0; then 12329921a8fSScott Kruger printf "skip $skip\n" >> $logfile 12429921a8fSScott Kruger fi 12529921a8fSScott Kruger if $cleanup; then 12629921a8fSScott Kruger echo "Cleaning up" 12729921a8fSScott Kruger /bin/rm -f $rmfiles 12829921a8fSScott Kruger fi 12929921a8fSScott Kruger} 130