Blame test-driver

Packit Service 5bcba8
#! /bin/sh
Packit Service 5bcba8
# test-driver - basic testsuite driver script.
Packit Service 5bcba8
Packit Service d78141
scriptversion=2018-03-07.03; # UTC
Packit Service 5bcba8
Packit Service d78141
# Copyright (C) 2011-2018 Free Software Foundation, Inc.
Packit Service 5bcba8
#
Packit Service 5bcba8
# This program is free software; you can redistribute it and/or modify
Packit Service 5bcba8
# it under the terms of the GNU General Public License as published by
Packit Service 5bcba8
# the Free Software Foundation; either version 2, or (at your option)
Packit Service 5bcba8
# any later version.
Packit Service 5bcba8
#
Packit Service 5bcba8
# This program is distributed in the hope that it will be useful,
Packit Service 5bcba8
# but WITHOUT ANY WARRANTY; without even the implied warranty of
Packit Service 5bcba8
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
Packit Service 5bcba8
# GNU General Public License for more details.
Packit Service 5bcba8
#
Packit Service 5bcba8
# You should have received a copy of the GNU General Public License
Packit Service d78141
# along with this program.  If not, see <https://www.gnu.org/licenses/>.
Packit Service 5bcba8
Packit Service 5bcba8
# As a special exception to the GNU General Public License, if you
Packit Service 5bcba8
# distribute this file as part of a program that contains a
Packit Service 5bcba8
# configuration script generated by Autoconf, you may include it under
Packit Service 5bcba8
# the same distribution terms that you use for the rest of that program.
Packit Service 5bcba8
Packit Service 5bcba8
# This file is maintained in Automake, please report
Packit Service 5bcba8
# bugs to <bug-automake@gnu.org> or send patches to
Packit Service 5bcba8
# <automake-patches@gnu.org>.
Packit Service 5bcba8
Packit Service 5bcba8
# Make unconditional expansion of undefined variables an error.  This
Packit Service 5bcba8
# helps a lot in preventing typo-related bugs.
Packit Service 5bcba8
set -u
Packit Service 5bcba8
Packit Service 5bcba8
usage_error ()
Packit Service 5bcba8
{
Packit Service 5bcba8
  echo "$0: $*" >&2
Packit Service 5bcba8
  print_usage >&2
Packit Service 5bcba8
  exit 2
Packit Service 5bcba8
}
Packit Service 5bcba8
Packit Service 5bcba8
print_usage ()
Packit Service 5bcba8
{
Packit Service 5bcba8
  cat <
Packit Service 5bcba8
Usage:
Packit Service 5bcba8
  test-driver --test-name=NAME --log-file=PATH --trs-file=PATH
Packit Service 5bcba8
              [--expect-failure={yes|no}] [--color-tests={yes|no}]
Packit Service 5bcba8
              [--enable-hard-errors={yes|no}] [--]
Packit Service 5bcba8
              TEST-SCRIPT [TEST-SCRIPT-ARGUMENTS]
Packit Service 5bcba8
The '--test-name', '--log-file' and '--trs-file' options are mandatory.
Packit Service 5bcba8
END
Packit Service 5bcba8
}
Packit Service 5bcba8
Packit Service 5bcba8
test_name= # Used for reporting.
Packit Service 5bcba8
log_file=  # Where to save the output of the test script.
Packit Service 5bcba8
trs_file=  # Where to save the metadata of the test run.
Packit Service 5bcba8
expect_failure=no
Packit Service 5bcba8
color_tests=no
Packit Service 5bcba8
enable_hard_errors=yes
Packit Service 5bcba8
while test $# -gt 0; do
Packit Service 5bcba8
  case $1 in
Packit Service 5bcba8
  --help) print_usage; exit $?;;
Packit Service 5bcba8
  --version) echo "test-driver $scriptversion"; exit $?;;
Packit Service 5bcba8
  --test-name) test_name=$2; shift;;
Packit Service 5bcba8
  --log-file) log_file=$2; shift;;
Packit Service 5bcba8
  --trs-file) trs_file=$2; shift;;
Packit Service 5bcba8
  --color-tests) color_tests=$2; shift;;
Packit Service 5bcba8
  --expect-failure) expect_failure=$2; shift;;
Packit Service 5bcba8
  --enable-hard-errors) enable_hard_errors=$2; shift;;
Packit Service 5bcba8
  --) shift; break;;
Packit Service 5bcba8
  -*) usage_error "invalid option: '$1'";;
Packit Service 5bcba8
   *) break;;
Packit Service 5bcba8
  esac
Packit Service 5bcba8
  shift
Packit Service 5bcba8
done
Packit Service 5bcba8
Packit Service 5bcba8
missing_opts=
Packit Service 5bcba8
test x"$test_name" = x && missing_opts="$missing_opts --test-name"
Packit Service 5bcba8
test x"$log_file"  = x && missing_opts="$missing_opts --log-file"
Packit Service 5bcba8
test x"$trs_file"  = x && missing_opts="$missing_opts --trs-file"
Packit Service 5bcba8
if test x"$missing_opts" != x; then
Packit Service 5bcba8
  usage_error "the following mandatory options are missing:$missing_opts"
Packit Service 5bcba8
fi
Packit Service 5bcba8
Packit Service 5bcba8
if test $# -eq 0; then
Packit Service 5bcba8
  usage_error "missing argument"
Packit Service 5bcba8
fi
Packit Service 5bcba8
Packit Service 5bcba8
if test $color_tests = yes; then
Packit Service 5bcba8
  # Keep this in sync with 'lib/am/check.am:$(am__tty_colors)'.
Packit Service 5bcba8
  red='?[0;31m' # Red.
Packit Service 5bcba8
  grn='?[0;32m' # Green.
Packit Service 5bcba8
  lgn='?[1;32m' # Light green.
Packit Service 5bcba8
  blu='?[1;34m' # Blue.
Packit Service 5bcba8
  mgn='?[0;35m' # Magenta.
Packit Service 5bcba8
  std='?[m'     # No color.
Packit Service 5bcba8
else
Packit Service 5bcba8
  red= grn= lgn= blu= mgn= std=
Packit Service 5bcba8
fi
Packit Service 5bcba8
Packit Service 5bcba8
do_exit='rm -f $log_file $trs_file; (exit $st); exit $st'
Packit Service 5bcba8
trap "st=129; $do_exit" 1
Packit Service 5bcba8
trap "st=130; $do_exit" 2
Packit Service 5bcba8
trap "st=141; $do_exit" 13
Packit Service 5bcba8
trap "st=143; $do_exit" 15
Packit Service 5bcba8
Packit Service 5bcba8
# Test script is run here.
Packit Service 5bcba8
"$@" >$log_file 2>&1
Packit Service 5bcba8
estatus=$?
Packit Service d78141
Packit Service 5bcba8
if test $enable_hard_errors = no && test $estatus -eq 99; then
Packit Service d78141
  tweaked_estatus=1
Packit Service d78141
else
Packit Service d78141
  tweaked_estatus=$estatus
Packit Service 5bcba8
fi
Packit Service 5bcba8
Packit Service d78141
case $tweaked_estatus:$expect_failure in
Packit Service 5bcba8
  0:yes) col=$red res=XPASS recheck=yes gcopy=yes;;
Packit Service 5bcba8
  0:*)   col=$grn res=PASS  recheck=no  gcopy=no;;
Packit Service 5bcba8
  77:*)  col=$blu res=SKIP  recheck=no  gcopy=yes;;
Packit Service 5bcba8
  99:*)  col=$mgn res=ERROR recheck=yes gcopy=yes;;
Packit Service 5bcba8
  *:yes) col=$lgn res=XFAIL recheck=no  gcopy=yes;;
Packit Service 5bcba8
  *:*)   col=$red res=FAIL  recheck=yes gcopy=yes;;
Packit Service 5bcba8
esac
Packit Service 5bcba8
Packit Service d78141
# Report the test outcome and exit status in the logs, so that one can
Packit Service d78141
# know whether the test passed or failed simply by looking at the '.log'
Packit Service d78141
# file, without the need of also peaking into the corresponding '.trs'
Packit Service d78141
# file (automake bug#11814).
Packit Service d78141
echo "$res $test_name (exit status: $estatus)" >>$log_file
Packit Service d78141
Packit Service 5bcba8
# Report outcome to console.
Packit Service 5bcba8
echo "${col}${res}${std}: $test_name"
Packit Service 5bcba8
Packit Service 5bcba8
# Register the test result, and other relevant metadata.
Packit Service 5bcba8
echo ":test-result: $res" > $trs_file
Packit Service 5bcba8
echo ":global-test-result: $res" >> $trs_file
Packit Service 5bcba8
echo ":recheck: $recheck" >> $trs_file
Packit Service 5bcba8
echo ":copy-in-global-log: $gcopy" >> $trs_file
Packit Service 5bcba8
Packit Service 5bcba8
# Local Variables:
Packit Service 5bcba8
# mode: shell-script
Packit Service 5bcba8
# sh-indentation: 2
Packit Service d78141
# eval: (add-hook 'before-save-hook 'time-stamp)
Packit Service 5bcba8
# time-stamp-start: "scriptversion="
Packit Service 5bcba8
# time-stamp-format: "%:y-%02m-%02d.%02H"
Packit Service d78141
# time-stamp-time-zone: "UTC0"
Packit Service 5bcba8
# time-stamp-end: "; # UTC"
Packit Service 5bcba8
# End: