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