xref: /petsc/config/petsc_harness.sh (revision 64ca018daaeaf4d383e903d9f3c2732a45599de8)
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