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